diff options
author | Francois-Rene Rideau <fare@tunes.org> | 2024-01-08 18:08:12 +0000 |
---|---|---|
committer | Francois-Rene Rideau <fare@tunes.org> | 2024-01-08 18:08:12 +0000 |
commit | 5747fdba5672696ed44ba27f804bdea1af150679 (patch) | |
tree | 5bd4396269041a01f438cb55487886e12bd981d7 | |
parent | adca0cfbdbfa88bf17e6f2b919483aa94cde900e (diff) |
Fix issues with -alist to -properties renaminggxpkg-c3
48 files changed, 8812 insertions, 8826 deletions
diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 0cd719dc..3b9f019b 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 1701927551) + (define gerbil/compiler/base::timestamp 1704735496) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 9791dbbe..3656fa71 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core <syntax-sugar>) (spec: (:gerbil/gambit) - (0 s8vector? 0 s8vector?) (0 s64vector? 0 s64vector?) - (0 f32vector? 0 f32vector?) + (0 s8vector? 0 s8vector?) (0 s32vector? 0 s32vector?) - (0 s16vector? 0 s16vector?) - (0 u32vector? 0 u32vector?) + (0 u8vector? 0 u8vector?) + (0 u64vector? 0 u64vector?) (0 u16vector? 0 u16vector?) + (0 u32vector? 0 u32vector?) + (0 s16vector? 0 s16vector?) (0 f64vector? 0 f64vector?) - (0 u64vector? 0 u64vector?) - (0 u8vector? 0 u8vector?))) + (0 f32vector? 0 f32vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) (%#define-runtime current-compile-methods gxc#current-compile-methods) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 85edf453..8017aa40 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 1701927552) + (define gerbil/compiler/compile::timestamp 1704735496) (begin (define gxc#_g18463_ (gx#core-deserialize-mark diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 64ee766e..f98e5208 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 1701927557) + (define gerbil/compiler/driver::timestamp 1704735502) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 84289955..e872e8ac 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1701927555) + (define gerbil/compiler/optimize-ann::timestamp 1704735500) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index e120322c..7ec926b9 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1701927552) + (define gerbil/compiler/optimize-base::timestamp 1704735497) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 090d9478..aa8f5788 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1701927557) + (define gerbil/compiler/optimize-call::timestamp 1704735501) (begin (define gxc#&optimize-call (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index de22870a..1998f5c6 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1701927554) + (define gerbil/compiler/optimize-spec::timestamp 1704735498) (begin (define gxc#&generate-method-specializers (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index ef83735d..18af158f 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1701927552) + (define gerbil/compiler/optimize-top::timestamp 1704735497) (begin (define gxc#&collect-top-level-type-info (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index da97a4da..f40c0252 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1701927552) + (define gerbil/compiler/optimize-xform::timestamp 1704735497) (begin (define gxc#&identity-expression (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 7ba12843..856b5da5 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1701927557) + (define gerbil/compiler/optimize::timestamp 1704735501) (begin (define gxc#optimizer-info-init! (lambda () diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 48bd35ed..38be9a07 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -428,7 +428,7 @@ namespace: gerbil/core type-descriptor-precedence-all-slots) (type-descriptor-precedence-list type-descriptor-precedence-list) - (type-descriptor-alist type-descriptor-alist) + (type-descriptor-properties type-descriptor-properties) (type-descriptor-constructor type-descriptor-constructor) (type-descriptor-slot-table type-descriptor-slot-table) (type-descriptor-methods type-descriptor-methods) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 8676a907..8e1cd5cc 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -97,11 +97,11 @@ (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (define |gerbil/core$<match>[1]#_g42944_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g42945_| + (define |gerbil/core$<match>[1]#_g43007_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g42946_| + (define |gerbil/core$<match>[1]#_g43008_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g42947_| + (define |gerbil/core$<match>[1]#_g43009_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<match>[1]#match-macro::t| @@ -7485,7 +7485,7 @@ (##car _e3164232329_)))) (if (gx#identifier? _hd3164132333_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g42947_| + |gerbil/core$<match>[1]#_g43009_| _hd3164132333_) (if (gx#stx-pair/null? _tl3164032336_) @@ -7764,7 +7764,7 @@ (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g42946_| + |gerbil/core$<match>[1]#_g43008_| _hd3164132333_) (if (gx#stx-pair/null? _tl3164032336_) @@ -8037,7 +8037,7 @@ (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g42945_| + |gerbil/core$<match>[1]#_g43007_| _hd3164132333_) (if (gx#stx-pair? _tl3164032336_) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 3017dab1..b3fa5faa 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,34 +1,34 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<match>[2]#_g42950_| + (define |gerbil/core$<match>[2]#_g42947_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g42952_| + (define |gerbil/core$<match>[2]#_g42949_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g42953_| + (define |gerbil/core$<match>[2]#_g42950_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g42954_| + (define |gerbil/core$<match>[2]#_g42951_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g42955_| + (define |gerbil/core$<match>[2]#_g42952_| (##structure gx#syntax-quote::t 'match-macro? @@ -36,20 +36,20 @@ (gx#current-expander-context) '())) (define |gerbil/core$<match>[:1:]#match-macro| - (let ((__tmp42956 |gerbil/core$<match>[2]#_g42953_|) - (__tmp42951 - (cons (cons |gerbil/core$<match>[2]#_g42952_| '()) - (cons |gerbil/core$<match>[2]#_g42953_| - (cons |gerbil/core$<match>[2]#_g42954_| - (cons |gerbil/core$<match>[2]#_g42955_| - (cons '() (cons '() '()))))))) + (let ((__tmp42953 |gerbil/core$<match>[2]#_g42950_|) (__tmp42948 - (let ((__tmp42949 (list |gerbil/core$<match>[2]#_g42950_|))) + (cons (cons |gerbil/core$<match>[2]#_g42949_| '()) + (cons |gerbil/core$<match>[2]#_g42950_| + (cons |gerbil/core$<match>[2]#_g42951_| + (cons |gerbil/core$<match>[2]#_g42952_| + (cons '() (cons '() '()))))))) + (__tmp42945 + (let ((__tmp42946 (list |gerbil/core$<match>[2]#_g42947_|))) (declare (not safe)) (##structure |gerbil/core$<MOP>$<MOP:2>[1]#runtime-class-exhibitor::t| 'gerbil.core#match-macro::t - __tmp42949 + __tmp42946 'match-macro '#f '() @@ -58,8 +58,8 @@ (make-class-instance |gerbil/core$<MOP>$<MOP:2>[1]#extended-class-info::t| 'runtime-identifier: - __tmp42956 + __tmp42953 'expander-identifiers: - __tmp42951 + __tmp42948 'type-exhibitor: - __tmp42948)))) + __tmp42945)))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index c69c6a90..746d5cd1 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -69,20 +69,20 @@ (define |gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| (lambda (_stx32713_) (if (gx#identifier? _stx32713_) - (let ((__tmp42957 (gx#syntax-local-value _stx32713_ false))) + (let ((__tmp42954 (gx#syntax-local-value _stx32713_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setf-macro::t| - __tmp42957)) + __tmp42954)) '#f))) (define |gerbil/core$<more-sugar>[1]#syntax-local-setq-macro?| (lambda (_stx32710_) (if (gx#identifier? _stx32710_) - (let ((__tmp42958 (gx#syntax-local-value _stx32710_ false))) + (let ((__tmp42955 (gx#syntax-local-value _stx32710_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setq-macro::t| - __tmp42958)) + __tmp42955)) '#f))) (define |gerbil/core$<more-sugar>[:0:]#set!| (lambda (_stx32724_) @@ -289,11 +289,11 @@ (let () (declare (not safe)) (##car _e3274133052_)))) - (if (let ((__tmp42959 + (if (let ((__tmp42956 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| - __tmp42959)) + __tmp42956)) (let ((_L33062_ _hd3274033056_)) (___kont4220542206_ _L33062_)) (if (gx#stx-pair/null? _tl3273933059_) @@ -373,30 +373,30 @@ (##cdr _e3309133116_)))) (if (gx#stx-pair/null? _tl3308933123_) (if (fx>= (gx#stx-length _tl3308933123_) '1) - (let ((_g42960_ + (let ((_g42957_ (gx#syntax-split-splice _tl3308933123_ '1))) (begin - (let ((_g42961_ + (let ((_g42958_ (let () (declare (not safe)) - (if (##values? _g42960_) - (##vector-length _g42960_) + (if (##values? _g42957_) + (##vector-length _g42957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42961_ 2))) + (##fx= _g42958_ 2))) (error "Context expects 2 values" - _g42961_))) + _g42958_))) (let ((_target3309233126_ (let () (declare (not safe)) - (##vector-ref _g42960_ 0))) + (##vector-ref _g42957_ 0))) (_tl3309433129_ (let () (declare (not safe)) - (##vector-ref _g42960_ 1)))) + (##vector-ref _g42957_ 1)))) (if (gx#stx-pair? _tl3309433129_) (let ((_e3310333132_ (gx#syntax-e _tl3309433129_))) @@ -437,38 +437,38 @@ (_g3318533275_ (lambda (_g3318733207_) (if (gx#stx-pair/null? _g3318733207_) - (let ((_g42962_ + (let ((_g42959_ (gx#syntax-split-splice _g3318733207_ '0))) (begin - (let ((_g42963_ + (let ((_g42960_ (let () (declare (not safe)) (if (##values? - _g42962_) + _g42959_) (##vector-length - _g42962_) + _g42959_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42963_ + (##fx= _g42960_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g42963_))) + (error "Context expects 2 values" _g42960_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3318933210_ (let () (declare (not safe)) (##vector-ref - _g42962_ + _g42959_ 0))) (_tl3319133213_ (let () (declare (not safe)) (##vector-ref - _g42962_ + _g42959_ 1)))) (if (gx#stx-null? _tl3319133213_) @@ -579,37 +579,37 @@ (_g3351833600_ (lambda (_g3352033540_) (if (gx#stx-pair/null? _g3352033540_) - (let ((_g42964_ + (let ((_g42961_ (gx#syntax-split-splice _g3352033540_ '0))) (begin - (let ((_g42965_ + (let ((_g42962_ (let () (declare (not safe)) (if (##values? - _g42964_) + _g42961_) (##vector-length - _g42964_) + _g42961_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42965_ 2))) - (error "Context expects 2 values" _g42965_))) + (##fx= _g42962_ 2))) + (error "Context expects 2 values" _g42962_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3352233543_ (let () (declare (not safe)) (##vector-ref - _g42964_ + _g42961_ 0))) (_tl3352433546_ (let () (declare (not safe)) (##vector-ref - _g42964_ + _g42961_ 1)))) (if (gx#stx-null? _tl3352433546_) @@ -1011,30 +1011,30 @@ (declare (not safe)) (##cdr _e3373533767_)))) (if (gx#stx-pair/null? _tl3373333774_) - (let ((_g42966_ + (let ((_g42963_ (gx#syntax-split-splice _tl3373333774_ '0))) (begin - (let ((_g42967_ + (let ((_g42964_ (let () (declare (not safe)) - (if (##values? _g42966_) - (##vector-length _g42966_) + (if (##values? _g42963_) + (##vector-length _g42963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42967_ 2))) + (##fx= _g42964_ 2))) (error "Context expects 2 values" - _g42967_))) + _g42964_))) (let ((_target3373633777_ (let () (declare (not safe)) - (##vector-ref _g42966_ 0))) + (##vector-ref _g42963_ 0))) (_tl3373833780_ (let () (declare (not safe)) - (##vector-ref _g42966_ 1)))) + (##vector-ref _g42963_ 1)))) (if (gx#stx-null? _tl3373833780_) (letrec ((_loop3373933783_ (lambda (_hd3373733787_ @@ -1110,30 +1110,30 @@ (declare (not safe)) (##cdr _e3385333885_)))) (if (gx#stx-pair/null? _tl3385133892_) - (let ((_g42968_ + (let ((_g42965_ (gx#syntax-split-splice _tl3385133892_ '0))) (begin - (let ((_g42969_ + (let ((_g42966_ (let () (declare (not safe)) - (if (##values? _g42968_) - (##vector-length _g42968_) + (if (##values? _g42965_) + (##vector-length _g42965_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42969_ 2))) + (##fx= _g42966_ 2))) (error "Context expects 2 values" - _g42969_))) + _g42966_))) (let ((_target3385433895_ (let () (declare (not safe)) - (##vector-ref _g42968_ 0))) + (##vector-ref _g42965_ 0))) (_tl3385633898_ (let () (declare (not safe)) - (##vector-ref _g42968_ 1)))) + (##vector-ref _g42965_ 1)))) (if (gx#stx-null? _tl3385633898_) (letrec ((_loop3385733901_ (lambda (_hd3385533905_ @@ -1220,38 +1220,38 @@ (declare (not safe)) (##cdr _e3397534017_)))) (if (gx#stx-pair/null? _tl3397334024_) - (let ((_g42970_ + (let ((_g42967_ (gx#syntax-split-splice _tl3397334024_ '0))) (begin - (let ((_g42971_ + (let ((_g42968_ (let () (declare (not safe)) (if (##values? - _g42970_) + _g42967_) (##vector-length - _g42970_) + _g42967_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42971_ + (##fx= _g42968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g42971_))) + (error "Context expects 2 values" _g42968_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3397634027_ (let () (declare (not safe)) (##vector-ref - _g42970_ + _g42967_ 0))) (_tl3397834030_ (let () (declare (not safe)) (##vector-ref - _g42970_ + _g42967_ 1)))) (if (gx#stx-null? _tl3397834030_) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 0b731890..135422de 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<more-sugar>[2]#_g42974_| + (define |gerbil/core$<more-sugar>[2]#_g42971_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42976_| + (define |gerbil/core$<more-sugar>[2]#_g42973_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42977_| + (define |gerbil/core$<more-sugar>[2]#_g42974_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42978_| + (define |gerbil/core$<more-sugar>[2]#_g42975_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42979_| + (define |gerbil/core$<more-sugar>[2]#_g42976_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42984_| + (define |gerbil/core$<more-sugar>[2]#_g42981_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42985_| + (define |gerbil/core$<more-sugar>[2]#_g42982_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g42986_| + (define |gerbil/core$<more-sugar>[2]#_g42983_| (##structure gx#syntax-quote::t 'setf-macro? @@ -58,20 +58,20 @@ '())) (begin (define |gerbil/core$<more-sugar>[:1:]#setq-macro| - (let ((__tmp42980 |gerbil/core$<more-sugar>[2]#_g42977_|) - (__tmp42975 - (cons (cons |gerbil/core$<more-sugar>[2]#_g42976_| '()) - (cons |gerbil/core$<more-sugar>[2]#_g42977_| - (cons |gerbil/core$<more-sugar>[2]#_g42978_| - (cons |gerbil/core$<more-sugar>[2]#_g42979_| - (cons '() (cons '() '()))))))) + (let ((__tmp42977 |gerbil/core$<more-sugar>[2]#_g42974_|) (__tmp42972 - (let ((__tmp42973 (list |gerbil/core$<more-sugar>[2]#_g42974_|))) + (cons (cons |gerbil/core$<more-sugar>[2]#_g42973_| '()) + (cons |gerbil/core$<more-sugar>[2]#_g42974_| + (cons |gerbil/core$<more-sugar>[2]#_g42975_| + (cons |gerbil/core$<more-sugar>[2]#_g42976_| + (cons '() (cons '() '()))))))) + (__tmp42969 + (let ((__tmp42970 (list |gerbil/core$<more-sugar>[2]#_g42971_|))) (declare (not safe)) (##structure |gerbil/core$<MOP>$<MOP:2>[1]#runtime-class-exhibitor::t| 'gerbil.core#setq-macro::t - __tmp42973 + __tmp42970 'setq-macro '#f '() @@ -80,26 +80,26 @@ (make-class-instance |gerbil/core$<MOP>$<MOP:2>[1]#extended-class-info::t| 'runtime-identifier: - __tmp42980 + __tmp42977 'expander-identifiers: - __tmp42975 + __tmp42972 'type-exhibitor: - __tmp42972))) + __tmp42969))) (define |gerbil/core$<more-sugar>[:1:]#setf-macro| - (let ((__tmp42987 |gerbil/core$<more-sugar>[2]#_g42984_|) - (__tmp42983 - (cons (cons |gerbil/core$<more-sugar>[2]#_g42976_| '()) - (cons |gerbil/core$<more-sugar>[2]#_g42984_| - (cons |gerbil/core$<more-sugar>[2]#_g42985_| - (cons |gerbil/core$<more-sugar>[2]#_g42986_| + (let ((__tmp42984 |gerbil/core$<more-sugar>[2]#_g42981_|) + (__tmp42980 + (cons (cons |gerbil/core$<more-sugar>[2]#_g42973_| '()) + (cons |gerbil/core$<more-sugar>[2]#_g42981_| + (cons |gerbil/core$<more-sugar>[2]#_g42982_| + (cons |gerbil/core$<more-sugar>[2]#_g42983_| (cons '() (cons '() '()))))))) - (__tmp42981 - (let ((__tmp42982 (list |gerbil/core$<more-sugar>[2]#_g42974_|))) + (__tmp42978 + (let ((__tmp42979 (list |gerbil/core$<more-sugar>[2]#_g42971_|))) (declare (not safe)) (##structure |gerbil/core$<MOP>$<MOP:2>[1]#runtime-class-exhibitor::t| 'gerbil.core#setf-macro::t - __tmp42982 + __tmp42979 'setf-macro '#f '() @@ -108,8 +108,8 @@ (make-class-instance |gerbil/core$<MOP>$<MOP:2>[1]#extended-class-info::t| 'runtime-identifier: - __tmp42987 + __tmp42984 'expander-identifiers: - __tmp42983 + __tmp42980 'type-exhibitor: - __tmp42981))))) + __tmp42978))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 08db6b11..3c5392e5 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -922,30 +922,30 @@ (declare (not safe)) (##cdr _e3497234994_)))) (if (gx#stx-pair/null? _tl3497035001_) - (let ((_g42988_ + (let ((_g42985_ (gx#syntax-split-splice _tl3497035001_ '0))) (begin - (let ((_g42989_ + (let ((_g42986_ (let () (declare (not safe)) - (if (##values? _g42988_) - (##vector-length _g42988_) + (if (##values? _g42985_) + (##vector-length _g42985_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42989_ 2))) + (##fx= _g42986_ 2))) (error "Context expects 2 values" - _g42989_))) + _g42986_))) (let ((_target3497335004_ (let () (declare (not safe)) - (##vector-ref _g42988_ 0))) + (##vector-ref _g42985_ 0))) (_tl3497535007_ (let () (declare (not safe)) - (##vector-ref _g42988_ 1)))) + (##vector-ref _g42985_ 1)))) (if (gx#stx-null? _tl3497535007_) (letrec ((_loop3497635010_ (lambda (_hd3497435014_ @@ -1004,30 +1004,30 @@ (declare (not safe)) (##cdr _e3507135093_)))) (if (gx#stx-pair/null? _tl3506935100_) - (let ((_g42990_ + (let ((_g42987_ (gx#syntax-split-splice _tl3506935100_ '0))) (begin - (let ((_g42991_ + (let ((_g42988_ (let () (declare (not safe)) - (if (##values? _g42990_) - (##vector-length _g42990_) + (if (##values? _g42987_) + (##vector-length _g42987_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42991_ 2))) + (##fx= _g42988_ 2))) (error "Context expects 2 values" - _g42991_))) + _g42988_))) (let ((_target3507235103_ (let () (declare (not safe)) - (##vector-ref _g42990_ 0))) + (##vector-ref _g42987_ 0))) (_tl3507435106_ (let () (declare (not safe)) - (##vector-ref _g42990_ 1)))) + (##vector-ref _g42987_ 1)))) (if (gx#stx-null? _tl3507435106_) (letrec ((_loop3507535109_ (lambda (_hd3507335113_ @@ -1097,31 +1097,31 @@ (declare (not safe)) (##cdr _e3517435206_)))) (if (gx#stx-pair/null? _tl3517235213_) - (let ((_g42992_ + (let ((_g42989_ (gx#syntax-split-splice _tl3517235213_ '0))) (begin - (let ((_g42993_ + (let ((_g42990_ (let () (declare (not safe)) - (if (##values? _g42992_) + (if (##values? _g42989_) (##vector-length - _g42992_) + _g42989_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42993_ 2))) + (##fx= _g42990_ 2))) (error "Context expects 2 values" - _g42993_))) + _g42990_))) (let ((_target3517535216_ (let () (declare (not safe)) - (##vector-ref _g42992_ 0))) + (##vector-ref _g42989_ 0))) (_tl3517735219_ (let () (declare (not safe)) - (##vector-ref _g42992_ 1)))) + (##vector-ref _g42989_ 1)))) (if (gx#stx-null? _tl3517735219_) (letrec ((_loop3517835222_ (lambda (_hd3517635226_ @@ -1239,31 +1239,31 @@ (declare (not safe)) (##cdr _e3532835360_)))) (if (gx#stx-pair/null? _tl3532635367_) - (let ((_g42994_ + (let ((_g42991_ (gx#syntax-split-splice _tl3532635367_ '0))) (begin - (let ((_g42995_ + (let ((_g42992_ (let () (declare (not safe)) - (if (##values? _g42994_) + (if (##values? _g42991_) (##vector-length - _g42994_) + _g42991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42995_ 2))) + (##fx= _g42992_ 2))) (error "Context expects 2 values" - _g42995_))) + _g42992_))) (let ((_target3532935370_ (let () (declare (not safe)) - (##vector-ref _g42994_ 0))) + (##vector-ref _g42991_ 0))) (_tl3533135373_ (let () (declare (not safe)) - (##vector-ref _g42994_ 1)))) + (##vector-ref _g42991_ 1)))) (if (gx#stx-null? _tl3533135373_) (letrec ((_loop3533235376_ (lambda (_hd3533035380_ @@ -1405,31 +1405,31 @@ (declare (not safe)) (##cdr _e3553435574_)))) (if (gx#stx-pair/null? _tl3553235581_) - (let ((_g42996_ + (let ((_g42993_ (gx#syntax-split-splice _tl3553235581_ '0))) (begin - (let ((_g42997_ + (let ((_g42994_ (let () (declare (not safe)) - (if (##values? _g42996_) + (if (##values? _g42993_) (##vector-length - _g42996_) + _g42993_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42997_ 2))) + (##fx= _g42994_ 2))) (error "Context expects 2 values" - _g42997_))) + _g42994_))) (let ((_target3553535584_ (let () (declare (not safe)) - (##vector-ref _g42996_ 0))) + (##vector-ref _g42993_ 0))) (_tl3553735587_ (let () (declare (not safe)) - (##vector-ref _g42996_ 1)))) + (##vector-ref _g42993_ 1)))) (if (gx#stx-null? _tl3553735587_) (letrec ((_loop3553835590_ (lambda (_hd3553635594_ @@ -1497,7 +1497,7 @@ _L35638_))) (let* ((_keytab35676_ (make-hash-table)) (_found35679_ (make-hash-table)) - (_g42998_ + (_g42995_ (for-each (lambda (_id35682_ _new-id35684_) (hash-put! @@ -1648,14 +1648,14 @@ (letrec ((_fold-e35837_ (lambda (_in35840_ _r35842_) (if (gx#module-import? _in35840_) - (cons (let ((__tmp42999 + (cons (let ((__tmp42996 (_rename-e35834_ (gx#module-import-name _in35840_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in35840_ - __tmp42999)) + __tmp42996)) _r35842_) (if (gx#import-set? _in35840_) (foldl _fold-e35837_ @@ -1844,32 +1844,32 @@ (declare (not safe)) (##cdr _e3586935901_)))) (if (gx#stx-pair/null? _tl3586735908_) - (let ((_g43000_ + (let ((_g42997_ (gx#syntax-split-splice _tl3586735908_ '0))) (begin - (let ((_g43001_ + (let ((_g42998_ (let () (declare (not safe)) - (if (##values? _g43000_) + (if (##values? _g42997_) (##vector-length - _g43000_) + _g42997_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43001_ 2))) + (##fx= _g42998_ 2))) (error "Context expects 2 values" - _g43001_))) + _g42998_))) (let ((_target3587035911_ (let () (declare (not safe)) - (##vector-ref _g43000_ 0))) + (##vector-ref _g42997_ 0))) (_tl3587235914_ (let () (declare (not safe)) (##vector-ref - _g43000_ + _g42997_ 1)))) (if (gx#stx-null? _tl3587235914_) (letrec ((_loop3587335917_ @@ -1948,31 +1948,31 @@ (declare (not safe)) (##cdr _e3613236164_)))) (if (gx#stx-pair/null? _tl3613036171_) - (let ((_g43002_ + (let ((_g42999_ (gx#syntax-split-splice _tl3613036171_ '0))) (begin - (let ((_g43003_ + (let ((_g43000_ (let () (declare (not safe)) - (if (##values? _g43002_) + (if (##values? _g42999_) (##vector-length - _g43002_) + _g42999_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43003_ 2))) + (##fx= _g43000_ 2))) (error "Context expects 2 values" - _g43003_))) + _g43000_))) (let ((_target3613336174_ (let () (declare (not safe)) - (##vector-ref _g43002_ 0))) + (##vector-ref _g42999_ 0))) (_tl3613536177_ (let () (declare (not safe)) - (##vector-ref _g43002_ 1)))) + (##vector-ref _g42999_ 1)))) (if (gx#stx-null? _tl3613536177_) (letrec ((_loop3613636180_ (lambda (_hd3613436184_ @@ -2098,31 +2098,31 @@ (declare (not safe)) (##cdr _e3629136331_)))) (if (gx#stx-pair/null? _tl3628936338_) - (let ((_g43004_ + (let ((_g43001_ (gx#syntax-split-splice _tl3628936338_ '0))) (begin - (let ((_g43005_ + (let ((_g43002_ (let () (declare (not safe)) - (if (##values? _g43004_) + (if (##values? _g43001_) (##vector-length - _g43004_) + _g43001_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43005_ 2))) + (##fx= _g43002_ 2))) (error "Context expects 2 values" - _g43005_))) + _g43002_))) (let ((_target3629236341_ (let () (declare (not safe)) - (##vector-ref _g43004_ 0))) + (##vector-ref _g43001_ 0))) (_tl3629436344_ (let () (declare (not safe)) - (##vector-ref _g43004_ 1)))) + (##vector-ref _g43001_ 1)))) (if (gx#stx-null? _tl3629436344_) (letrec ((_loop3629536347_ (lambda (_hd3629336351_ @@ -2190,7 +2190,7 @@ _L36395_))) (let* ((_keytab36433_ (make-hash-table)) (_found36436_ (make-hash-table)) - (_g43006_ + (_g43003_ (for-each (lambda (_id36439_ _new-id36441_) (hash-put! @@ -2341,14 +2341,14 @@ (letrec ((_fold-e36594_ (lambda (_out36597_ _r36599_) (if (gx#module-export? _out36597_) - (cons (let ((__tmp43007 + (cons (let ((__tmp43004 (_rename-e36591_ (gx#module-export-name _out36597_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36597_ - __tmp43007)) + __tmp43004)) _r36599_) (if (gx#export-set? _out36597_) (foldl _fold-e36594_ @@ -2390,30 +2390,30 @@ (declare (not safe)) (##cdr _e3661836640_)))) (if (gx#stx-pair/null? _tl3661636647_) - (let ((_g43008_ + (let ((_g43005_ (gx#syntax-split-splice _tl3661636647_ '0))) (begin - (let ((_g43009_ + (let ((_g43006_ (let () (declare (not safe)) - (if (##values? _g43008_) - (##vector-length _g43008_) + (if (##values? _g43005_) + (##vector-length _g43005_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43009_ 2))) + (##fx= _g43006_ 2))) (error "Context expects 2 values" - _g43009_))) + _g43006_))) (let ((_target3661936650_ (let () (declare (not safe)) - (##vector-ref _g43008_ 0))) + (##vector-ref _g43005_ 0))) (_tl3662136653_ (let () (declare (not safe)) - (##vector-ref _g43008_ 1)))) + (##vector-ref _g43005_ 1)))) (if (gx#stx-null? _tl3662136653_) (letrec ((_loop3662236656_ (lambda (_hd3662036660_ diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index e60c3fc5..b5b07322 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1701927547) + (define gerbil/expander/common::timestamp 1704735491) (begin (define gx#AST::t (let () diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index a6c5dfbb..e093303f 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1701927547) + (define gerbil/expander/compile::timestamp 1704735491) (begin (declare (not safe)) (define gx#core-compile-top-syntax diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index cab0347d..064e0aa0 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 1701927547) + (define gerbil/expander/core::timestamp 1704735491) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 439c53f2..31a458b5 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 1701927547) + (define gerbil/expander/module::timestamp 1704735491) (begin (declare (not safe)) (define gx#module-import::t diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 7ce9b2b0..65b6fcda 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 1701927547) + (define gerbil/expander/root::timestamp 1704735491) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -329,25 +329,25 @@ __tmp19674 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-features!19672 + (__bind-core-macro-expanders!19672 (make-promise (lambda () (let ((__tmp19675 - (direct-method-ref __t19670 'bind-core-features!))) + (direct-method-ref + __t19670 + 'bind-core-macro-expanders!))) (if __tmp19675 __tmp19675 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!19673 + (error '"Missing method" + 'bind-core-macro-expanders!)))))) + (__bind-core-features!19673 (make-promise (lambda () (let ((__tmp19676 - (direct-method-ref - __t19670 - 'bind-core-macro-expanders!))) + (direct-method-ref __t19670 'bind-core-features!))) (if __tmp19676 __tmp19676 - (error '"Missing method" - 'bind-core-macro-expanders!))))))) + (error '"Missing method" 'bind-core-features!))))))) (let ((_opt-lambda1965619661_ (lambda (_self19658_ _bind?19659_) (if (##fx< '2 (##vector-length _self19658_)) @@ -365,9 +365,9 @@ (begin ((force __bind-core-syntax-expanders!19671) _self19658_) - ((force __bind-core-macro-expanders!19673) + ((force __bind-core-macro-expanders!19672) _self19658_) - ((force __bind-core-features!19672) _self19658_)) + ((force __bind-core-features!19673) _self19658_)) '#!void)))) (lambda _g19716_ (let ((_g19715_ (##length _g19716_))) diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index ca13f842..9162e286 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 1701927547) + (define gerbil/expander/stx::timestamp 1704735491) (begin (declare (not safe)) (define gx#identifier-wrap::t diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 461c01ec..e76f95fb 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1701927547) + (define gerbil/expander/stxcase::timestamp 1704735492) (begin (define gx#syntax-pattern::t (let () diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 7250b9b4..e06c0269 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1701927547) + (define gerbil/expander/top::timestamp 1704735491) (begin (declare (not safe)) (define gx#core-expand-begin% diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index f7248834..8ab23922 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,432 +1,402 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1701931848) + (define gerbil/runtime/c3::timestamp 1704735467) (begin (define c3-linearize__% - (lambda (_rhead9312_ - _supers9313_ - _get-precedence-list9314_ - _eqpred9315_ - _get-name9316_) - (let ((_tails9318_ (map _get-precedence-list9314_ _supers9313_))) - (let () (declare (not safe)) (append1! _tails9318_ _supers9313_)) + (lambda (_rhead9274_ + _supers9275_ + _get-precedence-list9276_ + _eqpred9277_ + _get-name9278_) + (let ((_tails9280_ (map _get-precedence-list9276_ _supers9275_))) + (let () (declare (not safe)) (append1! _tails9280_ _supers9275_)) (let () (declare (not safe)) (c3-linearize-loop__% - _rhead9312_ - _tails9318_ - _eqpred9315_ - _get-name9316_))))) + _rhead9274_ + _tails9280_ + _eqpred9277_ + _get-name9278_))))) (define c3-linearize__0 - (lambda (_rhead9323_ _supers9324_ _get-precedence-list9325_) - (let* ((_eqpred9327_ eqv?) (_get-name9329_ identity)) + (lambda (_rhead9285_ _supers9286_ _get-precedence-list9287_) + (let* ((_eqpred9289_ eq?) (_get-name9291_ identity)) (declare (not safe)) (c3-linearize__% - _rhead9323_ - _supers9324_ - _get-precedence-list9325_ - _eqpred9327_ - _get-name9329_)))) + _rhead9285_ + _supers9286_ + _get-precedence-list9287_ + _eqpred9289_ + _get-name9291_)))) (define c3-linearize__1 - (lambda (_rhead9331_ _supers9332_ _get-precedence-list9333_ _eqpred9334_) - (let ((_get-name9336_ identity)) + (lambda (_rhead9293_ _supers9294_ _get-precedence-list9295_ _eqpred9296_) + (let ((_get-name9298_ identity)) (declare (not safe)) (c3-linearize__% - _rhead9331_ - _supers9332_ - _get-precedence-list9333_ - _eqpred9334_ - _get-name9336_)))) + _rhead9293_ + _supers9294_ + _get-precedence-list9295_ + _eqpred9296_ + _get-name9298_)))) (define c3-linearize - (lambda _g9393_ - (let ((_g9392_ (let () (declare (not safe)) (##length _g9393_)))) - (cond ((let () (declare (not safe)) (##fx= _g9392_ 3)) - (apply (lambda (_rhead9323_ - _supers9324_ - _get-precedence-list9325_) + (lambda _g9348_ + (let ((_g9347_ (let () (declare (not safe)) (##length _g9348_)))) + (cond ((let () (declare (not safe)) (##fx= _g9347_ 3)) + (apply (lambda (_rhead9285_ + _supers9286_ + _get-precedence-list9287_) (let () (declare (not safe)) (c3-linearize__0 - _rhead9323_ - _supers9324_ - _get-precedence-list9325_))) - _g9393_)) - ((let () (declare (not safe)) (##fx= _g9392_ 4)) - (apply (lambda (_rhead9331_ - _supers9332_ - _get-precedence-list9333_ - _eqpred9334_) + _rhead9285_ + _supers9286_ + _get-precedence-list9287_))) + _g9348_)) + ((let () (declare (not safe)) (##fx= _g9347_ 4)) + (apply (lambda (_rhead9293_ + _supers9294_ + _get-precedence-list9295_ + _eqpred9296_) (let () (declare (not safe)) (c3-linearize__1 - _rhead9331_ - _supers9332_ - _get-precedence-list9333_ - _eqpred9334_))) - _g9393_)) - ((let () (declare (not safe)) (##fx= _g9392_ 5)) - (apply (lambda (_rhead9338_ - _supers9339_ - _get-precedence-list9340_ - _eqpred9341_ - _get-name9342_) + _rhead9293_ + _supers9294_ + _get-precedence-list9295_ + _eqpred9296_))) + _g9348_)) + ((let () (declare (not safe)) (##fx= _g9347_ 5)) + (apply (lambda (_rhead9300_ + _supers9301_ + _get-precedence-list9302_ + _eqpred9303_ + _get-name9304_) (let () (declare (not safe)) (c3-linearize__% - _rhead9338_ - _supers9339_ - _get-precedence-list9340_ - _eqpred9341_ - _get-name9342_))) - _g9393_)) + _rhead9300_ + _supers9301_ + _get-precedence-list9302_ + _eqpred9303_ + _get-name9304_))) + _g9348_)) (else (##raise-wrong-number-of-arguments-exception c3-linearize - _g9393_)))))) + _g9348_)))))) (define c3-linearize-loop__% - (lambda (_rhead9228_ _tails9229_ _eqpred9230_ _get-name9231_) - (let _loop9233_ ((_rhead9235_ _rhead9228_) (_tails9236_ _tails9229_)) - (let* ((_tails9238_ - (let () (declare (not safe)) (remove-nulls! _tails9236_))) - (_tails92399249_ _tails9238_) - (_else92429267_ + (lambda (_rhead9190_ _tails9191_ _eqpred9192_ _get-name9193_) + (let _loop9195_ ((_rhead9197_ _rhead9190_) (_tails9198_ _tails9191_)) + (let* ((_tails9200_ + (let () (declare (not safe)) (remove-nulls! _tails9198_))) + (_tails92019211_ _tails9200_) + (_else92049229_ (lambda () - (let* ((_err9262_ + (let* ((_err9224_ (lambda () (error '"Inconsistent precedence graph" 'head: - (map _get-name9231_ (reverse _rhead9235_)) + (map _get-name9193_ (reverse _rhead9197_)) 'tails: - (map (lambda (_g92579259_) - (map _get-name9231_ _g92579259_)) - _tails9238_)))) - (_next9264_ + (map (lambda (_g92199221_) + (map _get-name9193_ _g92199221_)) + _tails9200_)))) + (_next9226_ (let () (declare (not safe)) (c3-select-next - _tails9238_ - _eqpred9230_ - _err9262_)))) - (let ((__tmp9395 + _tails9200_ + _eqpred9192_ + _err9224_)))) + (let ((__tmp9350 (let () (declare (not safe)) - (cons _next9264_ _rhead9235_))) - (__tmp9394 + (cons _next9226_ _rhead9197_))) + (__tmp9349 (let () (declare (not safe)) (remove-next!__% - _next9264_ - _tails9238_ - _eqpred9230_)))) + _next9226_ + _tails9200_ + _eqpred9192_)))) (declare (not safe)) - (_loop9233_ __tmp9395 __tmp9394)))))) - (let ((_K92479287_ (lambda () (reverse _rhead9235_))) - (_K92449273_ - (lambda (_tail9271_) + (_loop9195_ __tmp9350 __tmp9349)))))) + (let ((_K92099249_ (lambda () (reverse _rhead9197_))) + (_K92069235_ + (lambda (_tail9233_) (let () (declare (not safe)) - (append-reverse _rhead9235_ _tail9271_))))) - (let ((_try-match92419283_ + (append-reverse _rhead9197_ _tail9233_))))) + (let ((_try-match92039245_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails92399249_)) - (let ((_tl92469278_ + (##pair? _tails92019211_)) + (let ((_tl92089240_ (let () (declare (not safe)) - (##cdr _tails92399249_))) - (_hd92459276_ + (##cdr _tails92019211_))) + (_hd92079238_ (let () (declare (not safe)) - (##car _tails92399249_)))) + (##car _tails92019211_)))) (if (let () (declare (not safe)) - (##null? _tl92469278_)) - (let ((_tail9281_ _hd92459276_)) + (##null? _tl92089240_)) + (let ((_tail9243_ _hd92079238_)) (declare (not safe)) - (_K92449273_ _tail9281_)) + (_K92069235_ _tail9243_)) (let () (declare (not safe)) - (_else92429267_)))) - (let () (declare (not safe)) (_else92429267_)))))) - (if (let () (declare (not safe)) (##null? _tails92399249_)) - (let () (declare (not safe)) (_K92479287_)) - (let () (declare (not safe)) (_try-match92419283_))))))))) + (_else92049229_)))) + (let () (declare (not safe)) (_else92049229_)))))) + (if (let () (declare (not safe)) (##null? _tails92019211_)) + (let () (declare (not safe)) (_K92099249_)) + (let () (declare (not safe)) (_try-match92039245_))))))))) (define c3-linearize-loop__0 - (lambda (_rhead9293_ _tails9294_) - (let* ((_eqpred9296_ eqv?) (_get-name9298_ identity)) + (lambda (_rhead9255_ _tails9256_) + (let* ((_eqpred9258_ eq?) (_get-name9260_ identity)) (declare (not safe)) (c3-linearize-loop__% - _rhead9293_ - _tails9294_ - _eqpred9296_ - _get-name9298_)))) + _rhead9255_ + _tails9256_ + _eqpred9258_ + _get-name9260_)))) (define c3-linearize-loop__1 - (lambda (_rhead9300_ _tails9301_ _eqpred9302_) - (let ((_get-name9304_ identity)) + (lambda (_rhead9262_ _tails9263_ _eqpred9264_) + (let ((_get-name9266_ identity)) (declare (not safe)) (c3-linearize-loop__% - _rhead9300_ - _tails9301_ - _eqpred9302_ - _get-name9304_)))) + _rhead9262_ + _tails9263_ + _eqpred9264_ + _get-name9266_)))) (define c3-linearize-loop - (lambda _g9397_ - (let ((_g9396_ (let () (declare (not safe)) (##length _g9397_)))) - (cond ((let () (declare (not safe)) (##fx= _g9396_ 2)) - (apply (lambda (_rhead9293_ _tails9294_) + (lambda _g9352_ + (let ((_g9351_ (let () (declare (not safe)) (##length _g9352_)))) + (cond ((let () (declare (not safe)) (##fx= _g9351_ 2)) + (apply (lambda (_rhead9255_ _tails9256_) (let () (declare (not safe)) - (c3-linearize-loop__0 _rhead9293_ _tails9294_))) - _g9397_)) - ((let () (declare (not safe)) (##fx= _g9396_ 3)) - (apply (lambda (_rhead9300_ _tails9301_ _eqpred9302_) + (c3-linearize-loop__0 _rhead9255_ _tails9256_))) + _g9352_)) + ((let () (declare (not safe)) (##fx= _g9351_ 3)) + (apply (lambda (_rhead9262_ _tails9263_ _eqpred9264_) (let () (declare (not safe)) (c3-linearize-loop__1 - _rhead9300_ - _tails9301_ - _eqpred9302_))) - _g9397_)) - ((let () (declare (not safe)) (##fx= _g9396_ 4)) - (apply (lambda (_rhead9306_ - _tails9307_ - _eqpred9308_ - _get-name9309_) + _rhead9262_ + _tails9263_ + _eqpred9264_))) + _g9352_)) + ((let () (declare (not safe)) (##fx= _g9351_ 4)) + (apply (lambda (_rhead9268_ + _tails9269_ + _eqpred9270_ + _get-name9271_) (let () (declare (not safe)) (c3-linearize-loop__% - _rhead9306_ - _tails9307_ - _eqpred9308_ - _get-name9309_))) - _g9397_)) + _rhead9268_ + _tails9269_ + _eqpred9270_ + _get-name9271_))) + _g9352_)) (else (##raise-wrong-number-of-arguments-exception c3-linearize-loop - _g9397_)))))) + _g9352_)))))) (define c3-select-next - (lambda (_tails9175_ _eqpred9176_ _err9177_) - (let ((_candidate?9183_ - (lambda (_c9179_) - (let ((__tmp9398 - (lambda (_tail9181_) - (let ((__tmp9399 - (member _c9179_ - (cdr _tail9181_) - _eqpred9176_))) + (lambda (_tails9137_ _eqpred9138_ _err9139_) + (let ((_candidate?9145_ + (lambda (_c9141_) + (let ((__tmp9353 + (lambda (_tail9143_) + (let ((__tmp9354 + (member _c9141_ + (cdr _tail9143_) + _eqpred9138_))) (declare (not safe)) - (not __tmp9399))))) + (not __tmp9354))))) (declare (not safe)) - (andmap1 __tmp9398 _tails9175_))))) - (let _loop9185_ ((_ts9187_ _tails9175_)) - (let* ((_ts91889198_ _ts9187_) - (_else91909206_ (lambda () (_err9177_))) - (_K91929212_ - (lambda (_rts9209_ _c9210_) + (andmap1 __tmp9353 _tails9137_))))) + (let _loop9147_ ((_ts9149_ _tails9137_)) + (let* ((_ts91509160_ _ts9149_) + (_else91529168_ (lambda () (_err9139_))) + (_K91549174_ + (lambda (_rts9171_ _c9172_) (if (let () (declare (not safe)) - (_candidate?9183_ _c9210_)) - _c9210_ + (_candidate?9145_ _c9172_)) + _c9172_ (let () (declare (not safe)) - (_loop9185_ _rts9209_)))))) - (if (let () (declare (not safe)) (##pair? _ts91889198_)) - (let ((_hd91939215_ - (let () (declare (not safe)) (##car _ts91889198_))) - (_tl91949217_ - (let () (declare (not safe)) (##cdr _ts91889198_)))) - (if (let () (declare (not safe)) (##pair? _hd91939215_)) - (let* ((_hd91959220_ + (_loop9147_ _rts9171_)))))) + (if (let () (declare (not safe)) (##pair? _ts91509160_)) + (let ((_hd91559177_ + (let () (declare (not safe)) (##car _ts91509160_))) + (_tl91569179_ + (let () (declare (not safe)) (##cdr _ts91509160_)))) + (if (let () (declare (not safe)) (##pair? _hd91559177_)) + (let* ((_hd91579182_ (let () (declare (not safe)) - (##car _hd91939215_))) - (_c9223_ _hd91959220_) - (_rts9225_ _tl91949217_)) + (##car _hd91559177_))) + (_c9185_ _hd91579182_) + (_rts9187_ _tl91569179_)) (declare (not safe)) - (_K91929212_ _rts9225_ _c9223_)) - (let () (declare (not safe)) (_err9177_)))) - (let () (declare (not safe)) (_err9177_)))))))) + (_K91549174_ _rts9187_ _c9185_)) + (let () (declare (not safe)) (_err9139_)))) + (let () (declare (not safe)) (_err9139_)))))))) (define remove-next!__% - (lambda (_next9107_ _tails9108_ _eqpred9109_) - (let _loop9111_ ((_t9113_ _tails9108_)) - (let* ((_t91149125_ _t9113_) - (_E91179129_ - (lambda () (error '"No clause matching" _t91149125_)))) - (let ((_K91239160_ (lambda () _tails9108_)) - (_K91189137_ - (lambda (_more9133_ _tail9134_ _head9135_) - (if (_eqpred9109_ _head9135_ _next9107_) - (set-car! _t9113_ _tail9134_) + (lambda (_next9069_ _tails9070_ _eqpred9071_) + (let _loop9073_ ((_t9075_ _tails9070_)) + (let* ((_t90769087_ _t9075_) + (_E90799091_ + (lambda () (error '"No clause matching" _t90769087_)))) + (let ((_K90859122_ (lambda () _tails9070_)) + (_K90809099_ + (lambda (_more9095_ _tail9096_ _head9097_) + (if (_eqpred9071_ _head9097_ _next9069_) + (set-car! _t9075_ _tail9096_) '#!void) - (let () (declare (not safe)) (_loop9111_ _more9133_))))) - (let ((_try-match91169156_ + (let () (declare (not safe)) (_loop9073_ _more9095_))))) + (let ((_try-match90789118_ (lambda () - (if (let () (declare (not safe)) (##pair? _t91149125_)) - (let ((_tl91209142_ + (if (let () (declare (not safe)) (##pair? _t90769087_)) + (let ((_tl90829104_ (let () (declare (not safe)) - (##cdr _t91149125_))) - (_hd91199140_ + (##cdr _t90769087_))) + (_hd90819102_ (let () (declare (not safe)) - (##car _t91149125_)))) + (##car _t90769087_)))) (if (let () (declare (not safe)) - (##pair? _hd91199140_)) - (let ((_tl91229147_ + (##pair? _hd90819102_)) + (let ((_tl90849109_ (let () (declare (not safe)) - (##cdr _hd91199140_))) - (_hd91219145_ + (##cdr _hd90819102_))) + (_hd90839107_ (let () (declare (not safe)) - (##car _hd91199140_)))) - (let ((_head9150_ _hd91219145_) - (_tail9152_ _tl91229147_) - (_more9154_ _tl91209142_)) + (##car _hd90819102_)))) + (let ((_head9112_ _hd90839107_) + (_tail9114_ _tl90849109_) + (_more9116_ _tl90829104_)) (let () (declare (not safe)) - (_K91189137_ - _more9154_ - _tail9152_ - _head9150_)))) - (let () (declare (not safe)) (_E91179129_)))) - (let () (declare (not safe)) (_E91179129_)))))) - (if (let () (declare (not safe)) (##null? _t91149125_)) - (let () (declare (not safe)) (_K91239160_)) - (let () (declare (not safe)) (_try-match91169156_))))))))) + (_K90809099_ + _more9116_ + _tail9114_ + _head9112_)))) + (let () (declare (not safe)) (_E90799091_)))) + (let () (declare (not safe)) (_E90799091_)))))) + (if (let () (declare (not safe)) (##null? _t90769087_)) + (let () (declare (not safe)) (_K90859122_)) + (let () (declare (not safe)) (_try-match90789118_))))))))) (define remove-next!__0 - (lambda (_next9166_ _tails9167_) - (let ((_eqpred9169_ eqv?)) + (lambda (_next9128_ _tails9129_) + (let ((_eqpred9131_ eq?)) (declare (not safe)) - (remove-next!__% _next9166_ _tails9167_ _eqpred9169_)))) + (remove-next!__% _next9128_ _tails9129_ _eqpred9131_)))) (define remove-next! - (lambda _g9401_ - (let ((_g9400_ (let () (declare (not safe)) (##length _g9401_)))) - (cond ((let () (declare (not safe)) (##fx= _g9400_ 2)) - (apply (lambda (_next9166_ _tails9167_) + (lambda _g9356_ + (let ((_g9355_ (let () (declare (not safe)) (##length _g9356_)))) + (cond ((let () (declare (not safe)) (##fx= _g9355_ 2)) + (apply (lambda (_next9128_ _tails9129_) (let () (declare (not safe)) - (remove-next!__0 _next9166_ _tails9167_))) - _g9401_)) - ((let () (declare (not safe)) (##fx= _g9400_ 3)) - (apply (lambda (_next9171_ _tails9172_ _eqpred9173_) + (remove-next!__0 _next9128_ _tails9129_))) + _g9356_)) + ((let () (declare (not safe)) (##fx= _g9355_ 3)) + (apply (lambda (_next9133_ _tails9134_ _eqpred9135_) (let () (declare (not safe)) (remove-next!__% - _next9171_ - _tails9172_ - _eqpred9173_))) - _g9401_)) + _next9133_ + _tails9134_ + _eqpred9135_))) + _g9356_)) (else (##raise-wrong-number-of-arguments-exception remove-next! - _g9401_)))))) + _g9356_)))))) (define remove-nulls! - (lambda (_l8993_) - (let* ((_l89949007_ _l8993_) - (_E89989011_ - (lambda () (error '"No clause matching" _l89949007_)))) - (let ((_K90039096_ - (lambda (_r9094_) - (let () (declare (not safe)) (remove-nulls! _r9094_)))) - (_K90009083_ - (lambda (_r9023_) - (let _loop9025_ ((_l9027_ _l8993_) (_r9028_ _r9023_)) - (let* ((_r90299042_ _r9028_) - (_E90339046_ + (lambda (_l8955_) + (let* ((_l89568969_ _l8955_) + (_E89608973_ + (lambda () (error '"No clause matching" _l89568969_)))) + (let ((_K89659058_ + (lambda (_r9056_) + (let () (declare (not safe)) (remove-nulls! _r9056_)))) + (_K89629045_ + (lambda (_r8985_) + (let _loop8987_ ((_l8989_ _l8955_) (_r8990_ _r8985_)) + (let* ((_r89919004_ _r8990_) + (_E89959008_ (lambda () - (error '"No clause matching" _r90299042_)))) - (let ((_K90389073_ - (lambda (_rr9071_) + (error '"No clause matching" _r89919004_)))) + (let ((_K90009035_ + (lambda (_rr9033_) (set-cdr! - _l9027_ + _l8989_ (let () (declare (not safe)) - (remove-nulls! _rr9071_))))) - (_K90359060_ - (lambda (_rr9058_) + (remove-nulls! _rr9033_))))) + (_K89979022_ + (lambda (_rr9020_) (let () (declare (not safe)) - (_loop9025_ _r9028_ _rr9058_)))) - (_K90349051_ (lambda () '#!void))) + (_loop8987_ _r8990_ _rr9020_)))) + (_K89969013_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r90299042_)) - (let ((_tl90409078_ + (##pair? _r89919004_)) + (let ((_tl90029040_ (let () (declare (not safe)) - (##cdr _r90299042_))) - (_hd90399076_ + (##cdr _r89919004_))) + (_hd90019038_ (let () (declare (not safe)) - (##car _r90299042_)))) + (##car _r89919004_)))) (if (let () (declare (not safe)) - (##null? _hd90399076_)) - (let ((_rr9081_ _tl90409078_)) + (##null? _hd90019038_)) + (let ((_rr9043_ _tl90029040_)) (declare (not safe)) - (_K90389073_ _rr9081_)) - (let ((_rr9066_ _tl90409078_)) + (_K90009035_ _rr9043_)) + (let ((_rr9028_ _tl90029040_)) (declare (not safe)) - (_K90359060_ _rr9066_)))) + (_K89979022_ _rr9028_)))) '#!void)))) - _l8993_)) - (_K89999016_ (lambda () _l8993_))) - (if (let () (declare (not safe)) (##pair? _l89949007_)) - (let ((_tl90059101_ - (let () (declare (not safe)) (##cdr _l89949007_))) - (_hd90049099_ - (let () (declare (not safe)) (##car _l89949007_)))) - (if (let () (declare (not safe)) (##null? _hd90049099_)) - (let ((_r9104_ _tl90059101_)) + _l8955_)) + (_K89618978_ (lambda () _l8955_))) + (if (let () (declare (not safe)) (##pair? _l89568969_)) + (let ((_tl89679063_ + (let () (declare (not safe)) (##cdr _l89568969_))) + (_hd89669061_ + (let () (declare (not safe)) (##car _l89568969_)))) + (if (let () (declare (not safe)) (##null? _hd89669061_)) + (let ((_r9066_ _tl89679063_)) (declare (not safe)) - (remove-nulls! _r9104_)) - (let ((_r9089_ _tl90059101_)) + (remove-nulls! _r9066_)) + (let ((_r9051_ _tl89679063_)) (declare (not safe)) - (_K90009083_ _r9089_)))) - (let () (declare (not safe)) (_K89999016_))))))) + (_K89629045_ _r9051_)))) + (let () (declare (not safe)) (_K89618978_))))))) (define append1! - (lambda (_l8988_ _x8989_) - (let ((_l28991_ (let () (declare (not safe)) (cons _x8989_ '())))) - (if (let () (declare (not safe)) (pair? _l8988_)) + (lambda (_l8950_ _x8951_) + (let ((_l28953_ (let () (declare (not safe)) (cons _x8951_ '())))) + (if (let () (declare (not safe)) (pair? _l8950_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l8988_)) - _l28991_) - _l28991_)))) + (let () (declare (not safe)) (##last-pair _l8950_)) + _l28953_) + _l28953_)))) (define append-reverse (lambda (_rev-head8947_ _tail8948_) - (let* ((_rev-head89498958_ _rev-head8947_) - (_E89528962_ - (lambda () (error '"No clause matching" _rev-head89498958_)))) - (let ((_K89548976_ - (lambda (_tl8973_ _hd8974_) - (let ((__tmp9402 - (let () - (declare (not safe)) - (cons _hd8974_ _tail8948_)))) - (declare (not safe)) - (append-reverse _tl8973_ __tmp9402)))) - (_K89538967_ (lambda () _tail8948_))) - (let ((_try-match89518970_ - (lambda () - (if (let () - (declare (not safe)) - (##null? _rev-head89498958_)) - (let () (declare (not safe)) (_K89538967_)) - (let () (declare (not safe)) (_E89528962_)))))) - (if (let () (declare (not safe)) (##pair? _rev-head89498958_)) - (let ((_tl89568981_ - (let () - (declare (not safe)) - (##cdr _rev-head89498958_))) - (_hd89558979_ - (let () - (declare (not safe)) - (##car _rev-head89498958_)))) - (let ((_hd8984_ _hd89558979_) (_tl8986_ _tl89568981_)) - (let () - (declare (not safe)) - (_K89548976_ _tl8986_ _hd8984_)))) - (let () (declare (not safe)) (_try-match89518970_)))))))))) + (let () + (declare (not safe)) + (foldl1 cons _tail8948_ _rev-head8947_)))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 765933b7..0d8dda1b 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1701931848) + (define gerbil/runtime/control::timestamp 1704735467) (begin (define make-promise (lambda (_thunk8635_) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 212e9b8f..097da822 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1701931848) + (define gerbil/runtime/error::timestamp 1704735467) (begin (define Exception::t (let () @@ -15,8 +15,8 @@ (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args12482_ - (apply make-class-instance Exception::t _$args12482_))) + (lambda _$args12438_ + (apply make-class-instance Exception::t _$args12438_))) (define StackTrace::t (let () (declare (not safe)) @@ -30,8 +30,8 @@ (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args12479_ - (apply make-class-instance StackTrace::t _$args12479_))) + (lambda _$args12435_ + (apply make-class-instance StackTrace::t _$args12435_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,15 +49,15 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp12502 - (let ((__tmp12503 + (let ((__tmp12458 + (let ((__tmp12459 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12503)))) + (cons StackTrace::t __tmp12459)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t - __tmp12502 + __tmp12458 '(message irritants where) 'Error '((transparent: . #t)) @@ -65,7 +65,7 @@ (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args12476_ (apply make-class-instance Error::t _$args12476_))) + (lambda _$args12432_ (apply make-class-instance Error::t _$args12432_))) (define Error-message (let () (declare (not safe)) @@ -111,15 +111,15 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'where))) (define RuntimeException::t - (let ((__tmp12504 - (let ((__tmp12505 + (let ((__tmp12460 + (let ((__tmp12461 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12505)))) + (cons StackTrace::t __tmp12461)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t - __tmp12504 + __tmp12460 '(exception) 'RuntimeException '((transparent: . #t)) @@ -127,8 +127,8 @@ (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args12473_ - (apply make-class-instance RuntimeException::t _$args12473_))) + (lambda _$args12429_ + (apply make-class-instance RuntimeException::t _$args12429_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -146,54 +146,54 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'exception))) (define gerbil-exception-handler-hook - (lambda (_exn12468_ _continue12469_) - (let ((_exn12471_ + (lambda (_exn12424_ _continue12425_) + (let ((_exn12427_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12468_)))) + (wrap-runtime-exception _exn12424_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn12471_ _continue12469_)))) + (##repl-exception-handler-hook _exn12427_ _continue12425_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn12464_) + (lambda (_exn12420_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn12464_)) + (class-instance? StackTrace::t _exn12420_)) (if (let () (declare (not safe)) - (slot-ref _exn12464_ 'continuation)) + (slot-ref _exn12420_ 'continuation)) '#!void - (let ((__tmp12506 - (lambda (_cont12466_) + (let ((__tmp12462 + (lambda (_cont12422_) (let () (declare (not safe)) (unchecked-slot-set! - _exn12464_ + _exn12420_ 'continuation - _cont12466_))))) + _cont12422_))))) (declare (not safe)) - (##continuation-capture __tmp12506))) + (##continuation-capture __tmp12462))) '#!void) - (let () (declare (not safe)) (##raise _exn12464_)))) + (let () (declare (not safe)) (##raise _exn12420_)))) (define error - (lambda (_message12461_ . _irritants12462_) + (lambda (_message12417_ . _irritants12418_) (raise (let () (declare (not safe)) (make-class-instance Error::t - _message12461_ + _message12417_ 'irritants: - _irritants12462_))))) + _irritants12418_))))) (define with-exception-handler - (lambda (_handler12454_ _thunk12455_) - (if (let () (declare (not safe)) (procedure? _handler12454_)) + (lambda (_handler12410_ _thunk12411_) + (if (let () (declare (not safe)) (procedure? _handler12410_)) '#!void - (raise (let ((__tmp12507 + (raise (let ((__tmp12463 (let () (declare (not safe)) - (cons _handler12454_ '())))) + (cons _handler12410_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -201,13 +201,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp12507)))) - (if (let () (declare (not safe)) (procedure? _thunk12455_)) + __tmp12463)))) + (if (let () (declare (not safe)) (procedure? _thunk12411_)) '#!void - (raise (let ((__tmp12508 + (raise (let ((__tmp12464 (let () (declare (not safe)) - (cons _thunk12455_ '())))) + (cons _thunk12411_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -215,24 +215,24 @@ 'where: 'with-exception-hander 'irritants: - __tmp12508)))) - (let ((__tmp12509 - (lambda (_exn12457_) - (let ((_exn12459_ + __tmp12464)))) + (let ((__tmp12465 + (lambda (_exn12413_) + (let ((_exn12415_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12457_)))) - (_handler12454_ _exn12459_))))) + (wrap-runtime-exception _exn12413_)))) + (_handler12410_ _exn12415_))))) (declare (not safe)) - (##with-exception-handler __tmp12509 _thunk12455_)))) + (##with-exception-handler __tmp12465 _thunk12411_)))) (define with-catch - (lambda (_handler12447_ _thunk12448_) - (if (let () (declare (not safe)) (procedure? _handler12447_)) + (lambda (_handler12403_ _thunk12404_) + (if (let () (declare (not safe)) (procedure? _handler12403_)) '#!void - (raise (let ((__tmp12510 + (raise (let ((__tmp12466 (let () (declare (not safe)) - (cons _handler12447_ '())))) + (cons _handler12403_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -240,13 +240,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp12510)))) - (if (let () (declare (not safe)) (procedure? _thunk12448_)) + __tmp12466)))) + (if (let () (declare (not safe)) (procedure? _thunk12404_)) '#!void - (raise (let ((__tmp12511 + (raise (let ((__tmp12467 (let () (declare (not safe)) - (cons _thunk12448_ '())))) + (cons _thunk12404_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -254,159 +254,159 @@ 'where: 'with-exception-hander 'irritants: - __tmp12511)))) - (let ((__tmp12512 - (lambda (_cont12450_) + __tmp12467)))) + (let ((__tmp12468 + (lambda (_cont12406_) (with-exception-handler - (lambda (_exn12452_) + (lambda (_exn12408_) (let () (declare (not safe)) (##continuation-graft - _cont12450_ - _handler12447_ - _exn12452_))) - _thunk12448_)))) + _cont12406_ + _handler12403_ + _exn12408_))) + _thunk12404_)))) (declare (not safe)) - (##continuation-capture __tmp12512)))) + (##continuation-capture __tmp12468)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn12438_) - (if (or (heap-overflow-exception? _exn12438_) - (stack-overflow-exception? _exn12438_)) - _exn12438_ + (lambda (_exn12394_) + (if (or (heap-overflow-exception? _exn12394_) + (stack-overflow-exception? _exn12394_)) + _exn12394_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn12438_)) - _exn12438_ - (if (macro-exception? _exn12438_) - (let ((_rte12443_ + (class-instance? Exception::t _exn12394_)) + _exn12394_ + (if (macro-exception? _exn12394_) + (let ((_rte12399_ (let () (declare (not safe)) (make-class-instance RuntimeException::t 'exception: - _exn12438_)))) - (let ((__tmp12513 - (lambda (_cont12445_) - (let ((__tmp12514 + _exn12394_)))) + (let ((__tmp12469 + (lambda (_cont12401_) + (let ((__tmp12470 (let () (declare (not safe)) - (##continuation-next _cont12445_)))) + (##continuation-next _cont12401_)))) (declare (not safe)) (unchecked-slot-set! - _rte12443_ + _rte12399_ 'continuation - __tmp12514))))) + __tmp12470))))) (declare (not safe)) - (##continuation-capture __tmp12513)) - _rte12443_) - _exn12438_))))) + (##continuation-capture __tmp12469)) + _rte12399_) + _exn12394_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj12433_) - (let ((_$e12435_ + (lambda (_obj12389_) + (let ((_$e12391_ (let () (declare (not safe)) - (class-instance? Error::t _obj12433_)))) - (if _$e12435_ _$e12435_ (error-exception? _obj12433_))))) + (class-instance? Error::t _obj12389_)))) + (if _$e12391_ _$e12391_ (error-exception? _obj12389_))))) (define error-message - (lambda (_obj12431_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12431_)) - (let () (declare (not safe)) (slot-ref _obj12431_ 'message)) - (if (error-exception? _obj12431_) - (error-exception-message _obj12431_) + (lambda (_obj12387_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12387_)) + (let () (declare (not safe)) (slot-ref _obj12387_ 'message)) + (if (error-exception? _obj12387_) + (error-exception-message _obj12387_) '#f)))) (define error-irritants - (lambda (_obj12429_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12429_)) - (let () (declare (not safe)) (slot-ref _obj12429_ 'irritants)) - (if (error-exception? _obj12429_) - (error-exception-parameters _obj12429_) + (lambda (_obj12385_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12385_)) + (let () (declare (not safe)) (slot-ref _obj12385_ 'irritants)) + (if (error-exception? _obj12385_) + (error-exception-parameters _obj12385_) '#f)))) (define error-trace - (lambda (_obj12427_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12427_)) - (let () (declare (not safe)) (slot-ref _obj12427_ 'where)) + (lambda (_obj12383_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12383_)) + (let () (declare (not safe)) (slot-ref _obj12383_ 'where)) '#f))) (define display-exception__% - (lambda (_e12409_ _port12410_) - (let ((_$e12412_ + (lambda (_e12365_ _port12366_) + (let ((_$e12368_ (let () (declare (not safe)) - (method-ref _e12409_ 'display-exception)))) - (if _$e12412_ - ((lambda (_f12415_) (_f12415_ _e12409_ _port12410_)) _$e12412_) + (method-ref _e12365_ 'display-exception)))) + (if _$e12368_ + ((lambda (_f12371_) (_f12371_ _e12365_ _port12366_)) _$e12368_) (let () (declare (not safe)) - (##default-display-exception _e12409_ _port12410_)))))) + (##default-display-exception _e12365_ _port12366_)))))) (define display-exception__0 - (lambda (_e12420_) - (let ((_port12422_ (current-error-port))) + (lambda (_e12376_) + (let ((_port12378_ (current-error-port))) (declare (not safe)) - (display-exception__% _e12420_ _port12422_)))) + (display-exception__% _e12376_ _port12378_)))) (define display-exception - (lambda _g12516_ - (let ((_g12515_ (let () (declare (not safe)) (##length _g12516_)))) - (cond ((let () (declare (not safe)) (##fx= _g12515_ 1)) - (apply (lambda (_e12420_) + (lambda _g12472_ + (let ((_g12471_ (let () (declare (not safe)) (##length _g12472_)))) + (cond ((let () (declare (not safe)) (##fx= _g12471_ 1)) + (apply (lambda (_e12376_) (let () (declare (not safe)) - (display-exception__0 _e12420_))) - _g12516_)) - ((let () (declare (not safe)) (##fx= _g12515_ 2)) - (apply (lambda (_e12424_ _port12425_) + (display-exception__0 _e12376_))) + _g12472_)) + ((let () (declare (not safe)) (##fx= _g12471_ 2)) + (apply (lambda (_e12380_ _port12381_) (let () (declare (not safe)) - (display-exception__% _e12424_ _port12425_))) - _g12516_)) + (display-exception__% _e12380_ _port12381_))) + _g12472_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g12516_)))))) + _g12472_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self12398_ _message12399_ . _rest12400_) - (let ((_message12406_ - (if (let () (declare (not safe)) (string? _message12399_)) - _message12399_ + (lambda (_self12354_ _message12355_ . _rest12356_) + (let ((_message12362_ + (if (let () (declare (not safe)) (string? _message12355_)) + _message12355_ (call-with-output-string '"" - (lambda (_g1240112403_) - (display _message12399_ _g1240112403_)))))) + (lambda (_g1235712359_) + (display _message12355_ _g1235712359_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self12398_ 'message _message12406_)) - (apply class-instance-init! _self12398_ _rest12400_)))) + (unchecked-slot-set! _self12354_ 'message _message12362_)) + (apply class-instance-init! _self12354_ _rest12356_)))) (define Error:::init!::specialize - (lambda (__t12484) - (let ((__message12485 - (let ((__tmp12486 + (lambda (__t12440) + (let ((__message12441 + (let ((__tmp12442 (let () (declare (not safe)) - (class-slot-offset __t12484 'message)))) - (if __tmp12486 - (let () (declare (not safe)) (##fx+ __tmp12486 '1)) + (class-slot-offset __t12440 'message)))) + (if __tmp12442 + (let () (declare (not safe)) (##fx+ __tmp12442 '1)) (error '"Unknown slot" 'message))))) - (lambda (_self12398_ _message12399_ . _rest12400_) - (let ((_message12406_ - (if (let () (declare (not safe)) (string? _message12399_)) - _message12399_ + (lambda (_self12354_ _message12355_ . _rest12356_) + (let ((_message12362_ + (if (let () (declare (not safe)) (string? _message12355_)) + _message12355_ (call-with-output-string '"" - (lambda (_g1240112403_) - (display _message12399_ _g1240112403_)))))) + (lambda (_g1235712359_) + (display _message12355_ _g1235712359_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self12398_ - _message12406_ - __message12485 - __t12484 + _self12354_ + _message12362_ + __message12441 + __t12440 '#f)) - (apply class-instance-init! _self12398_ _rest12400_)))))) + (apply class-instance-init! _self12354_ _rest12356_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -415,195 +415,195 @@ (bind-method! Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self12256_ _port12257_) - (let ((_tmp-port12259_ (open-output-string)) - (_display-error-newline12260_ - (> (output-port-column _port12257_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12259_)) - (let ((__tmp12517 + (lambda (_self12212_ _port12213_) + (let ((_tmp-port12215_ (open-output-string)) + (_display-error-newline12216_ + (> (output-port-column _port12213_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12215_)) + (let ((__tmp12473 (lambda () - (if _display-error-newline12260_ (newline) '#!void) + (if _display-error-newline12216_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12263_ + (let ((_$e12219_ (let () (declare (not safe)) - (slot-ref _self12256_ 'where)))) - (if _$e12263_ (display _$e12263_) (display '"?"))) - (let ((__tmp12518 - (let ((__tmp12519 + (slot-ref _self12212_ 'where)))) + (if _$e12219_ (display _$e12219_) (display '"?"))) + (let ((__tmp12474 + (let ((__tmp12475 (let () (declare (not safe)) - (object-type _self12256_)))) + (object-type _self12212_)))) (declare (not safe)) - (##type-name __tmp12519)))) + (##type-name __tmp12475)))) (declare (not safe)) - (display* '" [" __tmp12518 '"]: ")) - (let ((__tmp12520 + (display* '" [" __tmp12474 '"]: ")) + (let ((__tmp12476 (let () (declare (not safe)) - (slot-ref _self12256_ 'message)))) + (slot-ref _self12212_ 'message)))) (declare (not safe)) - (displayln __tmp12520)) - (let ((_irritants12266_ + (displayln __tmp12476)) + (let ((_irritants12222_ (let () (declare (not safe)) - (slot-ref _self12256_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants12266_)) + (slot-ref _self12212_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants12222_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12268_) - (write _obj12268_) + (lambda (_obj12224_) + (write _obj12224_) (write-char '#\space)) - _irritants12266_) + _irritants12222_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self12256_)) + (class-instance? StackTrace::t _self12212_)) (dump-stack-trace?)) - (let ((_cont1226912271_ + (let ((_cont1222512227_ (let () (declare (not safe)) - (slot-ref _self12256_ 'continuation)))) - (if _cont1226912271_ - (let ((_cont12274_ _cont1226912271_)) + (slot-ref _self12212_ 'continuation)))) + (if _cont1222512227_ + (let ((_cont12230_ _cont1222512227_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont12274_)) + (display-continuation-backtrace _cont12230_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12517 + __tmp12473 current-output-port - _tmp-port12259_)) - (let ((__tmp12521 (get-output-string _tmp-port12259_))) + _tmp-port12215_)) + (let ((__tmp12477 (get-output-string _tmp-port12215_))) (declare (not safe)) - (##write-string __tmp12521 _port12257_))))) + (##write-string __tmp12477 _port12213_))))) (define Error::display-exception::specialize - (lambda (__t12487) - (let ((__continuation12488 - (let ((__tmp12492 + (lambda (__t12443) + (let ((__message12444 + (let ((__tmp12448 (let () (declare (not safe)) - (class-slot-offset __t12487 'continuation)))) - (if __tmp12492 - (let () (declare (not safe)) (##fx+ __tmp12492 '1)) - (error '"Unknown slot" 'continuation)))) - (__where12489 - (let ((__tmp12493 + (class-slot-offset __t12443 'message)))) + (if __tmp12448 + (let () (declare (not safe)) (##fx+ __tmp12448 '1)) + (error '"Unknown slot" 'message)))) + (__where12445 + (let ((__tmp12449 (let () (declare (not safe)) - (class-slot-offset __t12487 'where)))) - (if __tmp12493 - (let () (declare (not safe)) (##fx+ __tmp12493 '1)) + (class-slot-offset __t12443 'where)))) + (if __tmp12449 + (let () (declare (not safe)) (##fx+ __tmp12449 '1)) (error '"Unknown slot" 'where)))) - (__irritants12490 - (let ((__tmp12494 + (__irritants12446 + (let ((__tmp12450 (let () (declare (not safe)) - (class-slot-offset __t12487 'irritants)))) - (if __tmp12494 - (let () (declare (not safe)) (##fx+ __tmp12494 '1)) + (class-slot-offset __t12443 'irritants)))) + (if __tmp12450 + (let () (declare (not safe)) (##fx+ __tmp12450 '1)) (error '"Unknown slot" 'irritants)))) - (__message12491 - (let ((__tmp12495 + (__continuation12447 + (let ((__tmp12451 (let () (declare (not safe)) - (class-slot-offset __t12487 'message)))) - (if __tmp12495 - (let () (declare (not safe)) (##fx+ __tmp12495 '1)) - (error '"Unknown slot" 'message)))) - (__class12496 + (class-slot-offset __t12443 'continuation)))) + (if __tmp12451 + (let () (declare (not safe)) (##fx+ __tmp12451 '1)) + (error '"Unknown slot" 'continuation)))) + (__class12452 (let () (declare (not safe)) - (class-subtype? StackTrace::t __t12487)))) - (lambda (_self12256_ _port12257_) - (let ((_tmp-port12259_ (open-output-string)) - (_display-error-newline12260_ - (> (output-port-column _port12257_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12259_)) - (let ((__tmp12522 + (class-subtype? StackTrace::t __t12443)))) + (lambda (_self12212_ _port12213_) + (let ((_tmp-port12215_ (open-output-string)) + (_display-error-newline12216_ + (> (output-port-column _port12213_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12215_)) + (let ((__tmp12478 (lambda () - (if _display-error-newline12260_ (newline) '#!void) + (if _display-error-newline12216_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12263_ + (let ((_$e12219_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12256_ - __where12489 - __t12487 + _self12212_ + __where12445 + __t12443 '#f)))) - (if _$e12263_ (display _$e12263_) (display '"?"))) - (let ((__tmp12523 - (let ((__tmp12524 + (if _$e12219_ (display _$e12219_) (display '"?"))) + (let ((__tmp12479 + (let ((__tmp12480 (let () (declare (not safe)) - (object-type _self12256_)))) + (object-type _self12212_)))) (declare (not safe)) - (##type-name __tmp12524)))) + (##type-name __tmp12480)))) (declare (not safe)) - (display* '" [" __tmp12523 '"]: ")) - (let ((__tmp12525 + (display* '" [" __tmp12479 '"]: ")) + (let ((__tmp12481 (let () (declare (not safe)) (##unchecked-structure-ref - _self12256_ - __message12491 - __t12487 + _self12212_ + __message12444 + __t12443 '#f)))) (declare (not safe)) - (displayln __tmp12525)) - (let ((_irritants12266_ + (displayln __tmp12481)) + (let ((_irritants12222_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12256_ - __irritants12490 - __t12487 + _self12212_ + __irritants12446 + __t12443 '#f)))) (if (let () (declare (not safe)) - (null? _irritants12266_)) + (null? _irritants12222_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12268_) - (write _obj12268_) + (lambda (_obj12224_) + (write _obj12224_) (write-char '#\space)) - _irritants12266_) + _irritants12222_) (newline)))) - (if (and __class12496 (dump-stack-trace?)) - (let ((_cont1226912271_ + (if (and __class12452 (dump-stack-trace?)) + (let ((_cont1222512227_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12256_ - __continuation12488 - __t12487 + _self12212_ + __continuation12447 + __t12443 '#f)))) - (if _cont1226912271_ - (let ((_cont12274_ _cont1226912271_)) + (if _cont1222512227_ + (let ((_cont12230_ _cont1222512227_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont12274_)) + _cont12230_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12522 + __tmp12478 current-output-port - _tmp-port12259_)) - (let ((__tmp12526 (get-output-string _tmp-port12259_))) + _tmp-port12215_)) + (let ((__tmp12482 (get-output-string _tmp-port12215_))) (declare (not safe)) - (##write-string __tmp12526 _port12257_))))))) + (##write-string __tmp12482 _port12213_))))))) (let () (declare (not safe)) (bind-specializer! @@ -613,78 +613,78 @@ (declare (not safe)) (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self12123_ _port12124_) - (let ((_tmp-port12126_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12126_)) - (let ((__tmp12527 + (lambda (_self12079_ _port12080_) + (let ((_tmp-port12082_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12082_)) + (let ((__tmp12483 (let () (declare (not safe)) - (slot-ref _self12123_ 'exception)))) + (slot-ref _self12079_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp12527 _tmp-port12126_)) - (let ((_cont1212712129_ + (##default-display-exception __tmp12483 _tmp-port12082_)) + (let ((_cont1208312085_ (let () (declare (not safe)) - (slot-ref _self12123_ 'continuation)))) - (if _cont1212712129_ - (let ((_cont12132_ _cont1212712129_)) - (display '"--- continuation backtrace:" _tmp-port12126_) - (newline _tmp-port12126_) - (display-continuation-backtrace _cont12132_ _tmp-port12126_)) + (slot-ref _self12079_ 'continuation)))) + (if _cont1208312085_ + (let ((_cont12088_ _cont1208312085_)) + (display '"--- continuation backtrace:" _tmp-port12082_) + (newline _tmp-port12082_) + (display-continuation-backtrace _cont12088_ _tmp-port12082_)) '#f)) - (let ((__tmp12528 (get-output-string _tmp-port12126_))) + (let ((__tmp12484 (get-output-string _tmp-port12082_))) (declare (not safe)) - (##write-string __tmp12528 _port12124_))))) + (##write-string __tmp12484 _port12080_))))) (define RuntimeException::display-exception::specialize - (lambda (__t12497) - (let ((__exception12498 - (let ((__tmp12500 + (lambda (__t12453) + (let ((__continuation12454 + (let ((__tmp12456 (let () (declare (not safe)) - (class-slot-offset __t12497 'exception)))) - (if __tmp12500 - (let () (declare (not safe)) (##fx+ __tmp12500 '1)) - (error '"Unknown slot" 'exception)))) - (__continuation12499 - (let ((__tmp12501 + (class-slot-offset __t12453 'continuation)))) + (if __tmp12456 + (let () (declare (not safe)) (##fx+ __tmp12456 '1)) + (error '"Unknown slot" 'continuation)))) + (__exception12455 + (let ((__tmp12457 (let () (declare (not safe)) - (class-slot-offset __t12497 'continuation)))) - (if __tmp12501 - (let () (declare (not safe)) (##fx+ __tmp12501 '1)) - (error '"Unknown slot" 'continuation))))) - (lambda (_self12123_ _port12124_) - (let ((_tmp-port12126_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12126_)) - (let ((__tmp12529 + (class-slot-offset __t12453 'exception)))) + (if __tmp12457 + (let () (declare (not safe)) (##fx+ __tmp12457 '1)) + (error '"Unknown slot" 'exception))))) + (lambda (_self12079_ _port12080_) + (let ((_tmp-port12082_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12082_)) + (let ((__tmp12485 (let () (declare (not safe)) (##unchecked-structure-ref - _self12123_ - __exception12498 - __t12497 + _self12079_ + __exception12455 + __t12453 '#f)))) (declare (not safe)) - (##default-display-exception __tmp12529 _tmp-port12126_)) - (let ((_cont1212712129_ + (##default-display-exception __tmp12485 _tmp-port12082_)) + (let ((_cont1208312085_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12123_ - __continuation12499 - __t12497 + _self12079_ + __continuation12454 + __t12453 '#f)))) - (if _cont1212712129_ - (let ((_cont12132_ _cont1212712129_)) - (display '"--- continuation backtrace:" _tmp-port12126_) - (newline _tmp-port12126_) + (if _cont1208312085_ + (let ((_cont12088_ _cont1208312085_)) + (display '"--- continuation backtrace:" _tmp-port12082_) + (newline _tmp-port12082_) (display-continuation-backtrace - _cont12132_ - _tmp-port12126_)) + _cont12088_ + _tmp-port12082_)) '#f)) - (let ((__tmp12530 (get-output-string _tmp-port12126_))) + (let ((__tmp12486 (get-output-string _tmp-port12082_))) (declare (not safe)) - (##write-string __tmp12530 _port12124_))))))) + (##write-string __tmp12486 _port12080_))))))) (let () (declare (not safe)) (bind-specializer! @@ -698,3566 +698,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port11995_) - (if (macro-character-port? _port11995_) - (let ((_old-width11997_ - (macro-character-port-output-width _port11995_))) + (lambda (_port11951_) + (if (macro-character-port? _port11951_) + (let ((_old-width11953_ + (macro-character-port-output-width _port11951_))) (macro-character-port-output-width-set! - _port11995_ - (lambda (_port11999_) '256)) - _old-width11997_) + _port11951_ + (lambda (_port11955_) '256)) + _old-width11953_) '#!void))) (define reset-port-width! - (lambda (_port11992_ _old-width11993_) - (if (macro-character-port? _port11992_) + (lambda (_port11948_ _old-width11949_) + (if (macro-character-port? _port11948_) (macro-character-port-output-width-set! - _port11992_ - _old-width11993_) + _port11948_ + _old-width11949_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e11990_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e11990_)))) + (lambda (_e11946_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e11946_)))) (define abandoned-mutex-exception? - (lambda (_exn11984_) + (lambda (_exn11940_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11984_)) - (let ((_e11987_ + (class-instance? RuntimeException::t _exn11940_)) + (let ((_e11943_ (let () (declare (not safe)) - (slot-ref _exn11984_ 'exception)))) - (macro-abandoned-mutex-exception? _e11987_)) - (macro-abandoned-mutex-exception? _exn11984_)))) + (slot-ref _exn11940_ 'exception)))) + (macro-abandoned-mutex-exception? _e11943_)) + (macro-abandoned-mutex-exception? _exn11940_)))) (define cfun-conversion-exception? - (lambda (_exn11980_) + (lambda (_exn11936_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11980_)) - (let ((_e11982_ + (class-instance? RuntimeException::t _exn11936_)) + (let ((_e11938_ (let () (declare (not safe)) - (slot-ref _exn11980_ 'exception)))) - (macro-cfun-conversion-exception? _e11982_)) - (macro-cfun-conversion-exception? _exn11980_)))) + (slot-ref _exn11936_ 'exception)))) + (macro-cfun-conversion-exception? _e11938_)) + (macro-cfun-conversion-exception? _exn11936_)))) (define cfun-conversion-exception-arguments - (lambda (_exn11976_) + (lambda (_exn11932_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11976_)) - (let ((_e11978_ + (class-instance? RuntimeException::t _exn11932_)) + (let ((_e11934_ (let () (declare (not safe)) - (slot-ref _exn11976_ 'exception)))) - (if (macro-cfun-conversion-exception? _e11978_) - (macro-cfun-conversion-exception-arguments _e11978_) + (slot-ref _exn11932_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11934_) + (macro-cfun-conversion-exception-arguments _e11934_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12532 + (let ((__tmp12488 (let () (declare (not safe)) - (cons _e11978_ '())))) + (cons _e11934_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12532))))) - (if (macro-cfun-conversion-exception? _exn11976_) - (macro-cfun-conversion-exception-arguments _exn11976_) + __tmp12488))))) + (if (macro-cfun-conversion-exception? _exn11932_) + (macro-cfun-conversion-exception-arguments _exn11932_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12531 + (let ((__tmp12487 (let () (declare (not safe)) - (cons _exn11976_ '())))) + (cons _exn11932_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12531))))))) + __tmp12487))))))) (define cfun-conversion-exception-code - (lambda (_exn11972_) + (lambda (_exn11928_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11972_)) - (let ((_e11974_ + (class-instance? RuntimeException::t _exn11928_)) + (let ((_e11930_ (let () (declare (not safe)) - (slot-ref _exn11972_ 'exception)))) - (if (macro-cfun-conversion-exception? _e11974_) - (macro-cfun-conversion-exception-code _e11974_) + (slot-ref _exn11928_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11930_) + (macro-cfun-conversion-exception-code _e11930_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12534 + (let ((__tmp12490 (let () (declare (not safe)) - (cons _e11974_ '())))) + (cons _e11930_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12534))))) - (if (macro-cfun-conversion-exception? _exn11972_) - (macro-cfun-conversion-exception-code _exn11972_) + __tmp12490))))) + (if (macro-cfun-conversion-exception? _exn11928_) + (macro-cfun-conversion-exception-code _exn11928_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12533 + (let ((__tmp12489 (let () (declare (not safe)) - (cons _exn11972_ '())))) + (cons _exn11928_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12533))))))) + __tmp12489))))))) (define cfun-conversion-exception-message - (lambda (_exn11968_) + (lambda (_exn11924_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11968_)) - (let ((_e11970_ + (class-instance? RuntimeException::t _exn11924_)) + (let ((_e11926_ (let () (declare (not safe)) - (slot-ref _exn11968_ 'exception)))) - (if (macro-cfun-conversion-exception? _e11970_) - (macro-cfun-conversion-exception-message _e11970_) + (slot-ref _exn11924_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11926_) + (macro-cfun-conversion-exception-message _e11926_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12536 + (let ((__tmp12492 (let () (declare (not safe)) - (cons _e11970_ '())))) + (cons _e11926_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12536))))) - (if (macro-cfun-conversion-exception? _exn11968_) - (macro-cfun-conversion-exception-message _exn11968_) + __tmp12492))))) + (if (macro-cfun-conversion-exception? _exn11924_) + (macro-cfun-conversion-exception-message _exn11924_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12535 + (let ((__tmp12491 (let () (declare (not safe)) - (cons _exn11968_ '())))) + (cons _exn11924_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12535))))))) + __tmp12491))))))) (define cfun-conversion-exception-procedure - (lambda (_exn11962_) + (lambda (_exn11918_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11962_)) - (let ((_e11965_ + (class-instance? RuntimeException::t _exn11918_)) + (let ((_e11921_ (let () (declare (not safe)) - (slot-ref _exn11962_ 'exception)))) - (if (macro-cfun-conversion-exception? _e11965_) - (macro-cfun-conversion-exception-procedure _e11965_) + (slot-ref _exn11918_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11921_) + (macro-cfun-conversion-exception-procedure _e11921_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12538 + (let ((__tmp12494 (let () (declare (not safe)) - (cons _e11965_ '())))) + (cons _e11921_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12538))))) - (if (macro-cfun-conversion-exception? _exn11962_) - (macro-cfun-conversion-exception-procedure _exn11962_) + __tmp12494))))) + (if (macro-cfun-conversion-exception? _exn11918_) + (macro-cfun-conversion-exception-procedure _exn11918_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12537 + (let ((__tmp12493 (let () (declare (not safe)) - (cons _exn11962_ '())))) + (cons _exn11918_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12537))))))) + __tmp12493))))))) (define datum-parsing-exception? - (lambda (_exn11958_) + (lambda (_exn11914_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11958_)) - (let ((_e11960_ + (class-instance? RuntimeException::t _exn11914_)) + (let ((_e11916_ (let () (declare (not safe)) - (slot-ref _exn11958_ 'exception)))) - (macro-datum-parsing-exception? _e11960_)) - (macro-datum-parsing-exception? _exn11958_)))) + (slot-ref _exn11914_ 'exception)))) + (macro-datum-parsing-exception? _e11916_)) + (macro-datum-parsing-exception? _exn11914_)))) (define datum-parsing-exception-kind - (lambda (_exn11954_) + (lambda (_exn11910_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11954_)) - (let ((_e11956_ + (class-instance? RuntimeException::t _exn11910_)) + (let ((_e11912_ (let () (declare (not safe)) - (slot-ref _exn11954_ 'exception)))) - (if (macro-datum-parsing-exception? _e11956_) - (macro-datum-parsing-exception-kind _e11956_) + (slot-ref _exn11910_ 'exception)))) + (if (macro-datum-parsing-exception? _e11912_) + (macro-datum-parsing-exception-kind _e11912_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12540 + (let ((__tmp12496 (let () (declare (not safe)) - (cons _e11956_ '())))) + (cons _e11912_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp12540))))) - (if (macro-datum-parsing-exception? _exn11954_) - (macro-datum-parsing-exception-kind _exn11954_) + (cons 'datum-parsing-exception-kind __tmp12496))))) + (if (macro-datum-parsing-exception? _exn11910_) + (macro-datum-parsing-exception-kind _exn11910_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12539 + (let ((__tmp12495 (let () (declare (not safe)) - (cons _exn11954_ '())))) + (cons _exn11910_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp12539))))))) + (cons 'datum-parsing-exception-kind __tmp12495))))))) (define datum-parsing-exception-parameters - (lambda (_exn11950_) + (lambda (_exn11906_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11950_)) - (let ((_e11952_ + (class-instance? RuntimeException::t _exn11906_)) + (let ((_e11908_ (let () (declare (not safe)) - (slot-ref _exn11950_ 'exception)))) - (if (macro-datum-parsing-exception? _e11952_) - (macro-datum-parsing-exception-parameters _e11952_) + (slot-ref _exn11906_ 'exception)))) + (if (macro-datum-parsing-exception? _e11908_) + (macro-datum-parsing-exception-parameters _e11908_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12542 + (let ((__tmp12498 (let () (declare (not safe)) - (cons _e11952_ '())))) + (cons _e11908_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12542))))) - (if (macro-datum-parsing-exception? _exn11950_) - (macro-datum-parsing-exception-parameters _exn11950_) + __tmp12498))))) + (if (macro-datum-parsing-exception? _exn11906_) + (macro-datum-parsing-exception-parameters _exn11906_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12541 + (let ((__tmp12497 (let () (declare (not safe)) - (cons _exn11950_ '())))) + (cons _exn11906_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12541))))))) + __tmp12497))))))) (define datum-parsing-exception-readenv - (lambda (_exn11944_) + (lambda (_exn11900_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11944_)) - (let ((_e11947_ + (class-instance? RuntimeException::t _exn11900_)) + (let ((_e11903_ (let () (declare (not safe)) - (slot-ref _exn11944_ 'exception)))) - (if (macro-datum-parsing-exception? _e11947_) - (macro-datum-parsing-exception-readenv _e11947_) + (slot-ref _exn11900_ 'exception)))) + (if (macro-datum-parsing-exception? _e11903_) + (macro-datum-parsing-exception-readenv _e11903_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12544 + (let ((__tmp12500 (let () (declare (not safe)) - (cons _e11947_ '())))) + (cons _e11903_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12544))))) - (if (macro-datum-parsing-exception? _exn11944_) - (macro-datum-parsing-exception-readenv _exn11944_) + __tmp12500))))) + (if (macro-datum-parsing-exception? _exn11900_) + (macro-datum-parsing-exception-readenv _exn11900_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12543 + (let ((__tmp12499 (let () (declare (not safe)) - (cons _exn11944_ '())))) + (cons _exn11900_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12543))))))) + __tmp12499))))))) (define deadlock-exception? - (lambda (_exn11938_) + (lambda (_exn11894_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11938_)) - (let ((_e11941_ + (class-instance? RuntimeException::t _exn11894_)) + (let ((_e11897_ (let () (declare (not safe)) - (slot-ref _exn11938_ 'exception)))) - (macro-deadlock-exception? _e11941_)) - (macro-deadlock-exception? _exn11938_)))) + (slot-ref _exn11894_ 'exception)))) + (macro-deadlock-exception? _e11897_)) + (macro-deadlock-exception? _exn11894_)))) (define divide-by-zero-exception? - (lambda (_exn11934_) + (lambda (_exn11890_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11934_)) - (let ((_e11936_ + (class-instance? RuntimeException::t _exn11890_)) + (let ((_e11892_ (let () (declare (not safe)) - (slot-ref _exn11934_ 'exception)))) - (macro-divide-by-zero-exception? _e11936_)) - (macro-divide-by-zero-exception? _exn11934_)))) + (slot-ref _exn11890_ 'exception)))) + (macro-divide-by-zero-exception? _e11892_)) + (macro-divide-by-zero-exception? _exn11890_)))) (define divide-by-zero-exception-arguments - (lambda (_exn11930_) + (lambda (_exn11886_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11930_)) - (let ((_e11932_ + (class-instance? RuntimeException::t _exn11886_)) + (let ((_e11888_ (let () (declare (not safe)) - (slot-ref _exn11930_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11932_) - (macro-divide-by-zero-exception-arguments _e11932_) + (slot-ref _exn11886_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11888_) + (macro-divide-by-zero-exception-arguments _e11888_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12546 + (let ((__tmp12502 (let () (declare (not safe)) - (cons _e11932_ '())))) + (cons _e11888_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12546))))) - (if (macro-divide-by-zero-exception? _exn11930_) - (macro-divide-by-zero-exception-arguments _exn11930_) + __tmp12502))))) + (if (macro-divide-by-zero-exception? _exn11886_) + (macro-divide-by-zero-exception-arguments _exn11886_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12545 + (let ((__tmp12501 (let () (declare (not safe)) - (cons _exn11930_ '())))) + (cons _exn11886_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12545))))))) + __tmp12501))))))) (define divide-by-zero-exception-procedure - (lambda (_exn11924_) + (lambda (_exn11880_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11924_)) - (let ((_e11927_ + (class-instance? RuntimeException::t _exn11880_)) + (let ((_e11883_ (let () (declare (not safe)) - (slot-ref _exn11924_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11927_) - (macro-divide-by-zero-exception-procedure _e11927_) + (slot-ref _exn11880_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11883_) + (macro-divide-by-zero-exception-procedure _e11883_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12548 + (let ((__tmp12504 (let () (declare (not safe)) - (cons _e11927_ '())))) + (cons _e11883_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12548))))) - (if (macro-divide-by-zero-exception? _exn11924_) - (macro-divide-by-zero-exception-procedure _exn11924_) + __tmp12504))))) + (if (macro-divide-by-zero-exception? _exn11880_) + (macro-divide-by-zero-exception-procedure _exn11880_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12547 + (let ((__tmp12503 (let () (declare (not safe)) - (cons _exn11924_ '())))) + (cons _exn11880_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12547))))))) + __tmp12503))))))) (define error-exception? - (lambda (_exn11920_) + (lambda (_exn11876_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11920_)) - (let ((_e11922_ + (class-instance? RuntimeException::t _exn11876_)) + (let ((_e11878_ (let () (declare (not safe)) - (slot-ref _exn11920_ 'exception)))) - (macro-error-exception? _e11922_)) - (macro-error-exception? _exn11920_)))) + (slot-ref _exn11876_ 'exception)))) + (macro-error-exception? _e11878_)) + (macro-error-exception? _exn11876_)))) (define error-exception-message - (lambda (_exn11916_) + (lambda (_exn11872_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11916_)) - (let ((_e11918_ + (class-instance? RuntimeException::t _exn11872_)) + (let ((_e11874_ (let () (declare (not safe)) - (slot-ref _exn11916_ 'exception)))) - (if (macro-error-exception? _e11918_) - (macro-error-exception-message _e11918_) + (slot-ref _exn11872_ 'exception)))) + (if (macro-error-exception? _e11874_) + (macro-error-exception-message _e11874_) (error '"not an instance" 'error-exception? - (let ((__tmp12550 + (let ((__tmp12506 (let () (declare (not safe)) - (cons _e11918_ '())))) + (cons _e11874_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12550))))) - (if (macro-error-exception? _exn11916_) - (macro-error-exception-message _exn11916_) + (cons 'error-exception-message __tmp12506))))) + (if (macro-error-exception? _exn11872_) + (macro-error-exception-message _exn11872_) (error '"not an instance" 'error-exception? - (let ((__tmp12549 + (let ((__tmp12505 (let () (declare (not safe)) - (cons _exn11916_ '())))) + (cons _exn11872_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12549))))))) + (cons 'error-exception-message __tmp12505))))))) (define error-exception-parameters - (lambda (_exn11910_) + (lambda (_exn11866_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11910_)) - (let ((_e11913_ + (class-instance? RuntimeException::t _exn11866_)) + (let ((_e11869_ (let () (declare (not safe)) - (slot-ref _exn11910_ 'exception)))) - (if (macro-error-exception? _e11913_) - (macro-error-exception-parameters _e11913_) + (slot-ref _exn11866_ 'exception)))) + (if (macro-error-exception? _e11869_) + (macro-error-exception-parameters _e11869_) (error '"not an instance" 'error-exception? - (let ((__tmp12552 + (let ((__tmp12508 (let () (declare (not safe)) - (cons _e11913_ '())))) + (cons _e11869_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12552))))) - (if (macro-error-exception? _exn11910_) - (macro-error-exception-parameters _exn11910_) + (cons 'error-exception-parameters __tmp12508))))) + (if (macro-error-exception? _exn11866_) + (macro-error-exception-parameters _exn11866_) (error '"not an instance" 'error-exception? - (let ((__tmp12551 + (let ((__tmp12507 (let () (declare (not safe)) - (cons _exn11910_ '())))) + (cons _exn11866_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12551))))))) + (cons 'error-exception-parameters __tmp12507))))))) (define expression-parsing-exception? - (lambda (_exn11906_) + (lambda (_exn11862_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11906_)) - (let ((_e11908_ + (class-instance? RuntimeException::t _exn11862_)) + (let ((_e11864_ (let () (declare (not safe)) - (slot-ref _exn11906_ 'exception)))) - (macro-expression-parsing-exception? _e11908_)) - (macro-expression-parsing-exception? _exn11906_)))) + (slot-ref _exn11862_ 'exception)))) + (macro-expression-parsing-exception? _e11864_)) + (macro-expression-parsing-exception? _exn11862_)))) (define expression-parsing-exception-kind - (lambda (_exn11902_) + (lambda (_exn11858_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11902_)) - (let ((_e11904_ + (class-instance? RuntimeException::t _exn11858_)) + (let ((_e11860_ (let () (declare (not safe)) - (slot-ref _exn11902_ 'exception)))) - (if (macro-expression-parsing-exception? _e11904_) - (macro-expression-parsing-exception-kind _e11904_) + (slot-ref _exn11858_ 'exception)))) + (if (macro-expression-parsing-exception? _e11860_) + (macro-expression-parsing-exception-kind _e11860_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12554 + (let ((__tmp12510 (let () (declare (not safe)) - (cons _e11904_ '())))) + (cons _e11860_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12554))))) - (if (macro-expression-parsing-exception? _exn11902_) - (macro-expression-parsing-exception-kind _exn11902_) + __tmp12510))))) + (if (macro-expression-parsing-exception? _exn11858_) + (macro-expression-parsing-exception-kind _exn11858_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12553 + (let ((__tmp12509 (let () (declare (not safe)) - (cons _exn11902_ '())))) + (cons _exn11858_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12553))))))) + __tmp12509))))))) (define expression-parsing-exception-parameters - (lambda (_exn11898_) + (lambda (_exn11854_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11898_)) - (let ((_e11900_ + (class-instance? RuntimeException::t _exn11854_)) + (let ((_e11856_ (let () (declare (not safe)) - (slot-ref _exn11898_ 'exception)))) - (if (macro-expression-parsing-exception? _e11900_) - (macro-expression-parsing-exception-parameters _e11900_) + (slot-ref _exn11854_ 'exception)))) + (if (macro-expression-parsing-exception? _e11856_) + (macro-expression-parsing-exception-parameters _e11856_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12556 + (let ((__tmp12512 (let () (declare (not safe)) - (cons _e11900_ '())))) + (cons _e11856_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12556))))) - (if (macro-expression-parsing-exception? _exn11898_) - (macro-expression-parsing-exception-parameters _exn11898_) + __tmp12512))))) + (if (macro-expression-parsing-exception? _exn11854_) + (macro-expression-parsing-exception-parameters _exn11854_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12555 + (let ((__tmp12511 (let () (declare (not safe)) - (cons _exn11898_ '())))) + (cons _exn11854_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12555))))))) + __tmp12511))))))) (define expression-parsing-exception-source - (lambda (_exn11892_) + (lambda (_exn11848_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11892_)) - (let ((_e11895_ + (class-instance? RuntimeException::t _exn11848_)) + (let ((_e11851_ (let () (declare (not safe)) - (slot-ref _exn11892_ 'exception)))) - (if (macro-expression-parsing-exception? _e11895_) - (macro-expression-parsing-exception-source _e11895_) + (slot-ref _exn11848_ 'exception)))) + (if (macro-expression-parsing-exception? _e11851_) + (macro-expression-parsing-exception-source _e11851_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12558 + (let ((__tmp12514 (let () (declare (not safe)) - (cons _e11895_ '())))) + (cons _e11851_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12558))))) - (if (macro-expression-parsing-exception? _exn11892_) - (macro-expression-parsing-exception-source _exn11892_) + __tmp12514))))) + (if (macro-expression-parsing-exception? _exn11848_) + (macro-expression-parsing-exception-source _exn11848_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12557 + (let ((__tmp12513 (let () (declare (not safe)) - (cons _exn11892_ '())))) + (cons _exn11848_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12557))))))) + __tmp12513))))))) (define file-exists-exception? - (lambda (_exn11888_) + (lambda (_exn11844_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11888_)) - (let ((_e11890_ + (class-instance? RuntimeException::t _exn11844_)) + (let ((_e11846_ (let () (declare (not safe)) - (slot-ref _exn11888_ 'exception)))) - (macro-file-exists-exception? _e11890_)) - (macro-file-exists-exception? _exn11888_)))) + (slot-ref _exn11844_ 'exception)))) + (macro-file-exists-exception? _e11846_)) + (macro-file-exists-exception? _exn11844_)))) (define file-exists-exception-arguments - (lambda (_exn11884_) + (lambda (_exn11840_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11884_)) - (let ((_e11886_ + (class-instance? RuntimeException::t _exn11840_)) + (let ((_e11842_ (let () (declare (not safe)) - (slot-ref _exn11884_ 'exception)))) - (if (macro-file-exists-exception? _e11886_) - (macro-file-exists-exception-arguments _e11886_) + (slot-ref _exn11840_ 'exception)))) + (if (macro-file-exists-exception? _e11842_) + (macro-file-exists-exception-arguments _e11842_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12560 + (let ((__tmp12516 (let () (declare (not safe)) - (cons _e11886_ '())))) + (cons _e11842_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12560))))) - (if (macro-file-exists-exception? _exn11884_) - (macro-file-exists-exception-arguments _exn11884_) + __tmp12516))))) + (if (macro-file-exists-exception? _exn11840_) + (macro-file-exists-exception-arguments _exn11840_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12559 + (let ((__tmp12515 (let () (declare (not safe)) - (cons _exn11884_ '())))) + (cons _exn11840_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12559))))))) + __tmp12515))))))) (define file-exists-exception-procedure - (lambda (_exn11878_) + (lambda (_exn11834_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11878_)) - (let ((_e11881_ + (class-instance? RuntimeException::t _exn11834_)) + (let ((_e11837_ (let () (declare (not safe)) - (slot-ref _exn11878_ 'exception)))) - (if (macro-file-exists-exception? _e11881_) - (macro-file-exists-exception-procedure _e11881_) + (slot-ref _exn11834_ 'exception)))) + (if (macro-file-exists-exception? _e11837_) + (macro-file-exists-exception-procedure _e11837_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12562 + (let ((__tmp12518 (let () (declare (not safe)) - (cons _e11881_ '())))) + (cons _e11837_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12562))))) - (if (macro-file-exists-exception? _exn11878_) - (macro-file-exists-exception-procedure _exn11878_) + __tmp12518))))) + (if (macro-file-exists-exception? _exn11834_) + (macro-file-exists-exception-procedure _exn11834_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12561 + (let ((__tmp12517 (let () (declare (not safe)) - (cons _exn11878_ '())))) + (cons _exn11834_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12561))))))) + __tmp12517))))))) (define fixnum-overflow-exception? - (lambda (_exn11874_) + (lambda (_exn11830_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11874_)) - (let ((_e11876_ + (class-instance? RuntimeException::t _exn11830_)) + (let ((_e11832_ (let () (declare (not safe)) - (slot-ref _exn11874_ 'exception)))) - (macro-fixnum-overflow-exception? _e11876_)) - (macro-fixnum-overflow-exception? _exn11874_)))) + (slot-ref _exn11830_ 'exception)))) + (macro-fixnum-overflow-exception? _e11832_)) + (macro-fixnum-overflow-exception? _exn11830_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn11870_) + (lambda (_exn11826_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11870_)) - (let ((_e11872_ + (class-instance? RuntimeException::t _exn11826_)) + (let ((_e11828_ (let () (declare (not safe)) - (slot-ref _exn11870_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11872_) - (macro-fixnum-overflow-exception-arguments _e11872_) + (slot-ref _exn11826_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11828_) + (macro-fixnum-overflow-exception-arguments _e11828_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12564 + (let ((__tmp12520 (let () (declare (not safe)) - (cons _e11872_ '())))) + (cons _e11828_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12564))))) - (if (macro-fixnum-overflow-exception? _exn11870_) - (macro-fixnum-overflow-exception-arguments _exn11870_) + __tmp12520))))) + (if (macro-fixnum-overflow-exception? _exn11826_) + (macro-fixnum-overflow-exception-arguments _exn11826_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12563 + (let ((__tmp12519 (let () (declare (not safe)) - (cons _exn11870_ '())))) + (cons _exn11826_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12563))))))) + __tmp12519))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn11864_) + (lambda (_exn11820_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11864_)) - (let ((_e11867_ + (class-instance? RuntimeException::t _exn11820_)) + (let ((_e11823_ (let () (declare (not safe)) - (slot-ref _exn11864_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11867_) - (macro-fixnum-overflow-exception-procedure _e11867_) + (slot-ref _exn11820_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11823_) + (macro-fixnum-overflow-exception-procedure _e11823_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12566 + (let ((__tmp12522 (let () (declare (not safe)) - (cons _e11867_ '())))) + (cons _e11823_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12566))))) - (if (macro-fixnum-overflow-exception? _exn11864_) - (macro-fixnum-overflow-exception-procedure _exn11864_) + __tmp12522))))) + (if (macro-fixnum-overflow-exception? _exn11820_) + (macro-fixnum-overflow-exception-procedure _exn11820_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12565 + (let ((__tmp12521 (let () (declare (not safe)) - (cons _exn11864_ '())))) + (cons _exn11820_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12565))))))) + __tmp12521))))))) (define heap-overflow-exception? - (lambda (_exn11858_) + (lambda (_exn11814_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11858_)) - (let ((_e11861_ + (class-instance? RuntimeException::t _exn11814_)) + (let ((_e11817_ (let () (declare (not safe)) - (slot-ref _exn11858_ 'exception)))) - (macro-heap-overflow-exception? _e11861_)) - (macro-heap-overflow-exception? _exn11858_)))) + (slot-ref _exn11814_ 'exception)))) + (macro-heap-overflow-exception? _e11817_)) + (macro-heap-overflow-exception? _exn11814_)))) (define inactive-thread-exception? - (lambda (_exn11854_) + (lambda (_exn11810_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11854_)) - (let ((_e11856_ + (class-instance? RuntimeException::t _exn11810_)) + (let ((_e11812_ (let () (declare (not safe)) - (slot-ref _exn11854_ 'exception)))) - (macro-inactive-thread-exception? _e11856_)) - (macro-inactive-thread-exception? _exn11854_)))) + (slot-ref _exn11810_ 'exception)))) + (macro-inactive-thread-exception? _e11812_)) + (macro-inactive-thread-exception? _exn11810_)))) (define inactive-thread-exception-arguments - (lambda (_exn11850_) + (lambda (_exn11806_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11850_)) - (let ((_e11852_ + (class-instance? RuntimeException::t _exn11806_)) + (let ((_e11808_ (let () (declare (not safe)) - (slot-ref _exn11850_ 'exception)))) - (if (macro-inactive-thread-exception? _e11852_) - (macro-inactive-thread-exception-arguments _e11852_) + (slot-ref _exn11806_ 'exception)))) + (if (macro-inactive-thread-exception? _e11808_) + (macro-inactive-thread-exception-arguments _e11808_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12568 + (let ((__tmp12524 (let () (declare (not safe)) - (cons _e11852_ '())))) + (cons _e11808_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12568))))) - (if (macro-inactive-thread-exception? _exn11850_) - (macro-inactive-thread-exception-arguments _exn11850_) + __tmp12524))))) + (if (macro-inactive-thread-exception? _exn11806_) + (macro-inactive-thread-exception-arguments _exn11806_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12567 + (let ((__tmp12523 (let () (declare (not safe)) - (cons _exn11850_ '())))) + (cons _exn11806_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12567))))))) + __tmp12523))))))) (define inactive-thread-exception-procedure - (lambda (_exn11844_) + (lambda (_exn11800_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11844_)) - (let ((_e11847_ + (class-instance? RuntimeException::t _exn11800_)) + (let ((_e11803_ (let () (declare (not safe)) - (slot-ref _exn11844_ 'exception)))) - (if (macro-inactive-thread-exception? _e11847_) - (macro-inactive-thread-exception-procedure _e11847_) + (slot-ref _exn11800_ 'exception)))) + (if (macro-inactive-thread-exception? _e11803_) + (macro-inactive-thread-exception-procedure _e11803_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12570 + (let ((__tmp12526 (let () (declare (not safe)) - (cons _e11847_ '())))) + (cons _e11803_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12570))))) - (if (macro-inactive-thread-exception? _exn11844_) - (macro-inactive-thread-exception-procedure _exn11844_) + __tmp12526))))) + (if (macro-inactive-thread-exception? _exn11800_) + (macro-inactive-thread-exception-procedure _exn11800_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12569 + (let ((__tmp12525 (let () (declare (not safe)) - (cons _exn11844_ '())))) + (cons _exn11800_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12569))))))) + __tmp12525))))))) (define initialized-thread-exception? - (lambda (_exn11840_) + (lambda (_exn11796_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11840_)) - (let ((_e11842_ + (class-instance? RuntimeException::t _exn11796_)) + (let ((_e11798_ (let () (declare (not safe)) - (slot-ref _exn11840_ 'exception)))) - (macro-initialized-thread-exception? _e11842_)) - (macro-initialized-thread-exception? _exn11840_)))) + (slot-ref _exn11796_ 'exception)))) + (macro-initialized-thread-exception? _e11798_)) + (macro-initialized-thread-exception? _exn11796_)))) (define initialized-thread-exception-arguments - (lambda (_exn11836_) + (lambda (_exn11792_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11836_)) - (let ((_e11838_ + (class-instance? RuntimeException::t _exn11792_)) + (let ((_e11794_ (let () (declare (not safe)) - (slot-ref _exn11836_ 'exception)))) - (if (macro-initialized-thread-exception? _e11838_) - (macro-initialized-thread-exception-arguments _e11838_) + (slot-ref _exn11792_ 'exception)))) + (if (macro-initialized-thread-exception? _e11794_) + (macro-initialized-thread-exception-arguments _e11794_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12572 + (let ((__tmp12528 (let () (declare (not safe)) - (cons _e11838_ '())))) + (cons _e11794_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12572))))) - (if (macro-initialized-thread-exception? _exn11836_) - (macro-initialized-thread-exception-arguments _exn11836_) + __tmp12528))))) + (if (macro-initialized-thread-exception? _exn11792_) + (macro-initialized-thread-exception-arguments _exn11792_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12571 + (let ((__tmp12527 (let () (declare (not safe)) - (cons _exn11836_ '())))) + (cons _exn11792_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12571))))))) + __tmp12527))))))) (define initialized-thread-exception-procedure - (lambda (_exn11830_) + (lambda (_exn11786_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11830_)) - (let ((_e11833_ + (class-instance? RuntimeException::t _exn11786_)) + (let ((_e11789_ (let () (declare (not safe)) - (slot-ref _exn11830_ 'exception)))) - (if (macro-initialized-thread-exception? _e11833_) - (macro-initialized-thread-exception-procedure _e11833_) + (slot-ref _exn11786_ 'exception)))) + (if (macro-initialized-thread-exception? _e11789_) + (macro-initialized-thread-exception-procedure _e11789_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12574 + (let ((__tmp12530 (let () (declare (not safe)) - (cons _e11833_ '())))) + (cons _e11789_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12574))))) - (if (macro-initialized-thread-exception? _exn11830_) - (macro-initialized-thread-exception-procedure _exn11830_) + __tmp12530))))) + (if (macro-initialized-thread-exception? _exn11786_) + (macro-initialized-thread-exception-procedure _exn11786_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12573 + (let ((__tmp12529 (let () (declare (not safe)) - (cons _exn11830_ '())))) + (cons _exn11786_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12573))))))) + __tmp12529))))))) (define invalid-hash-number-exception? - (lambda (_exn11826_) + (lambda (_exn11782_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11826_)) - (let ((_e11828_ + (class-instance? RuntimeException::t _exn11782_)) + (let ((_e11784_ (let () (declare (not safe)) - (slot-ref _exn11826_ 'exception)))) - (macro-invalid-hash-number-exception? _e11828_)) - (macro-invalid-hash-number-exception? _exn11826_)))) + (slot-ref _exn11782_ 'exception)))) + (macro-invalid-hash-number-exception? _e11784_)) + (macro-invalid-hash-number-exception? _exn11782_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn11822_) + (lambda (_exn11778_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11822_)) - (let ((_e11824_ + (class-instance? RuntimeException::t _exn11778_)) + (let ((_e11780_ (let () (declare (not safe)) - (slot-ref _exn11822_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11824_) - (macro-invalid-hash-number-exception-arguments _e11824_) + (slot-ref _exn11778_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11780_) + (macro-invalid-hash-number-exception-arguments _e11780_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12576 + (let ((__tmp12532 (let () (declare (not safe)) - (cons _e11824_ '())))) + (cons _e11780_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12576))))) - (if (macro-invalid-hash-number-exception? _exn11822_) - (macro-invalid-hash-number-exception-arguments _exn11822_) + __tmp12532))))) + (if (macro-invalid-hash-number-exception? _exn11778_) + (macro-invalid-hash-number-exception-arguments _exn11778_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12575 + (let ((__tmp12531 (let () (declare (not safe)) - (cons _exn11822_ '())))) + (cons _exn11778_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12575))))))) + __tmp12531))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn11816_) + (lambda (_exn11772_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11816_)) - (let ((_e11819_ + (class-instance? RuntimeException::t _exn11772_)) + (let ((_e11775_ (let () (declare (not safe)) - (slot-ref _exn11816_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11819_) - (macro-invalid-hash-number-exception-procedure _e11819_) + (slot-ref _exn11772_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11775_) + (macro-invalid-hash-number-exception-procedure _e11775_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12578 + (let ((__tmp12534 (let () (declare (not safe)) - (cons _e11819_ '())))) + (cons _e11775_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12578))))) - (if (macro-invalid-hash-number-exception? _exn11816_) - (macro-invalid-hash-number-exception-procedure _exn11816_) + __tmp12534))))) + (if (macro-invalid-hash-number-exception? _exn11772_) + (macro-invalid-hash-number-exception-procedure _exn11772_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12577 + (let ((__tmp12533 (let () (declare (not safe)) - (cons _exn11816_ '())))) + (cons _exn11772_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12577))))))) + __tmp12533))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn11812_) + (lambda (_exn11768_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11812_)) - (let ((_e11814_ + (class-instance? RuntimeException::t _exn11768_)) + (let ((_e11770_ (let () (declare (not safe)) - (slot-ref _exn11812_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e11814_)) - (macro-invalid-utf8-encoding-exception? _exn11812_)))) + (slot-ref _exn11768_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e11770_)) + (macro-invalid-utf8-encoding-exception? _exn11768_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn11808_) + (lambda (_exn11764_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11808_)) - (let ((_e11810_ + (class-instance? RuntimeException::t _exn11764_)) + (let ((_e11766_ (let () (declare (not safe)) - (slot-ref _exn11808_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11810_) - (macro-invalid-utf8-encoding-exception-arguments _e11810_) + (slot-ref _exn11764_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11766_) + (macro-invalid-utf8-encoding-exception-arguments _e11766_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12580 + (let ((__tmp12536 (let () (declare (not safe)) - (cons _e11810_ '())))) + (cons _e11766_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12580))))) - (if (macro-invalid-utf8-encoding-exception? _exn11808_) - (macro-invalid-utf8-encoding-exception-arguments _exn11808_) + __tmp12536))))) + (if (macro-invalid-utf8-encoding-exception? _exn11764_) + (macro-invalid-utf8-encoding-exception-arguments _exn11764_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12579 + (let ((__tmp12535 (let () (declare (not safe)) - (cons _exn11808_ '())))) + (cons _exn11764_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12579))))))) + __tmp12535))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn11802_) + (lambda (_exn11758_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11802_)) - (let ((_e11805_ + (class-instance? RuntimeException::t _exn11758_)) + (let ((_e11761_ (let () (declare (not safe)) - (slot-ref _exn11802_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11805_) - (macro-invalid-utf8-encoding-exception-procedure _e11805_) + (slot-ref _exn11758_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11761_) + (macro-invalid-utf8-encoding-exception-procedure _e11761_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12582 + (let ((__tmp12538 (let () (declare (not safe)) - (cons _e11805_ '())))) + (cons _e11761_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12582))))) - (if (macro-invalid-utf8-encoding-exception? _exn11802_) - (macro-invalid-utf8-encoding-exception-procedure _exn11802_) + __tmp12538))))) + (if (macro-invalid-utf8-encoding-exception? _exn11758_) + (macro-invalid-utf8-encoding-exception-procedure _exn11758_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12581 + (let ((__tmp12537 (let () (declare (not safe)) - (cons _exn11802_ '())))) + (cons _exn11758_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12581))))))) + __tmp12537))))))) (define join-timeout-exception? - (lambda (_exn11798_) + (lambda (_exn11754_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11798_)) - (let ((_e11800_ + (class-instance? RuntimeException::t _exn11754_)) + (let ((_e11756_ (let () (declare (not safe)) - (slot-ref _exn11798_ 'exception)))) - (macro-join-timeout-exception? _e11800_)) - (macro-join-timeout-exception? _exn11798_)))) + (slot-ref _exn11754_ 'exception)))) + (macro-join-timeout-exception? _e11756_)) + (macro-join-timeout-exception? _exn11754_)))) (define join-timeout-exception-arguments - (lambda (_exn11794_) + (lambda (_exn11750_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11794_)) - (let ((_e11796_ + (class-instance? RuntimeException::t _exn11750_)) + (let ((_e11752_ (let () (declare (not safe)) - (slot-ref _exn11794_ 'exception)))) - (if (macro-join-timeout-exception? _e11796_) - (macro-join-timeout-exception-arguments _e11796_) + (slot-ref _exn11750_ 'exception)))) + (if (macro-join-timeout-exception? _e11752_) + (macro-join-timeout-exception-arguments _e11752_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12584 + (let ((__tmp12540 (let () (declare (not safe)) - (cons _e11796_ '())))) + (cons _e11752_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12584))))) - (if (macro-join-timeout-exception? _exn11794_) - (macro-join-timeout-exception-arguments _exn11794_) + __tmp12540))))) + (if (macro-join-timeout-exception? _exn11750_) + (macro-join-timeout-exception-arguments _exn11750_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12583 + (let ((__tmp12539 (let () (declare (not safe)) - (cons _exn11794_ '())))) + (cons _exn11750_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12583))))))) + __tmp12539))))))) (define join-timeout-exception-procedure - (lambda (_exn11788_) + (lambda (_exn11744_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11788_)) - (let ((_e11791_ + (class-instance? RuntimeException::t _exn11744_)) + (let ((_e11747_ (let () (declare (not safe)) - (slot-ref _exn11788_ 'exception)))) - (if (macro-join-timeout-exception? _e11791_) - (macro-join-timeout-exception-procedure _e11791_) + (slot-ref _exn11744_ 'exception)))) + (if (macro-join-timeout-exception? _e11747_) + (macro-join-timeout-exception-procedure _e11747_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12586 + (let ((__tmp12542 (let () (declare (not safe)) - (cons _e11791_ '())))) + (cons _e11747_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12586))))) - (if (macro-join-timeout-exception? _exn11788_) - (macro-join-timeout-exception-procedure _exn11788_) + __tmp12542))))) + (if (macro-join-timeout-exception? _exn11744_) + (macro-join-timeout-exception-procedure _exn11744_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12585 + (let ((__tmp12541 (let () (declare (not safe)) - (cons _exn11788_ '())))) + (cons _exn11744_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12585))))))) + __tmp12541))))))) (define keyword-expected-exception? - (lambda (_exn11784_) + (lambda (_exn11740_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11784_)) - (let ((_e11786_ + (class-instance? RuntimeException::t _exn11740_)) + (let ((_e11742_ (let () (declare (not safe)) - (slot-ref _exn11784_ 'exception)))) - (macro-keyword-expected-exception? _e11786_)) - (macro-keyword-expected-exception? _exn11784_)))) + (slot-ref _exn11740_ 'exception)))) + (macro-keyword-expected-exception? _e11742_)) + (macro-keyword-expected-exception? _exn11740_)))) (define keyword-expected-exception-arguments - (lambda (_exn11780_) + (lambda (_exn11736_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11780_)) - (let ((_e11782_ + (class-instance? RuntimeException::t _exn11736_)) + (let ((_e11738_ (let () (declare (not safe)) - (slot-ref _exn11780_ 'exception)))) - (if (macro-keyword-expected-exception? _e11782_) - (macro-keyword-expected-exception-arguments _e11782_) + (slot-ref _exn11736_ 'exception)))) + (if (macro-keyword-expected-exception? _e11738_) + (macro-keyword-expected-exception-arguments _e11738_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12588 + (let ((__tmp12544 (let () (declare (not safe)) - (cons _e11782_ '())))) + (cons _e11738_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12588))))) - (if (macro-keyword-expected-exception? _exn11780_) - (macro-keyword-expected-exception-arguments _exn11780_) + __tmp12544))))) + (if (macro-keyword-expected-exception? _exn11736_) + (macro-keyword-expected-exception-arguments _exn11736_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12587 + (let ((__tmp12543 (let () (declare (not safe)) - (cons _exn11780_ '())))) + (cons _exn11736_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12587))))))) + __tmp12543))))))) (define keyword-expected-exception-procedure - (lambda (_exn11774_) + (lambda (_exn11730_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11774_)) - (let ((_e11777_ + (class-instance? RuntimeException::t _exn11730_)) + (let ((_e11733_ (let () (declare (not safe)) - (slot-ref _exn11774_ 'exception)))) - (if (macro-keyword-expected-exception? _e11777_) - (macro-keyword-expected-exception-procedure _e11777_) + (slot-ref _exn11730_ 'exception)))) + (if (macro-keyword-expected-exception? _e11733_) + (macro-keyword-expected-exception-procedure _e11733_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12590 + (let ((__tmp12546 (let () (declare (not safe)) - (cons _e11777_ '())))) + (cons _e11733_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12590))))) - (if (macro-keyword-expected-exception? _exn11774_) - (macro-keyword-expected-exception-procedure _exn11774_) + __tmp12546))))) + (if (macro-keyword-expected-exception? _exn11730_) + (macro-keyword-expected-exception-procedure _exn11730_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12589 + (let ((__tmp12545 (let () (declare (not safe)) - (cons _exn11774_ '())))) + (cons _exn11730_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12589))))))) + __tmp12545))))))) (define length-mismatch-exception? - (lambda (_exn11770_) + (lambda (_exn11726_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11770_)) - (let ((_e11772_ + (class-instance? RuntimeException::t _exn11726_)) + (let ((_e11728_ (let () (declare (not safe)) - (slot-ref _exn11770_ 'exception)))) - (macro-length-mismatch-exception? _e11772_)) - (macro-length-mismatch-exception? _exn11770_)))) + (slot-ref _exn11726_ 'exception)))) + (macro-length-mismatch-exception? _e11728_)) + (macro-length-mismatch-exception? _exn11726_)))) (define length-mismatch-exception-arg-id - (lambda (_exn11766_) + (lambda (_exn11722_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11766_)) - (let ((_e11768_ + (class-instance? RuntimeException::t _exn11722_)) + (let ((_e11724_ (let () (declare (not safe)) - (slot-ref _exn11766_ 'exception)))) - (if (macro-length-mismatch-exception? _e11768_) - (macro-length-mismatch-exception-arg-id _e11768_) + (slot-ref _exn11722_ 'exception)))) + (if (macro-length-mismatch-exception? _e11724_) + (macro-length-mismatch-exception-arg-id _e11724_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12592 + (let ((__tmp12548 (let () (declare (not safe)) - (cons _e11768_ '())))) + (cons _e11724_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12592))))) - (if (macro-length-mismatch-exception? _exn11766_) - (macro-length-mismatch-exception-arg-id _exn11766_) + __tmp12548))))) + (if (macro-length-mismatch-exception? _exn11722_) + (macro-length-mismatch-exception-arg-id _exn11722_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12591 + (let ((__tmp12547 (let () (declare (not safe)) - (cons _exn11766_ '())))) + (cons _exn11722_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12591))))))) + __tmp12547))))))) (define length-mismatch-exception-arguments - (lambda (_exn11762_) + (lambda (_exn11718_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11762_)) - (let ((_e11764_ + (class-instance? RuntimeException::t _exn11718_)) + (let ((_e11720_ (let () (declare (not safe)) - (slot-ref _exn11762_ 'exception)))) - (if (macro-length-mismatch-exception? _e11764_) - (macro-length-mismatch-exception-arguments _e11764_) + (slot-ref _exn11718_ 'exception)))) + (if (macro-length-mismatch-exception? _e11720_) + (macro-length-mismatch-exception-arguments _e11720_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12594 + (let ((__tmp12550 (let () (declare (not safe)) - (cons _e11764_ '())))) + (cons _e11720_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12594))))) - (if (macro-length-mismatch-exception? _exn11762_) - (macro-length-mismatch-exception-arguments _exn11762_) + __tmp12550))))) + (if (macro-length-mismatch-exception? _exn11718_) + (macro-length-mismatch-exception-arguments _exn11718_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12593 + (let ((__tmp12549 (let () (declare (not safe)) - (cons _exn11762_ '())))) + (cons _exn11718_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12593))))))) + __tmp12549))))))) (define length-mismatch-exception-procedure - (lambda (_exn11756_) + (lambda (_exn11712_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11756_)) - (let ((_e11759_ + (class-instance? RuntimeException::t _exn11712_)) + (let ((_e11715_ (let () (declare (not safe)) - (slot-ref _exn11756_ 'exception)))) - (if (macro-length-mismatch-exception? _e11759_) - (macro-length-mismatch-exception-procedure _e11759_) + (slot-ref _exn11712_ 'exception)))) + (if (macro-length-mismatch-exception? _e11715_) + (macro-length-mismatch-exception-procedure _e11715_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12596 + (let ((__tmp12552 (let () (declare (not safe)) - (cons _e11759_ '())))) + (cons _e11715_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12596))))) - (if (macro-length-mismatch-exception? _exn11756_) - (macro-length-mismatch-exception-procedure _exn11756_) + __tmp12552))))) + (if (macro-length-mismatch-exception? _exn11712_) + (macro-length-mismatch-exception-procedure _exn11712_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12595 + (let ((__tmp12551 (let () (declare (not safe)) - (cons _exn11756_ '())))) + (cons _exn11712_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12595))))))) + __tmp12551))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn11752_) + (lambda (_exn11708_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11752_)) - (let ((_e11754_ + (class-instance? RuntimeException::t _exn11708_)) + (let ((_e11710_ (let () (declare (not safe)) - (slot-ref _exn11752_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e11754_)) - (macro-mailbox-receive-timeout-exception? _exn11752_)))) + (slot-ref _exn11708_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e11710_)) + (macro-mailbox-receive-timeout-exception? _exn11708_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn11748_) + (lambda (_exn11704_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11748_)) - (let ((_e11750_ + (class-instance? RuntimeException::t _exn11704_)) + (let ((_e11706_ (let () (declare (not safe)) - (slot-ref _exn11748_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11750_) - (macro-mailbox-receive-timeout-exception-arguments _e11750_) + (slot-ref _exn11704_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11706_) + (macro-mailbox-receive-timeout-exception-arguments _e11706_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12598 + (let ((__tmp12554 (let () (declare (not safe)) - (cons _e11750_ '())))) + (cons _e11706_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12598))))) - (if (macro-mailbox-receive-timeout-exception? _exn11748_) - (macro-mailbox-receive-timeout-exception-arguments _exn11748_) + __tmp12554))))) + (if (macro-mailbox-receive-timeout-exception? _exn11704_) + (macro-mailbox-receive-timeout-exception-arguments _exn11704_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12597 + (let ((__tmp12553 (let () (declare (not safe)) - (cons _exn11748_ '())))) + (cons _exn11704_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12597))))))) + __tmp12553))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn11742_) + (lambda (_exn11698_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11742_)) - (let ((_e11745_ + (class-instance? RuntimeException::t _exn11698_)) + (let ((_e11701_ (let () (declare (not safe)) - (slot-ref _exn11742_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11745_) - (macro-mailbox-receive-timeout-exception-procedure _e11745_) + (slot-ref _exn11698_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11701_) + (macro-mailbox-receive-timeout-exception-procedure _e11701_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12600 + (let ((__tmp12556 (let () (declare (not safe)) - (cons _e11745_ '())))) + (cons _e11701_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12600))))) - (if (macro-mailbox-receive-timeout-exception? _exn11742_) - (macro-mailbox-receive-timeout-exception-procedure _exn11742_) + __tmp12556))))) + (if (macro-mailbox-receive-timeout-exception? _exn11698_) + (macro-mailbox-receive-timeout-exception-procedure _exn11698_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12599 + (let ((__tmp12555 (let () (declare (not safe)) - (cons _exn11742_ '())))) + (cons _exn11698_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12599))))))) + __tmp12555))))))) (define module-not-found-exception? - (lambda (_exn11738_) + (lambda (_exn11694_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11738_)) - (let ((_e11740_ + (class-instance? RuntimeException::t _exn11694_)) + (let ((_e11696_ (let () (declare (not safe)) - (slot-ref _exn11738_ 'exception)))) - (macro-module-not-found-exception? _e11740_)) - (macro-module-not-found-exception? _exn11738_)))) + (slot-ref _exn11694_ 'exception)))) + (macro-module-not-found-exception? _e11696_)) + (macro-module-not-found-exception? _exn11694_)))) (define module-not-found-exception-arguments - (lambda (_exn11734_) + (lambda (_exn11690_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11734_)) - (let ((_e11736_ + (class-instance? RuntimeException::t _exn11690_)) + (let ((_e11692_ (let () (declare (not safe)) - (slot-ref _exn11734_ 'exception)))) - (if (macro-module-not-found-exception? _e11736_) - (macro-module-not-found-exception-arguments _e11736_) + (slot-ref _exn11690_ 'exception)))) + (if (macro-module-not-found-exception? _e11692_) + (macro-module-not-found-exception-arguments _e11692_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12602 + (let ((__tmp12558 (let () (declare (not safe)) - (cons _e11736_ '())))) + (cons _e11692_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12602))))) - (if (macro-module-not-found-exception? _exn11734_) - (macro-module-not-found-exception-arguments _exn11734_) + __tmp12558))))) + (if (macro-module-not-found-exception? _exn11690_) + (macro-module-not-found-exception-arguments _exn11690_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12601 + (let ((__tmp12557 (let () (declare (not safe)) - (cons _exn11734_ '())))) + (cons _exn11690_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12601))))))) + __tmp12557))))))) (define module-not-found-exception-procedure - (lambda (_exn11728_) + (lambda (_exn11684_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11728_)) - (let ((_e11731_ + (class-instance? RuntimeException::t _exn11684_)) + (let ((_e11687_ (let () (declare (not safe)) - (slot-ref _exn11728_ 'exception)))) - (if (macro-module-not-found-exception? _e11731_) - (macro-module-not-found-exception-procedure _e11731_) + (slot-ref _exn11684_ 'exception)))) + (if (macro-module-not-found-exception? _e11687_) + (macro-module-not-found-exception-procedure _e11687_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12604 + (let ((__tmp12560 (let () (declare (not safe)) - (cons _e11731_ '())))) + (cons _e11687_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12604))))) - (if (macro-module-not-found-exception? _exn11728_) - (macro-module-not-found-exception-procedure _exn11728_) + __tmp12560))))) + (if (macro-module-not-found-exception? _exn11684_) + (macro-module-not-found-exception-procedure _exn11684_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12603 + (let ((__tmp12559 (let () (declare (not safe)) - (cons _exn11728_ '())))) + (cons _exn11684_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12603))))))) + __tmp12559))))))) (define multiple-c-return-exception? - (lambda (_exn11722_) + (lambda (_exn11678_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11722_)) - (let ((_e11725_ + (class-instance? RuntimeException::t _exn11678_)) + (let ((_e11681_ (let () (declare (not safe)) - (slot-ref _exn11722_ 'exception)))) - (macro-multiple-c-return-exception? _e11725_)) - (macro-multiple-c-return-exception? _exn11722_)))) + (slot-ref _exn11678_ 'exception)))) + (macro-multiple-c-return-exception? _e11681_)) + (macro-multiple-c-return-exception? _exn11678_)))) (define no-such-file-or-directory-exception? - (lambda (_exn11718_) + (lambda (_exn11674_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11718_)) - (let ((_e11720_ + (class-instance? RuntimeException::t _exn11674_)) + (let ((_e11676_ (let () (declare (not safe)) - (slot-ref _exn11718_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e11720_)) - (macro-no-such-file-or-directory-exception? _exn11718_)))) + (slot-ref _exn11674_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e11676_)) + (macro-no-such-file-or-directory-exception? _exn11674_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn11714_) + (lambda (_exn11670_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11714_)) - (let ((_e11716_ + (class-instance? RuntimeException::t _exn11670_)) + (let ((_e11672_ (let () (declare (not safe)) - (slot-ref _exn11714_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11716_) + (slot-ref _exn11670_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11672_) (macro-no-such-file-or-directory-exception-arguments - _e11716_) + _e11672_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12606 + (let ((__tmp12562 (let () (declare (not safe)) - (cons _e11716_ '())))) + (cons _e11672_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12606))))) - (if (macro-no-such-file-or-directory-exception? _exn11714_) + __tmp12562))))) + (if (macro-no-such-file-or-directory-exception? _exn11670_) (macro-no-such-file-or-directory-exception-arguments - _exn11714_) + _exn11670_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12605 + (let ((__tmp12561 (let () (declare (not safe)) - (cons _exn11714_ '())))) + (cons _exn11670_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12605))))))) + __tmp12561))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn11708_) + (lambda (_exn11664_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11708_)) - (let ((_e11711_ + (class-instance? RuntimeException::t _exn11664_)) + (let ((_e11667_ (let () (declare (not safe)) - (slot-ref _exn11708_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11711_) + (slot-ref _exn11664_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11667_) (macro-no-such-file-or-directory-exception-procedure - _e11711_) + _e11667_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12608 + (let ((__tmp12564 (let () (declare (not safe)) - (cons _e11711_ '())))) + (cons _e11667_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12608))))) - (if (macro-no-such-file-or-directory-exception? _exn11708_) + __tmp12564))))) + (if (macro-no-such-file-or-directory-exception? _exn11664_) (macro-no-such-file-or-directory-exception-procedure - _exn11708_) + _exn11664_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12607 + (let ((__tmp12563 (let () (declare (not safe)) - (cons _exn11708_ '())))) + (cons _exn11664_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12607))))))) + __tmp12563))))))) (define noncontinuable-exception? - (lambda (_exn11704_) + (lambda (_exn11660_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11704_)) - (let ((_e11706_ + (class-instance? RuntimeException::t _exn11660_)) + (let ((_e11662_ (let () (declare (not safe)) - (slot-ref _exn11704_ 'exception)))) - (macro-noncontinuable-exception? _e11706_)) - (macro-noncontinuable-exception? _exn11704_)))) + (slot-ref _exn11660_ 'exception)))) + (macro-noncontinuable-exception? _e11662_)) + (macro-noncontinuable-exception? _exn11660_)))) (define noncontinuable-exception-reason - (lambda (_exn11698_) + (lambda (_exn11654_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11698_)) - (let ((_e11701_ + (class-instance? RuntimeException::t _exn11654_)) + (let ((_e11657_ (let () (declare (not safe)) - (slot-ref _exn11698_ 'exception)))) - (if (macro-noncontinuable-exception? _e11701_) - (macro-noncontinuable-exception-reason _e11701_) + (slot-ref _exn11654_ 'exception)))) + (if (macro-noncontinuable-exception? _e11657_) + (macro-noncontinuable-exception-reason _e11657_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12610 + (let ((__tmp12566 (let () (declare (not safe)) - (cons _e11701_ '())))) + (cons _e11657_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12610))))) - (if (macro-noncontinuable-exception? _exn11698_) - (macro-noncontinuable-exception-reason _exn11698_) + __tmp12566))))) + (if (macro-noncontinuable-exception? _exn11654_) + (macro-noncontinuable-exception-reason _exn11654_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12609 + (let ((__tmp12565 (let () (declare (not safe)) - (cons _exn11698_ '())))) + (cons _exn11654_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12609))))))) + __tmp12565))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn11694_) + (lambda (_exn11650_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11694_)) - (let ((_e11696_ + (class-instance? RuntimeException::t _exn11650_)) + (let ((_e11652_ (let () (declare (not safe)) - (slot-ref _exn11694_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e11696_)) + (slot-ref _exn11650_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e11652_)) (macro-nonempty-input-port-character-buffer-exception? - _exn11694_)))) + _exn11650_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn11690_) + (lambda (_exn11646_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11690_)) - (let ((_e11692_ + (class-instance? RuntimeException::t _exn11646_)) + (let ((_e11648_ (let () (declare (not safe)) - (slot-ref _exn11690_ 'exception)))) + (slot-ref _exn11646_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11692_) + _e11648_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e11692_) + _e11648_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12612 + (let ((__tmp12568 (let () (declare (not safe)) - (cons _e11692_ '())))) + (cons _e11648_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12612))))) + __tmp12568))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11690_) + _exn11646_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn11690_) + _exn11646_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12611 + (let ((__tmp12567 (let () (declare (not safe)) - (cons _exn11690_ '())))) + (cons _exn11646_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12611))))))) + __tmp12567))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn11684_) + (lambda (_exn11640_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11684_)) - (let ((_e11687_ + (class-instance? RuntimeException::t _exn11640_)) + (let ((_e11643_ (let () (declare (not safe)) - (slot-ref _exn11684_ 'exception)))) + (slot-ref _exn11640_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11687_) + _e11643_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e11687_) + _e11643_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12614 + (let ((__tmp12570 (let () (declare (not safe)) - (cons _e11687_ '())))) + (cons _e11643_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12614))))) + __tmp12570))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11684_) + _exn11640_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn11684_) + _exn11640_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12613 + (let ((__tmp12569 (let () (declare (not safe)) - (cons _exn11684_ '())))) + (cons _exn11640_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12613))))))) + __tmp12569))))))) (define nonprocedure-operator-exception? - (lambda (_exn11680_) + (lambda (_exn11636_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11680_)) - (let ((_e11682_ + (class-instance? RuntimeException::t _exn11636_)) + (let ((_e11638_ (let () (declare (not safe)) - (slot-ref _exn11680_ 'exception)))) - (macro-nonprocedure-operator-exception? _e11682_)) - (macro-nonprocedure-operator-exception? _exn11680_)))) + (slot-ref _exn11636_ 'exception)))) + (macro-nonprocedure-operator-exception? _e11638_)) + (macro-nonprocedure-operator-exception? _exn11636_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn11676_) + (lambda (_exn11632_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11676_)) - (let ((_e11678_ + (class-instance? RuntimeException::t _exn11632_)) + (let ((_e11634_ (let () (declare (not safe)) - (slot-ref _exn11676_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11678_) - (macro-nonprocedure-operator-exception-arguments _e11678_) + (slot-ref _exn11632_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11634_) + (macro-nonprocedure-operator-exception-arguments _e11634_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12616 + (let ((__tmp12572 (let () (declare (not safe)) - (cons _e11678_ '())))) + (cons _e11634_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12616))))) - (if (macro-nonprocedure-operator-exception? _exn11676_) - (macro-nonprocedure-operator-exception-arguments _exn11676_) + __tmp12572))))) + (if (macro-nonprocedure-operator-exception? _exn11632_) + (macro-nonprocedure-operator-exception-arguments _exn11632_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12615 + (let ((__tmp12571 (let () (declare (not safe)) - (cons _exn11676_ '())))) + (cons _exn11632_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12615))))))) + __tmp12571))))))) (define nonprocedure-operator-exception-code - (lambda (_exn11672_) + (lambda (_exn11628_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11672_)) - (let ((_e11674_ + (class-instance? RuntimeException::t _exn11628_)) + (let ((_e11630_ (let () (declare (not safe)) - (slot-ref _exn11672_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11674_) - (macro-nonprocedure-operator-exception-code _e11674_) + (slot-ref _exn11628_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11630_) + (macro-nonprocedure-operator-exception-code _e11630_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12618 + (let ((__tmp12574 (let () (declare (not safe)) - (cons _e11674_ '())))) + (cons _e11630_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12618))))) - (if (macro-nonprocedure-operator-exception? _exn11672_) - (macro-nonprocedure-operator-exception-code _exn11672_) + __tmp12574))))) + (if (macro-nonprocedure-operator-exception? _exn11628_) + (macro-nonprocedure-operator-exception-code _exn11628_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12617 + (let ((__tmp12573 (let () (declare (not safe)) - (cons _exn11672_ '())))) + (cons _exn11628_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12617))))))) + __tmp12573))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn11668_) + (lambda (_exn11624_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11668_)) - (let ((_e11670_ + (class-instance? RuntimeException::t _exn11624_)) + (let ((_e11626_ (let () (declare (not safe)) - (slot-ref _exn11668_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11670_) - (macro-nonprocedure-operator-exception-operator _e11670_) + (slot-ref _exn11624_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11626_) + (macro-nonprocedure-operator-exception-operator _e11626_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12620 + (let ((__tmp12576 (let () (declare (not safe)) - (cons _e11670_ '())))) + (cons _e11626_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12620))))) - (if (macro-nonprocedure-operator-exception? _exn11668_) - (macro-nonprocedure-operator-exception-operator _exn11668_) + __tmp12576))))) + (if (macro-nonprocedure-operator-exception? _exn11624_) + (macro-nonprocedure-operator-exception-operator _exn11624_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12619 + (let ((__tmp12575 (let () (declare (not safe)) - (cons _exn11668_ '())))) + (cons _exn11624_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12619))))))) + __tmp12575))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn11662_) + (lambda (_exn11618_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11662_)) - (let ((_e11665_ + (class-instance? RuntimeException::t _exn11618_)) + (let ((_e11621_ (let () (declare (not safe)) - (slot-ref _exn11662_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11665_) - (macro-nonprocedure-operator-exception-rte _e11665_) + (slot-ref _exn11618_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11621_) + (macro-nonprocedure-operator-exception-rte _e11621_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12622 + (let ((__tmp12578 (let () (declare (not safe)) - (cons _e11665_ '())))) + (cons _e11621_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12622))))) - (if (macro-nonprocedure-operator-exception? _exn11662_) - (macro-nonprocedure-operator-exception-rte _exn11662_) + __tmp12578))))) + (if (macro-nonprocedure-operator-exception? _exn11618_) + (macro-nonprocedure-operator-exception-rte _exn11618_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12621 + (let ((__tmp12577 (let () (declare (not safe)) - (cons _exn11662_ '())))) + (cons _exn11618_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12621))))))) + __tmp12577))))))) (define not-in-compilation-context-exception? - (lambda (_exn11658_) + (lambda (_exn11614_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11658_)) - (let ((_e11660_ + (class-instance? RuntimeException::t _exn11614_)) + (let ((_e11616_ (let () (declare (not safe)) - (slot-ref _exn11658_ 'exception)))) - (macro-not-in-compilation-context-exception? _e11660_)) - (macro-not-in-compilation-context-exception? _exn11658_)))) + (slot-ref _exn11614_ 'exception)))) + (macro-not-in-compilation-context-exception? _e11616_)) + (macro-not-in-compilation-context-exception? _exn11614_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn11654_) + (lambda (_exn11610_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11654_)) - (let ((_e11656_ + (class-instance? RuntimeException::t _exn11610_)) + (let ((_e11612_ (let () (declare (not safe)) - (slot-ref _exn11654_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11656_) + (slot-ref _exn11610_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11612_) (macro-not-in-compilation-context-exception-arguments - _e11656_) + _e11612_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12624 + (let ((__tmp12580 (let () (declare (not safe)) - (cons _e11656_ '())))) + (cons _e11612_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12624))))) - (if (macro-not-in-compilation-context-exception? _exn11654_) + __tmp12580))))) + (if (macro-not-in-compilation-context-exception? _exn11610_) (macro-not-in-compilation-context-exception-arguments - _exn11654_) + _exn11610_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12623 + (let ((__tmp12579 (let () (declare (not safe)) - (cons _exn11654_ '())))) + (cons _exn11610_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12623))))))) + __tmp12579))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn11648_) + (lambda (_exn11604_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11648_)) - (let ((_e11651_ + (class-instance? RuntimeException::t _exn11604_)) + (let ((_e11607_ (let () (declare (not safe)) - (slot-ref _exn11648_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11651_) + (slot-ref _exn11604_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11607_) (macro-not-in-compilation-context-exception-procedure - _e11651_) + _e11607_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12626 + (let ((__tmp12582 (let () (declare (not safe)) - (cons _e11651_ '())))) + (cons _e11607_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12626))))) - (if (macro-not-in-compilation-context-exception? _exn11648_) + __tmp12582))))) + (if (macro-not-in-compilation-context-exception? _exn11604_) (macro-not-in-compilation-context-exception-procedure - _exn11648_) + _exn11604_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12625 + (let ((__tmp12581 (let () (declare (not safe)) - (cons _exn11648_ '())))) + (cons _exn11604_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12625))))))) + __tmp12581))))))) (define number-of-arguments-limit-exception? - (lambda (_exn11644_) + (lambda (_exn11600_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11644_)) - (let ((_e11646_ + (class-instance? RuntimeException::t _exn11600_)) + (let ((_e11602_ (let () (declare (not safe)) - (slot-ref _exn11644_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e11646_)) - (macro-number-of-arguments-limit-exception? _exn11644_)))) + (slot-ref _exn11600_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e11602_)) + (macro-number-of-arguments-limit-exception? _exn11600_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn11640_) + (lambda (_exn11596_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11640_)) - (let ((_e11642_ + (class-instance? RuntimeException::t _exn11596_)) + (let ((_e11598_ (let () (declare (not safe)) - (slot-ref _exn11640_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11642_) + (slot-ref _exn11596_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11598_) (macro-number-of-arguments-limit-exception-arguments - _e11642_) + _e11598_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12628 + (let ((__tmp12584 (let () (declare (not safe)) - (cons _e11642_ '())))) + (cons _e11598_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12628))))) - (if (macro-number-of-arguments-limit-exception? _exn11640_) + __tmp12584))))) + (if (macro-number-of-arguments-limit-exception? _exn11596_) (macro-number-of-arguments-limit-exception-arguments - _exn11640_) + _exn11596_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12627 + (let ((__tmp12583 (let () (declare (not safe)) - (cons _exn11640_ '())))) + (cons _exn11596_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12627))))))) + __tmp12583))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn11634_) + (lambda (_exn11590_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11634_)) - (let ((_e11637_ + (class-instance? RuntimeException::t _exn11590_)) + (let ((_e11593_ (let () (declare (not safe)) - (slot-ref _exn11634_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11637_) + (slot-ref _exn11590_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11593_) (macro-number-of-arguments-limit-exception-procedure - _e11637_) + _e11593_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12630 + (let ((__tmp12586 (let () (declare (not safe)) - (cons _e11637_ '())))) + (cons _e11593_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12630))))) - (if (macro-number-of-arguments-limit-exception? _exn11634_) + __tmp12586))))) + (if (macro-number-of-arguments-limit-exception? _exn11590_) (macro-number-of-arguments-limit-exception-procedure - _exn11634_) + _exn11590_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12629 + (let ((__tmp12585 (let () (declare (not safe)) - (cons _exn11634_ '())))) + (cons _exn11590_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12629))))))) + __tmp12585))))))) (define os-exception? - (lambda (_exn11630_) + (lambda (_exn11586_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11630_)) - (let ((_e11632_ + (class-instance? RuntimeException::t _exn11586_)) + (let ((_e11588_ (let () (declare (not safe)) - (slot-ref _exn11630_ 'exception)))) - (macro-os-exception? _e11632_)) - (macro-os-exception? _exn11630_)))) + (slot-ref _exn11586_ 'exception)))) + (macro-os-exception? _e11588_)) + (macro-os-exception? _exn11586_)))) (define os-exception-arguments - (lambda (_exn11626_) + (lambda (_exn11582_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11626_)) - (let ((_e11628_ + (class-instance? RuntimeException::t _exn11582_)) + (let ((_e11584_ (let () (declare (not safe)) - (slot-ref _exn11626_ 'exception)))) - (if (macro-os-exception? _e11628_) - (macro-os-exception-arguments _e11628_) + (slot-ref _exn11582_ 'exception)))) + (if (macro-os-exception? _e11584_) + (macro-os-exception-arguments _e11584_) (error '"not an instance" 'os-exception? - (let ((__tmp12632 + (let ((__tmp12588 (let () (declare (not safe)) - (cons _e11628_ '())))) + (cons _e11584_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12632))))) - (if (macro-os-exception? _exn11626_) - (macro-os-exception-arguments _exn11626_) + (cons 'os-exception-arguments __tmp12588))))) + (if (macro-os-exception? _exn11582_) + (macro-os-exception-arguments _exn11582_) (error '"not an instance" 'os-exception? - (let ((__tmp12631 + (let ((__tmp12587 (let () (declare (not safe)) - (cons _exn11626_ '())))) + (cons _exn11582_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12631))))))) + (cons 'os-exception-arguments __tmp12587))))))) (define os-exception-code - (lambda (_exn11622_) + (lambda (_exn11578_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11622_)) - (let ((_e11624_ + (class-instance? RuntimeException::t _exn11578_)) + (let ((_e11580_ (let () (declare (not safe)) - (slot-ref _exn11622_ 'exception)))) - (if (macro-os-exception? _e11624_) - (macro-os-exception-code _e11624_) + (slot-ref _exn11578_ 'exception)))) + (if (macro-os-exception? _e11580_) + (macro-os-exception-code _e11580_) (error '"not an instance" 'os-exception? - (let ((__tmp12634 + (let ((__tmp12590 (let () (declare (not safe)) - (cons _e11624_ '())))) + (cons _e11580_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12634))))) - (if (macro-os-exception? _exn11622_) - (macro-os-exception-code _exn11622_) + (cons 'os-exception-code __tmp12590))))) + (if (macro-os-exception? _exn11578_) + (macro-os-exception-code _exn11578_) (error '"not an instance" 'os-exception? - (let ((__tmp12633 + (let ((__tmp12589 (let () (declare (not safe)) - (cons _exn11622_ '())))) + (cons _exn11578_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12633))))))) + (cons 'os-exception-code __tmp12589))))))) (define os-exception-message - (lambda (_exn11618_) + (lambda (_exn11574_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11618_)) - (let ((_e11620_ + (class-instance? RuntimeException::t _exn11574_)) + (let ((_e11576_ (let () (declare (not safe)) - (slot-ref _exn11618_ 'exception)))) - (if (macro-os-exception? _e11620_) - (macro-os-exception-message _e11620_) + (slot-ref _exn11574_ 'exception)))) + (if (macro-os-exception? _e11576_) + (macro-os-exception-message _e11576_) (error '"not an instance" 'os-exception? - (let ((__tmp12636 + (let ((__tmp12592 (let () (declare (not safe)) - (cons _e11620_ '())))) + (cons _e11576_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12636))))) - (if (macro-os-exception? _exn11618_) - (macro-os-exception-message _exn11618_) + (cons 'os-exception-message __tmp12592))))) + (if (macro-os-exception? _exn11574_) + (macro-os-exception-message _exn11574_) (error '"not an instance" 'os-exception? - (let ((__tmp12635 + (let ((__tmp12591 (let () (declare (not safe)) - (cons _exn11618_ '())))) + (cons _exn11574_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12635))))))) + (cons 'os-exception-message __tmp12591))))))) (define os-exception-procedure - (lambda (_exn11612_) + (lambda (_exn11568_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11612_)) - (let ((_e11615_ + (class-instance? RuntimeException::t _exn11568_)) + (let ((_e11571_ (let () (declare (not safe)) - (slot-ref _exn11612_ 'exception)))) - (if (macro-os-exception? _e11615_) - (macro-os-exception-procedure _e11615_) + (slot-ref _exn11568_ 'exception)))) + (if (macro-os-exception? _e11571_) + (macro-os-exception-procedure _e11571_) (error '"not an instance" 'os-exception? - (let ((__tmp12638 + (let ((__tmp12594 (let () (declare (not safe)) - (cons _e11615_ '())))) + (cons _e11571_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12638))))) - (if (macro-os-exception? _exn11612_) - (macro-os-exception-procedure _exn11612_) + (cons 'os-exception-procedure __tmp12594))))) + (if (macro-os-exception? _exn11568_) + (macro-os-exception-procedure _exn11568_) (error '"not an instance" 'os-exception? - (let ((__tmp12637 + (let ((__tmp12593 (let () (declare (not safe)) - (cons _exn11612_ '())))) + (cons _exn11568_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12637))))))) + (cons 'os-exception-procedure __tmp12593))))))) (define permission-denied-exception? - (lambda (_exn11608_) + (lambda (_exn11564_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11608_)) - (let ((_e11610_ + (class-instance? RuntimeException::t _exn11564_)) + (let ((_e11566_ (let () (declare (not safe)) - (slot-ref _exn11608_ 'exception)))) - (macro-permission-denied-exception? _e11610_)) - (macro-permission-denied-exception? _exn11608_)))) + (slot-ref _exn11564_ 'exception)))) + (macro-permission-denied-exception? _e11566_)) + (macro-permission-denied-exception? _exn11564_)))) (define permission-denied-exception-arguments - (lambda (_exn11604_) + (lambda (_exn11560_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11604_)) - (let ((_e11606_ + (class-instance? RuntimeException::t _exn11560_)) + (let ((_e11562_ (let () (declare (not safe)) - (slot-ref _exn11604_ 'exception)))) - (if (macro-permission-denied-exception? _e11606_) - (macro-permission-denied-exception-arguments _e11606_) + (slot-ref _exn11560_ 'exception)))) + (if (macro-permission-denied-exception? _e11562_) + (macro-permission-denied-exception-arguments _e11562_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12640 + (let ((__tmp12596 (let () (declare (not safe)) - (cons _e11606_ '())))) + (cons _e11562_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12640))))) - (if (macro-permission-denied-exception? _exn11604_) - (macro-permission-denied-exception-arguments _exn11604_) + __tmp12596))))) + (if (macro-permission-denied-exception? _exn11560_) + (macro-permission-denied-exception-arguments _exn11560_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12639 + (let ((__tmp12595 (let () (declare (not safe)) - (cons _exn11604_ '())))) + (cons _exn11560_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12639))))))) + __tmp12595))))))) (define permission-denied-exception-procedure - (lambda (_exn11598_) + (lambda (_exn11554_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11598_)) - (let ((_e11601_ + (class-instance? RuntimeException::t _exn11554_)) + (let ((_e11557_ (let () (declare (not safe)) - (slot-ref _exn11598_ 'exception)))) - (if (macro-permission-denied-exception? _e11601_) - (macro-permission-denied-exception-procedure _e11601_) + (slot-ref _exn11554_ 'exception)))) + (if (macro-permission-denied-exception? _e11557_) + (macro-permission-denied-exception-procedure _e11557_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12642 + (let ((__tmp12598 (let () (declare (not safe)) - (cons _e11601_ '())))) + (cons _e11557_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12642))))) - (if (macro-permission-denied-exception? _exn11598_) - (macro-permission-denied-exception-procedure _exn11598_) + __tmp12598))))) + (if (macro-permission-denied-exception? _exn11554_) + (macro-permission-denied-exception-procedure _exn11554_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12641 + (let ((__tmp12597 (let () (declare (not safe)) - (cons _exn11598_ '())))) + (cons _exn11554_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12641))))))) + __tmp12597))))))) (define range-exception? - (lambda (_exn11594_) + (lambda (_exn11550_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11594_)) - (let ((_e11596_ + (class-instance? RuntimeException::t _exn11550_)) + (let ((_e11552_ (let () (declare (not safe)) - (slot-ref _exn11594_ 'exception)))) - (macro-range-exception? _e11596_)) - (macro-range-exception? _exn11594_)))) + (slot-ref _exn11550_ 'exception)))) + (macro-range-exception? _e11552_)) + (macro-range-exception? _exn11550_)))) (define range-exception-arg-id - (lambda (_exn11590_) + (lambda (_exn11546_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11590_)) - (let ((_e11592_ + (class-instance? RuntimeException::t _exn11546_)) + (let ((_e11548_ (let () (declare (not safe)) - (slot-ref _exn11590_ 'exception)))) - (if (macro-range-exception? _e11592_) - (macro-range-exception-arg-id _e11592_) + (slot-ref _exn11546_ 'exception)))) + (if (macro-range-exception? _e11548_) + (macro-range-exception-arg-id _e11548_) (error '"not an instance" 'range-exception? - (let ((__tmp12644 + (let ((__tmp12600 (let () (declare (not safe)) - (cons _e11592_ '())))) + (cons _e11548_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp12644))))) - (if (macro-range-exception? _exn11590_) - (macro-range-exception-arg-id _exn11590_) + (cons 'range-exception-arg-id __tmp12600))))) + (if (macro-range-exception? _exn11546_) + (macro-range-exception-arg-id _exn11546_) (error '"not an instance" 'range-exception? - (let ((__tmp12643 + (let ((__tmp12599 (let () (declare (not safe)) - (cons _exn11590_ '())))) + (cons _exn11546_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp12643))))))) + (cons 'range-exception-arg-id __tmp12599))))))) (define range-exception-arguments - (lambda (_exn11586_) + (lambda (_exn11542_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11586_)) - (let ((_e11588_ + (class-instance? RuntimeException::t _exn11542_)) + (let ((_e11544_ (let () (declare (not safe)) - (slot-ref _exn11586_ 'exception)))) - (if (macro-range-exception? _e11588_) - (macro-range-exception-arguments _e11588_) + (slot-ref _exn11542_ 'exception)))) + (if (macro-range-exception? _e11544_) + (macro-range-exception-arguments _e11544_) (error '"not an instance" 'range-exception? - (let ((__tmp12646 + (let ((__tmp12602 (let () (declare (not safe)) - (cons _e11588_ '())))) + (cons _e11544_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12646))))) - (if (macro-range-exception? _exn11586_) - (macro-range-exception-arguments _exn11586_) + (cons 'range-exception-arguments __tmp12602))))) + (if (macro-range-exception? _exn11542_) + (macro-range-exception-arguments _exn11542_) (error '"not an instance" 'range-exception? - (let ((__tmp12645 + (let ((__tmp12601 (let () (declare (not safe)) - (cons _exn11586_ '())))) + (cons _exn11542_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12645))))))) + (cons 'range-exception-arguments __tmp12601))))))) (define range-exception-procedure - (lambda (_exn11580_) + (lambda (_exn11536_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11580_)) - (let ((_e11583_ + (class-instance? RuntimeException::t _exn11536_)) + (let ((_e11539_ (let () (declare (not safe)) - (slot-ref _exn11580_ 'exception)))) - (if (macro-range-exception? _e11583_) - (macro-range-exception-procedure _e11583_) + (slot-ref _exn11536_ 'exception)))) + (if (macro-range-exception? _e11539_) + (macro-range-exception-procedure _e11539_) (error '"not an instance" 'range-exception? - (let ((__tmp12648 + (let ((__tmp12604 (let () (declare (not safe)) - (cons _e11583_ '())))) + (cons _e11539_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12648))))) - (if (macro-range-exception? _exn11580_) - (macro-range-exception-procedure _exn11580_) + (cons 'range-exception-procedure __tmp12604))))) + (if (macro-range-exception? _exn11536_) + (macro-range-exception-procedure _exn11536_) (error '"not an instance" 'range-exception? - (let ((__tmp12647 + (let ((__tmp12603 (let () (declare (not safe)) - (cons _exn11580_ '())))) + (cons _exn11536_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12647))))))) + (cons 'range-exception-procedure __tmp12603))))))) (define rpc-remote-error-exception? - (lambda (_exn11576_) + (lambda (_exn11532_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11576_)) - (let ((_e11578_ + (class-instance? RuntimeException::t _exn11532_)) + (let ((_e11534_ (let () (declare (not safe)) - (slot-ref _exn11576_ 'exception)))) - (macro-rpc-remote-error-exception? _e11578_)) - (macro-rpc-remote-error-exception? _exn11576_)))) + (slot-ref _exn11532_ 'exception)))) + (macro-rpc-remote-error-exception? _e11534_)) + (macro-rpc-remote-error-exception? _exn11532_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn11572_) + (lambda (_exn11528_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11572_)) - (let ((_e11574_ + (class-instance? RuntimeException::t _exn11528_)) + (let ((_e11530_ (let () (declare (not safe)) - (slot-ref _exn11572_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11574_) - (macro-rpc-remote-error-exception-arguments _e11574_) + (slot-ref _exn11528_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11530_) + (macro-rpc-remote-error-exception-arguments _e11530_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12650 + (let ((__tmp12606 (let () (declare (not safe)) - (cons _e11574_ '())))) + (cons _e11530_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12650))))) - (if (macro-rpc-remote-error-exception? _exn11572_) - (macro-rpc-remote-error-exception-arguments _exn11572_) + __tmp12606))))) + (if (macro-rpc-remote-error-exception? _exn11528_) + (macro-rpc-remote-error-exception-arguments _exn11528_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12649 + (let ((__tmp12605 (let () (declare (not safe)) - (cons _exn11572_ '())))) + (cons _exn11528_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12649))))))) + __tmp12605))))))) (define rpc-remote-error-exception-message - (lambda (_exn11568_) + (lambda (_exn11524_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11568_)) - (let ((_e11570_ + (class-instance? RuntimeException::t _exn11524_)) + (let ((_e11526_ (let () (declare (not safe)) - (slot-ref _exn11568_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11570_) - (macro-rpc-remote-error-exception-message _e11570_) + (slot-ref _exn11524_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11526_) + (macro-rpc-remote-error-exception-message _e11526_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12652 + (let ((__tmp12608 (let () (declare (not safe)) - (cons _e11570_ '())))) + (cons _e11526_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12652))))) - (if (macro-rpc-remote-error-exception? _exn11568_) - (macro-rpc-remote-error-exception-message _exn11568_) + __tmp12608))))) + (if (macro-rpc-remote-error-exception? _exn11524_) + (macro-rpc-remote-error-exception-message _exn11524_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12651 + (let ((__tmp12607 (let () (declare (not safe)) - (cons _exn11568_ '())))) + (cons _exn11524_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12651))))))) + __tmp12607))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn11562_) + (lambda (_exn11518_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11562_)) - (let ((_e11565_ + (class-instance? RuntimeException::t _exn11518_)) + (let ((_e11521_ (let () (declare (not safe)) - (slot-ref _exn11562_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11565_) - (macro-rpc-remote-error-exception-procedure _e11565_) + (slot-ref _exn11518_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11521_) + (macro-rpc-remote-error-exception-procedure _e11521_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12654 + (let ((__tmp12610 (let () (declare (not safe)) - (cons _e11565_ '())))) + (cons _e11521_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12654))))) - (if (macro-rpc-remote-error-exception? _exn11562_) - (macro-rpc-remote-error-exception-procedure _exn11562_) + __tmp12610))))) + (if (macro-rpc-remote-error-exception? _exn11518_) + (macro-rpc-remote-error-exception-procedure _exn11518_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12653 + (let ((__tmp12609 (let () (declare (not safe)) - (cons _exn11562_ '())))) + (cons _exn11518_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12653))))))) + __tmp12609))))))) (define scheduler-exception? - (lambda (_exn11558_) + (lambda (_exn11514_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11558_)) - (let ((_e11560_ + (class-instance? RuntimeException::t _exn11514_)) + (let ((_e11516_ (let () (declare (not safe)) - (slot-ref _exn11558_ 'exception)))) - (macro-scheduler-exception? _e11560_)) - (macro-scheduler-exception? _exn11558_)))) + (slot-ref _exn11514_ 'exception)))) + (macro-scheduler-exception? _e11516_)) + (macro-scheduler-exception? _exn11514_)))) (define scheduler-exception-reason - (lambda (_exn11552_) + (lambda (_exn11508_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11552_)) - (let ((_e11555_ + (class-instance? RuntimeException::t _exn11508_)) + (let ((_e11511_ (let () (declare (not safe)) - (slot-ref _exn11552_ 'exception)))) - (if (macro-scheduler-exception? _e11555_) - (macro-scheduler-exception-reason _e11555_) + (slot-ref _exn11508_ 'exception)))) + (if (macro-scheduler-exception? _e11511_) + (macro-scheduler-exception-reason _e11511_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12656 + (let ((__tmp12612 (let () (declare (not safe)) - (cons _e11555_ '())))) + (cons _e11511_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12656))))) - (if (macro-scheduler-exception? _exn11552_) - (macro-scheduler-exception-reason _exn11552_) + (cons 'scheduler-exception-reason __tmp12612))))) + (if (macro-scheduler-exception? _exn11508_) + (macro-scheduler-exception-reason _exn11508_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12655 + (let ((__tmp12611 (let () (declare (not safe)) - (cons _exn11552_ '())))) + (cons _exn11508_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12655))))))) + (cons 'scheduler-exception-reason __tmp12611))))))) (define sfun-conversion-exception? - (lambda (_exn11548_) + (lambda (_exn11504_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11548_)) - (let ((_e11550_ + (class-instance? RuntimeException::t _exn11504_)) + (let ((_e11506_ (let () (declare (not safe)) - (slot-ref _exn11548_ 'exception)))) - (macro-sfun-conversion-exception? _e11550_)) - (macro-sfun-conversion-exception? _exn11548_)))) + (slot-ref _exn11504_ 'exception)))) + (macro-sfun-conversion-exception? _e11506_)) + (macro-sfun-conversion-exception? _exn11504_)))) (define sfun-conversion-exception-arguments - (lambda (_exn11544_) + (lambda (_exn11500_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11544_)) - (let ((_e11546_ + (class-instance? RuntimeException::t _exn11500_)) + (let ((_e11502_ (let () (declare (not safe)) - (slot-ref _exn11544_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11546_) - (macro-sfun-conversion-exception-arguments _e11546_) + (slot-ref _exn11500_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11502_) + (macro-sfun-conversion-exception-arguments _e11502_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12658 + (let ((__tmp12614 (let () (declare (not safe)) - (cons _e11546_ '())))) + (cons _e11502_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12658))))) - (if (macro-sfun-conversion-exception? _exn11544_) - (macro-sfun-conversion-exception-arguments _exn11544_) + __tmp12614))))) + (if (macro-sfun-conversion-exception? _exn11500_) + (macro-sfun-conversion-exception-arguments _exn11500_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12657 + (let ((__tmp12613 (let () (declare (not safe)) - (cons _exn11544_ '())))) + (cons _exn11500_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12657))))))) + __tmp12613))))))) (define sfun-conversion-exception-code - (lambda (_exn11540_) + (lambda (_exn11496_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11540_)) - (let ((_e11542_ + (class-instance? RuntimeException::t _exn11496_)) + (let ((_e11498_ (let () (declare (not safe)) - (slot-ref _exn11540_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11542_) - (macro-sfun-conversion-exception-code _e11542_) + (slot-ref _exn11496_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11498_) + (macro-sfun-conversion-exception-code _e11498_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12660 + (let ((__tmp12616 (let () (declare (not safe)) - (cons _e11542_ '())))) + (cons _e11498_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12660))))) - (if (macro-sfun-conversion-exception? _exn11540_) - (macro-sfun-conversion-exception-code _exn11540_) + __tmp12616))))) + (if (macro-sfun-conversion-exception? _exn11496_) + (macro-sfun-conversion-exception-code _exn11496_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12659 + (let ((__tmp12615 (let () (declare (not safe)) - (cons _exn11540_ '())))) + (cons _exn11496_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12659))))))) + __tmp12615))))))) (define sfun-conversion-exception-message - (lambda (_exn11536_) + (lambda (_exn11492_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11536_)) - (let ((_e11538_ + (class-instance? RuntimeException::t _exn11492_)) + (let ((_e11494_ (let () (declare (not safe)) - (slot-ref _exn11536_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11538_) - (macro-sfun-conversion-exception-message _e11538_) + (slot-ref _exn11492_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11494_) + (macro-sfun-conversion-exception-message _e11494_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12662 + (let ((__tmp12618 (let () (declare (not safe)) - (cons _e11538_ '())))) + (cons _e11494_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12662))))) - (if (macro-sfun-conversion-exception? _exn11536_) - (macro-sfun-conversion-exception-message _exn11536_) + __tmp12618))))) + (if (macro-sfun-conversion-exception? _exn11492_) + (macro-sfun-conversion-exception-message _exn11492_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12661 + (let ((__tmp12617 (let () (declare (not safe)) - (cons _exn11536_ '())))) + (cons _exn11492_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12661))))))) + __tmp12617))))))) (define sfun-conversion-exception-procedure - (lambda (_exn11530_) + (lambda (_exn11486_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11530_)) - (let ((_e11533_ + (class-instance? RuntimeException::t _exn11486_)) + (let ((_e11489_ (let () (declare (not safe)) - (slot-ref _exn11530_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11533_) - (macro-sfun-conversion-exception-procedure _e11533_) + (slot-ref _exn11486_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11489_) + (macro-sfun-conversion-exception-procedure _e11489_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12664 + (let ((__tmp12620 (let () (declare (not safe)) - (cons _e11533_ '())))) + (cons _e11489_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12664))))) - (if (macro-sfun-conversion-exception? _exn11530_) - (macro-sfun-conversion-exception-procedure _exn11530_) + __tmp12620))))) + (if (macro-sfun-conversion-exception? _exn11486_) + (macro-sfun-conversion-exception-procedure _exn11486_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12663 + (let ((__tmp12619 (let () (declare (not safe)) - (cons _exn11530_ '())))) + (cons _exn11486_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12663))))))) + __tmp12619))))))) (define stack-overflow-exception? - (lambda (_exn11524_) + (lambda (_exn11480_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11524_)) - (let ((_e11527_ + (class-instance? RuntimeException::t _exn11480_)) + (let ((_e11483_ (let () (declare (not safe)) - (slot-ref _exn11524_ 'exception)))) - (macro-stack-overflow-exception? _e11527_)) - (macro-stack-overflow-exception? _exn11524_)))) + (slot-ref _exn11480_ 'exception)))) + (macro-stack-overflow-exception? _e11483_)) + (macro-stack-overflow-exception? _exn11480_)))) (define started-thread-exception? - (lambda (_exn11520_) + (lambda (_exn11476_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11520_)) - (let ((_e11522_ + (class-instance? RuntimeException::t _exn11476_)) + (let ((_e11478_ (let () (declare (not safe)) - (slot-ref _exn11520_ 'exception)))) - (macro-started-thread-exception? _e11522_)) - (macro-started-thread-exception? _exn11520_)))) + (slot-ref _exn11476_ 'exception)))) + (macro-started-thread-exception? _e11478_)) + (macro-started-thread-exception? _exn11476_)))) (define started-thread-exception-arguments - (lambda (_exn11516_) + (lambda (_exn11472_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11516_)) - (let ((_e11518_ + (class-instance? RuntimeException::t _exn11472_)) + (let ((_e11474_ (let () (declare (not safe)) - (slot-ref _exn11516_ 'exception)))) - (if (macro-started-thread-exception? _e11518_) - (macro-started-thread-exception-arguments _e11518_) + (slot-ref _exn11472_ 'exception)))) + (if (macro-started-thread-exception? _e11474_) + (macro-started-thread-exception-arguments _e11474_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12666 + (let ((__tmp12622 (let () (declare (not safe)) - (cons _e11518_ '())))) + (cons _e11474_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12666))))) - (if (macro-started-thread-exception? _exn11516_) - (macro-started-thread-exception-arguments _exn11516_) + __tmp12622))))) + (if (macro-started-thread-exception? _exn11472_) + (macro-started-thread-exception-arguments _exn11472_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12665 + (let ((__tmp12621 (let () (declare (not safe)) - (cons _exn11516_ '())))) + (cons _exn11472_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12665))))))) + __tmp12621))))))) (define started-thread-exception-procedure - (lambda (_exn11510_) + (lambda (_exn11466_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11510_)) - (let ((_e11513_ + (class-instance? RuntimeException::t _exn11466_)) + (let ((_e11469_ (let () (declare (not safe)) - (slot-ref _exn11510_ 'exception)))) - (if (macro-started-thread-exception? _e11513_) - (macro-started-thread-exception-procedure _e11513_) + (slot-ref _exn11466_ 'exception)))) + (if (macro-started-thread-exception? _e11469_) + (macro-started-thread-exception-procedure _e11469_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12668 + (let ((__tmp12624 (let () (declare (not safe)) - (cons _e11513_ '())))) + (cons _e11469_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12668))))) - (if (macro-started-thread-exception? _exn11510_) - (macro-started-thread-exception-procedure _exn11510_) + __tmp12624))))) + (if (macro-started-thread-exception? _exn11466_) + (macro-started-thread-exception-procedure _exn11466_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12667 + (let ((__tmp12623 (let () (declare (not safe)) - (cons _exn11510_ '())))) + (cons _exn11466_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12667))))))) + __tmp12623))))))) (define terminated-thread-exception? - (lambda (_exn11506_) + (lambda (_exn11462_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11506_)) - (let ((_e11508_ + (class-instance? RuntimeException::t _exn11462_)) + (let ((_e11464_ (let () (declare (not safe)) - (slot-ref _exn11506_ 'exception)))) - (macro-terminated-thread-exception? _e11508_)) - (macro-terminated-thread-exception? _exn11506_)))) + (slot-ref _exn11462_ 'exception)))) + (macro-terminated-thread-exception? _e11464_)) + (macro-terminated-thread-exception? _exn11462_)))) (define terminated-thread-exception-arguments - (lambda (_exn11502_) + (lambda (_exn11458_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11502_)) - (let ((_e11504_ + (class-instance? RuntimeException::t _exn11458_)) + (let ((_e11460_ (let () (declare (not safe)) - (slot-ref _exn11502_ 'exception)))) - (if (macro-terminated-thread-exception? _e11504_) - (macro-terminated-thread-exception-arguments _e11504_) + (slot-ref _exn11458_ 'exception)))) + (if (macro-terminated-thread-exception? _e11460_) + (macro-terminated-thread-exception-arguments _e11460_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12670 + (let ((__tmp12626 (let () (declare (not safe)) - (cons _e11504_ '())))) + (cons _e11460_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12670))))) - (if (macro-terminated-thread-exception? _exn11502_) - (macro-terminated-thread-exception-arguments _exn11502_) + __tmp12626))))) + (if (macro-terminated-thread-exception? _exn11458_) + (macro-terminated-thread-exception-arguments _exn11458_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12669 + (let ((__tmp12625 (let () (declare (not safe)) - (cons _exn11502_ '())))) + (cons _exn11458_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12669))))))) + __tmp12625))))))) (define terminated-thread-exception-procedure - (lambda (_exn11496_) + (lambda (_exn11452_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11496_)) - (let ((_e11499_ + (class-instance? RuntimeException::t _exn11452_)) + (let ((_e11455_ (let () (declare (not safe)) - (slot-ref _exn11496_ 'exception)))) - (if (macro-terminated-thread-exception? _e11499_) - (macro-terminated-thread-exception-procedure _e11499_) + (slot-ref _exn11452_ 'exception)))) + (if (macro-terminated-thread-exception? _e11455_) + (macro-terminated-thread-exception-procedure _e11455_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12672 + (let ((__tmp12628 (let () (declare (not safe)) - (cons _e11499_ '())))) + (cons _e11455_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12672))))) - (if (macro-terminated-thread-exception? _exn11496_) - (macro-terminated-thread-exception-procedure _exn11496_) + __tmp12628))))) + (if (macro-terminated-thread-exception? _exn11452_) + (macro-terminated-thread-exception-procedure _exn11452_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12671 + (let ((__tmp12627 (let () (declare (not safe)) - (cons _exn11496_ '())))) + (cons _exn11452_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12671))))))) + __tmp12627))))))) (define type-exception? - (lambda (_exn11492_) + (lambda (_exn11448_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11492_)) - (let ((_e11494_ + (class-instance? RuntimeException::t _exn11448_)) + (let ((_e11450_ (let () (declare (not safe)) - (slot-ref _exn11492_ 'exception)))) - (macro-type-exception? _e11494_)) - (macro-type-exception? _exn11492_)))) + (slot-ref _exn11448_ 'exception)))) + (macro-type-exception? _e11450_)) + (macro-type-exception? _exn11448_)))) (define type-exception-arg-id - (lambda (_exn11488_) + (lambda (_exn11444_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11488_)) - (let ((_e11490_ + (class-instance? RuntimeException::t _exn11444_)) + (let ((_e11446_ (let () (declare (not safe)) - (slot-ref _exn11488_ 'exception)))) - (if (macro-type-exception? _e11490_) - (macro-type-exception-arg-id _e11490_) + (slot-ref _exn11444_ 'exception)))) + (if (macro-type-exception? _e11446_) + (macro-type-exception-arg-id _e11446_) (error '"not an instance" 'type-exception? - (let ((__tmp12674 + (let ((__tmp12630 (let () (declare (not safe)) - (cons _e11490_ '())))) + (cons _e11446_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp12674))))) - (if (macro-type-exception? _exn11488_) - (macro-type-exception-arg-id _exn11488_) + (cons 'type-exception-arg-id __tmp12630))))) + (if (macro-type-exception? _exn11444_) + (macro-type-exception-arg-id _exn11444_) (error '"not an instance" 'type-exception? - (let ((__tmp12673 + (let ((__tmp12629 (let () (declare (not safe)) - (cons _exn11488_ '())))) + (cons _exn11444_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp12673))))))) + (cons 'type-exception-arg-id __tmp12629))))))) (define type-exception-arguments - (lambda (_exn11484_) + (lambda (_exn11440_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11484_)) - (let ((_e11486_ + (class-instance? RuntimeException::t _exn11440_)) + (let ((_e11442_ (let () (declare (not safe)) - (slot-ref _exn11484_ 'exception)))) - (if (macro-type-exception? _e11486_) - (macro-type-exception-arguments _e11486_) + (slot-ref _exn11440_ 'exception)))) + (if (macro-type-exception? _e11442_) + (macro-type-exception-arguments _e11442_) (error '"not an instance" 'type-exception? - (let ((__tmp12676 + (let ((__tmp12632 (let () (declare (not safe)) - (cons _e11486_ '())))) + (cons _e11442_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12676))))) - (if (macro-type-exception? _exn11484_) - (macro-type-exception-arguments _exn11484_) + (cons 'type-exception-arguments __tmp12632))))) + (if (macro-type-exception? _exn11440_) + (macro-type-exception-arguments _exn11440_) (error '"not an instance" 'type-exception? - (let ((__tmp12675 + (let ((__tmp12631 (let () (declare (not safe)) - (cons _exn11484_ '())))) + (cons _exn11440_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12675))))))) + (cons 'type-exception-arguments __tmp12631))))))) (define type-exception-procedure - (lambda (_exn11480_) + (lambda (_exn11436_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11480_)) - (let ((_e11482_ + (class-instance? RuntimeException::t _exn11436_)) + (let ((_e11438_ (let () (declare (not safe)) - (slot-ref _exn11480_ 'exception)))) - (if (macro-type-exception? _e11482_) - (macro-type-exception-procedure _e11482_) + (slot-ref _exn11436_ 'exception)))) + (if (macro-type-exception? _e11438_) + (macro-type-exception-procedure _e11438_) (error '"not an instance" 'type-exception? - (let ((__tmp12678 + (let ((__tmp12634 (let () (declare (not safe)) - (cons _e11482_ '())))) + (cons _e11438_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12678))))) - (if (macro-type-exception? _exn11480_) - (macro-type-exception-procedure _exn11480_) + (cons 'type-exception-procedure __tmp12634))))) + (if (macro-type-exception? _exn11436_) + (macro-type-exception-procedure _exn11436_) (error '"not an instance" 'type-exception? - (let ((__tmp12677 + (let ((__tmp12633 (let () (declare (not safe)) - (cons _exn11480_ '())))) + (cons _exn11436_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12677))))))) + (cons 'type-exception-procedure __tmp12633))))))) (define type-exception-type-id - (lambda (_exn11474_) + (lambda (_exn11430_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11474_)) - (let ((_e11477_ + (class-instance? RuntimeException::t _exn11430_)) + (let ((_e11433_ (let () (declare (not safe)) - (slot-ref _exn11474_ 'exception)))) - (if (macro-type-exception? _e11477_) - (macro-type-exception-type-id _e11477_) + (slot-ref _exn11430_ 'exception)))) + (if (macro-type-exception? _e11433_) + (macro-type-exception-type-id _e11433_) (error '"not an instance" 'type-exception? - (let ((__tmp12680 + (let ((__tmp12636 (let () (declare (not safe)) - (cons _e11477_ '())))) + (cons _e11433_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp12680))))) - (if (macro-type-exception? _exn11474_) - (macro-type-exception-type-id _exn11474_) + (cons 'type-exception-type-id __tmp12636))))) + (if (macro-type-exception? _exn11430_) + (macro-type-exception-type-id _exn11430_) (error '"not an instance" 'type-exception? - (let ((__tmp12679 + (let ((__tmp12635 (let () (declare (not safe)) - (cons _exn11474_ '())))) + (cons _exn11430_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp12679))))))) + (cons 'type-exception-type-id __tmp12635))))))) (define unbound-global-exception? - (lambda (_exn11470_) + (lambda (_exn11426_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11470_)) - (let ((_e11472_ + (class-instance? RuntimeException::t _exn11426_)) + (let ((_e11428_ (let () (declare (not safe)) - (slot-ref _exn11470_ 'exception)))) - (macro-unbound-global-exception? _e11472_)) - (macro-unbound-global-exception? _exn11470_)))) + (slot-ref _exn11426_ 'exception)))) + (macro-unbound-global-exception? _e11428_)) + (macro-unbound-global-exception? _exn11426_)))) (define unbound-global-exception-code - (lambda (_exn11466_) + (lambda (_exn11422_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11466_)) - (let ((_e11468_ + (class-instance? RuntimeException::t _exn11422_)) + (let ((_e11424_ (let () (declare (not safe)) - (slot-ref _exn11466_ 'exception)))) - (if (macro-unbound-global-exception? _e11468_) - (macro-unbound-global-exception-code _e11468_) + (slot-ref _exn11422_ 'exception)))) + (if (macro-unbound-global-exception? _e11424_) + (macro-unbound-global-exception-code _e11424_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12682 + (let ((__tmp12638 (let () (declare (not safe)) - (cons _e11468_ '())))) + (cons _e11424_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp12682))))) - (if (macro-unbound-global-exception? _exn11466_) - (macro-unbound-global-exception-code _exn11466_) + (cons 'unbound-global-exception-code __tmp12638))))) + (if (macro-unbound-global-exception? _exn11422_) + (macro-unbound-global-exception-code _exn11422_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12681 + (let ((__tmp12637 (let () (declare (not safe)) - (cons _exn11466_ '())))) + (cons _exn11422_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp12681))))))) + (cons 'unbound-global-exception-code __tmp12637))))))) (define unbound-global-exception-rte - (lambda (_exn11462_) + (lambda (_exn11418_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11462_)) - (let ((_e11464_ + (class-instance? RuntimeException::t _exn11418_)) + (let ((_e11420_ (let () (declare (not safe)) - (slot-ref _exn11462_ 'exception)))) - (if (macro-unbound-global-exception? _e11464_) - (macro-unbound-global-exception-rte _e11464_) + (slot-ref _exn11418_ 'exception)))) + (if (macro-unbound-global-exception? _e11420_) + (macro-unbound-global-exception-rte _e11420_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12684 + (let ((__tmp12640 (let () (declare (not safe)) - (cons _e11464_ '())))) + (cons _e11420_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp12684))))) - (if (macro-unbound-global-exception? _exn11462_) - (macro-unbound-global-exception-rte _exn11462_) + (cons 'unbound-global-exception-rte __tmp12640))))) + (if (macro-unbound-global-exception? _exn11418_) + (macro-unbound-global-exception-rte _exn11418_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12683 + (let ((__tmp12639 (let () (declare (not safe)) - (cons _exn11462_ '())))) + (cons _exn11418_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp12683))))))) + (cons 'unbound-global-exception-rte __tmp12639))))))) (define unbound-global-exception-variable - (lambda (_exn11456_) + (lambda (_exn11412_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11456_)) - (let ((_e11459_ + (class-instance? RuntimeException::t _exn11412_)) + (let ((_e11415_ (let () (declare (not safe)) - (slot-ref _exn11456_ 'exception)))) - (if (macro-unbound-global-exception? _e11459_) - (macro-unbound-global-exception-variable _e11459_) + (slot-ref _exn11412_ 'exception)))) + (if (macro-unbound-global-exception? _e11415_) + (macro-unbound-global-exception-variable _e11415_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12686 + (let ((__tmp12642 (let () (declare (not safe)) - (cons _e11459_ '())))) + (cons _e11415_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12686))))) - (if (macro-unbound-global-exception? _exn11456_) - (macro-unbound-global-exception-variable _exn11456_) + __tmp12642))))) + (if (macro-unbound-global-exception? _exn11412_) + (macro-unbound-global-exception-variable _exn11412_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12685 + (let ((__tmp12641 (let () (declare (not safe)) - (cons _exn11456_ '())))) + (cons _exn11412_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12685))))))) + __tmp12641))))))) (define unbound-key-exception? - (lambda (_exn11452_) + (lambda (_exn11408_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11452_)) - (let ((_e11454_ + (class-instance? RuntimeException::t _exn11408_)) + (let ((_e11410_ (let () (declare (not safe)) - (slot-ref _exn11452_ 'exception)))) - (macro-unbound-key-exception? _e11454_)) - (macro-unbound-key-exception? _exn11452_)))) + (slot-ref _exn11408_ 'exception)))) + (macro-unbound-key-exception? _e11410_)) + (macro-unbound-key-exception? _exn11408_)))) (define unbound-key-exception-arguments - (lambda (_exn11448_) + (lambda (_exn11404_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11448_)) - (let ((_e11450_ + (class-instance? RuntimeException::t _exn11404_)) + (let ((_e11406_ (let () (declare (not safe)) - (slot-ref _exn11448_ 'exception)))) - (if (macro-unbound-key-exception? _e11450_) - (macro-unbound-key-exception-arguments _e11450_) + (slot-ref _exn11404_ 'exception)))) + (if (macro-unbound-key-exception? _e11406_) + (macro-unbound-key-exception-arguments _e11406_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12688 + (let ((__tmp12644 (let () (declare (not safe)) - (cons _e11450_ '())))) + (cons _e11406_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12688))))) - (if (macro-unbound-key-exception? _exn11448_) - (macro-unbound-key-exception-arguments _exn11448_) + __tmp12644))))) + (if (macro-unbound-key-exception? _exn11404_) + (macro-unbound-key-exception-arguments _exn11404_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12687 + (let ((__tmp12643 (let () (declare (not safe)) - (cons _exn11448_ '())))) + (cons _exn11404_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12687))))))) + __tmp12643))))))) (define unbound-key-exception-procedure - (lambda (_exn11442_) + (lambda (_exn11398_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11442_)) - (let ((_e11445_ + (class-instance? RuntimeException::t _exn11398_)) + (let ((_e11401_ (let () (declare (not safe)) - (slot-ref _exn11442_ 'exception)))) - (if (macro-unbound-key-exception? _e11445_) - (macro-unbound-key-exception-procedure _e11445_) + (slot-ref _exn11398_ 'exception)))) + (if (macro-unbound-key-exception? _e11401_) + (macro-unbound-key-exception-procedure _e11401_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12690 + (let ((__tmp12646 (let () (declare (not safe)) - (cons _e11445_ '())))) + (cons _e11401_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12690))))) - (if (macro-unbound-key-exception? _exn11442_) - (macro-unbound-key-exception-procedure _exn11442_) + __tmp12646))))) + (if (macro-unbound-key-exception? _exn11398_) + (macro-unbound-key-exception-procedure _exn11398_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12689 + (let ((__tmp12645 (let () (declare (not safe)) - (cons _exn11442_ '())))) + (cons _exn11398_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12689))))))) + __tmp12645))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn11438_) + (lambda (_exn11394_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11438_)) - (let ((_e11440_ + (class-instance? RuntimeException::t _exn11394_)) + (let ((_e11396_ (let () (declare (not safe)) - (slot-ref _exn11438_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e11440_)) - (macro-unbound-os-environment-variable-exception? _exn11438_)))) + (slot-ref _exn11394_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e11396_)) + (macro-unbound-os-environment-variable-exception? _exn11394_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn11434_) + (lambda (_exn11390_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11434_)) - (let ((_e11436_ + (class-instance? RuntimeException::t _exn11390_)) + (let ((_e11392_ (let () (declare (not safe)) - (slot-ref _exn11434_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11436_) + (slot-ref _exn11390_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11392_) (macro-unbound-os-environment-variable-exception-arguments - _e11436_) + _e11392_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12692 + (let ((__tmp12648 (let () (declare (not safe)) - (cons _e11436_ '())))) + (cons _e11392_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12692))))) - (if (macro-unbound-os-environment-variable-exception? _exn11434_) + __tmp12648))))) + (if (macro-unbound-os-environment-variable-exception? _exn11390_) (macro-unbound-os-environment-variable-exception-arguments - _exn11434_) + _exn11390_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12691 + (let ((__tmp12647 (let () (declare (not safe)) - (cons _exn11434_ '())))) + (cons _exn11390_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12691))))))) + __tmp12647))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn11428_) + (lambda (_exn11384_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11428_)) - (let ((_e11431_ + (class-instance? RuntimeException::t _exn11384_)) + (let ((_e11387_ (let () (declare (not safe)) - (slot-ref _exn11428_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11431_) + (slot-ref _exn11384_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11387_) (macro-unbound-os-environment-variable-exception-procedure - _e11431_) + _e11387_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12694 + (let ((__tmp12650 (let () (declare (not safe)) - (cons _e11431_ '())))) + (cons _e11387_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12694))))) - (if (macro-unbound-os-environment-variable-exception? _exn11428_) + __tmp12650))))) + (if (macro-unbound-os-environment-variable-exception? _exn11384_) (macro-unbound-os-environment-variable-exception-procedure - _exn11428_) + _exn11384_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12693 + (let ((__tmp12649 (let () (declare (not safe)) - (cons _exn11428_ '())))) + (cons _exn11384_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12693))))))) + __tmp12649))))))) (define unbound-serial-number-exception? - (lambda (_exn11424_) + (lambda (_exn11380_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11424_)) - (let ((_e11426_ + (class-instance? RuntimeException::t _exn11380_)) + (let ((_e11382_ (let () (declare (not safe)) - (slot-ref _exn11424_ 'exception)))) - (macro-unbound-serial-number-exception? _e11426_)) - (macro-unbound-serial-number-exception? _exn11424_)))) + (slot-ref _exn11380_ 'exception)))) + (macro-unbound-serial-number-exception? _e11382_)) + (macro-unbound-serial-number-exception? _exn11380_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn11420_) + (lambda (_exn11376_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11420_)) - (let ((_e11422_ + (class-instance? RuntimeException::t _exn11376_)) + (let ((_e11378_ (let () (declare (not safe)) - (slot-ref _exn11420_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11422_) - (macro-unbound-serial-number-exception-arguments _e11422_) + (slot-ref _exn11376_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11378_) + (macro-unbound-serial-number-exception-arguments _e11378_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12696 + (let ((__tmp12652 (let () (declare (not safe)) - (cons _e11422_ '())))) + (cons _e11378_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12696))))) - (if (macro-unbound-serial-number-exception? _exn11420_) - (macro-unbound-serial-number-exception-arguments _exn11420_) + __tmp12652))))) + (if (macro-unbound-serial-number-exception? _exn11376_) + (macro-unbound-serial-number-exception-arguments _exn11376_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12695 + (let ((__tmp12651 (let () (declare (not safe)) - (cons _exn11420_ '())))) + (cons _exn11376_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12695))))))) + __tmp12651))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn11414_) + (lambda (_exn11370_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11414_)) - (let ((_e11417_ + (class-instance? RuntimeException::t _exn11370_)) + (let ((_e11373_ (let () (declare (not safe)) - (slot-ref _exn11414_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11417_) - (macro-unbound-serial-number-exception-procedure _e11417_) + (slot-ref _exn11370_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11373_) + (macro-unbound-serial-number-exception-procedure _e11373_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12698 + (let ((__tmp12654 (let () (declare (not safe)) - (cons _e11417_ '())))) + (cons _e11373_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12698))))) - (if (macro-unbound-serial-number-exception? _exn11414_) - (macro-unbound-serial-number-exception-procedure _exn11414_) + __tmp12654))))) + (if (macro-unbound-serial-number-exception? _exn11370_) + (macro-unbound-serial-number-exception-procedure _exn11370_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12697 + (let ((__tmp12653 (let () (declare (not safe)) - (cons _exn11414_ '())))) + (cons _exn11370_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12697))))))) + __tmp12653))))))) (define uncaught-exception? - (lambda (_exn11410_) + (lambda (_exn11366_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11410_)) - (let ((_e11412_ + (class-instance? RuntimeException::t _exn11366_)) + (let ((_e11368_ (let () (declare (not safe)) - (slot-ref _exn11410_ 'exception)))) - (macro-uncaught-exception? _e11412_)) - (macro-uncaught-exception? _exn11410_)))) + (slot-ref _exn11366_ 'exception)))) + (macro-uncaught-exception? _e11368_)) + (macro-uncaught-exception? _exn11366_)))) (define uncaught-exception-arguments - (lambda (_exn11406_) + (lambda (_exn11362_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11406_)) - (let ((_e11408_ + (class-instance? RuntimeException::t _exn11362_)) + (let ((_e11364_ (let () (declare (not safe)) - (slot-ref _exn11406_ 'exception)))) - (if (macro-uncaught-exception? _e11408_) - (macro-uncaught-exception-arguments _e11408_) + (slot-ref _exn11362_ 'exception)))) + (if (macro-uncaught-exception? _e11364_) + (macro-uncaught-exception-arguments _e11364_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12700 + (let ((__tmp12656 (let () (declare (not safe)) - (cons _e11408_ '())))) + (cons _e11364_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12700))))) - (if (macro-uncaught-exception? _exn11406_) - (macro-uncaught-exception-arguments _exn11406_) + (cons 'uncaught-exception-arguments __tmp12656))))) + (if (macro-uncaught-exception? _exn11362_) + (macro-uncaught-exception-arguments _exn11362_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12699 + (let ((__tmp12655 (let () (declare (not safe)) - (cons _exn11406_ '())))) + (cons _exn11362_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12699))))))) + (cons 'uncaught-exception-arguments __tmp12655))))))) (define uncaught-exception-procedure - (lambda (_exn11402_) + (lambda (_exn11358_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11402_)) - (let ((_e11404_ + (class-instance? RuntimeException::t _exn11358_)) + (let ((_e11360_ (let () (declare (not safe)) - (slot-ref _exn11402_ 'exception)))) - (if (macro-uncaught-exception? _e11404_) - (macro-uncaught-exception-procedure _e11404_) + (slot-ref _exn11358_ 'exception)))) + (if (macro-uncaught-exception? _e11360_) + (macro-uncaught-exception-procedure _e11360_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12702 + (let ((__tmp12658 (let () (declare (not safe)) - (cons _e11404_ '())))) + (cons _e11360_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12702))))) - (if (macro-uncaught-exception? _exn11402_) - (macro-uncaught-exception-procedure _exn11402_) + (cons 'uncaught-exception-procedure __tmp12658))))) + (if (macro-uncaught-exception? _exn11358_) + (macro-uncaught-exception-procedure _exn11358_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12701 + (let ((__tmp12657 (let () (declare (not safe)) - (cons _exn11402_ '())))) + (cons _exn11358_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12701))))))) + (cons 'uncaught-exception-procedure __tmp12657))))))) (define uncaught-exception-reason - (lambda (_exn11396_) + (lambda (_exn11352_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11396_)) - (let ((_e11399_ + (class-instance? RuntimeException::t _exn11352_)) + (let ((_e11355_ (let () (declare (not safe)) - (slot-ref _exn11396_ 'exception)))) - (if (macro-uncaught-exception? _e11399_) - (macro-uncaught-exception-reason _e11399_) + (slot-ref _exn11352_ 'exception)))) + (if (macro-uncaught-exception? _e11355_) + (macro-uncaught-exception-reason _e11355_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12704 + (let ((__tmp12660 (let () (declare (not safe)) - (cons _e11399_ '())))) + (cons _e11355_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12704))))) - (if (macro-uncaught-exception? _exn11396_) - (macro-uncaught-exception-reason _exn11396_) + (cons 'uncaught-exception-reason __tmp12660))))) + (if (macro-uncaught-exception? _exn11352_) + (macro-uncaught-exception-reason _exn11352_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12703 + (let ((__tmp12659 (let () (declare (not safe)) - (cons _exn11396_ '())))) + (cons _exn11352_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12703))))))) + (cons 'uncaught-exception-reason __tmp12659))))))) (define uninitialized-thread-exception? - (lambda (_exn11392_) + (lambda (_exn11348_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11392_)) - (let ((_e11394_ + (class-instance? RuntimeException::t _exn11348_)) + (let ((_e11350_ (let () (declare (not safe)) - (slot-ref _exn11392_ 'exception)))) - (macro-uninitialized-thread-exception? _e11394_)) - (macro-uninitialized-thread-exception? _exn11392_)))) + (slot-ref _exn11348_ 'exception)))) + (macro-uninitialized-thread-exception? _e11350_)) + (macro-uninitialized-thread-exception? _exn11348_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn11388_) + (lambda (_exn11344_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11388_)) - (let ((_e11390_ + (class-instance? RuntimeException::t _exn11344_)) + (let ((_e11346_ (let () (declare (not safe)) - (slot-ref _exn11388_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11390_) - (macro-uninitialized-thread-exception-arguments _e11390_) + (slot-ref _exn11344_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11346_) + (macro-uninitialized-thread-exception-arguments _e11346_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12706 + (let ((__tmp12662 (let () (declare (not safe)) - (cons _e11390_ '())))) + (cons _e11346_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12706))))) - (if (macro-uninitialized-thread-exception? _exn11388_) - (macro-uninitialized-thread-exception-arguments _exn11388_) + __tmp12662))))) + (if (macro-uninitialized-thread-exception? _exn11344_) + (macro-uninitialized-thread-exception-arguments _exn11344_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12705 + (let ((__tmp12661 (let () (declare (not safe)) - (cons _exn11388_ '())))) + (cons _exn11344_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12705))))))) + __tmp12661))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn11382_) + (lambda (_exn11338_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11382_)) - (let ((_e11385_ + (class-instance? RuntimeException::t _exn11338_)) + (let ((_e11341_ (let () (declare (not safe)) - (slot-ref _exn11382_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11385_) - (macro-uninitialized-thread-exception-procedure _e11385_) + (slot-ref _exn11338_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11341_) + (macro-uninitialized-thread-exception-procedure _e11341_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12708 + (let ((__tmp12664 (let () (declare (not safe)) - (cons _e11385_ '())))) + (cons _e11341_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12708))))) - (if (macro-uninitialized-thread-exception? _exn11382_) - (macro-uninitialized-thread-exception-procedure _exn11382_) + __tmp12664))))) + (if (macro-uninitialized-thread-exception? _exn11338_) + (macro-uninitialized-thread-exception-procedure _exn11338_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12707 + (let ((__tmp12663 (let () (declare (not safe)) - (cons _exn11382_ '())))) + (cons _exn11338_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12707))))))) + __tmp12663))))))) (define unknown-keyword-argument-exception? - (lambda (_exn11378_) + (lambda (_exn11334_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11378_)) - (let ((_e11380_ + (class-instance? RuntimeException::t _exn11334_)) + (let ((_e11336_ (let () (declare (not safe)) - (slot-ref _exn11378_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e11380_)) - (macro-unknown-keyword-argument-exception? _exn11378_)))) + (slot-ref _exn11334_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e11336_)) + (macro-unknown-keyword-argument-exception? _exn11334_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn11374_) + (lambda (_exn11330_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11374_)) - (let ((_e11376_ + (class-instance? RuntimeException::t _exn11330_)) + (let ((_e11332_ (let () (declare (not safe)) - (slot-ref _exn11374_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11376_) - (macro-unknown-keyword-argument-exception-arguments _e11376_) + (slot-ref _exn11330_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11332_) + (macro-unknown-keyword-argument-exception-arguments _e11332_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12710 + (let ((__tmp12666 (let () (declare (not safe)) - (cons _e11376_ '())))) + (cons _e11332_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12710))))) - (if (macro-unknown-keyword-argument-exception? _exn11374_) - (macro-unknown-keyword-argument-exception-arguments _exn11374_) + __tmp12666))))) + (if (macro-unknown-keyword-argument-exception? _exn11330_) + (macro-unknown-keyword-argument-exception-arguments _exn11330_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12709 + (let ((__tmp12665 (let () (declare (not safe)) - (cons _exn11374_ '())))) + (cons _exn11330_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12709))))))) + __tmp12665))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn11368_) + (lambda (_exn11324_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11368_)) - (let ((_e11371_ + (class-instance? RuntimeException::t _exn11324_)) + (let ((_e11327_ (let () (declare (not safe)) - (slot-ref _exn11368_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11371_) - (macro-unknown-keyword-argument-exception-procedure _e11371_) + (slot-ref _exn11324_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11327_) + (macro-unknown-keyword-argument-exception-procedure _e11327_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12712 + (let ((__tmp12668 (let () (declare (not safe)) - (cons _e11371_ '())))) + (cons _e11327_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12712))))) - (if (macro-unknown-keyword-argument-exception? _exn11368_) - (macro-unknown-keyword-argument-exception-procedure _exn11368_) + __tmp12668))))) + (if (macro-unknown-keyword-argument-exception? _exn11324_) + (macro-unknown-keyword-argument-exception-procedure _exn11324_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12711 + (let ((__tmp12667 (let () (declare (not safe)) - (cons _exn11368_ '())))) + (cons _exn11324_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12711))))))) + __tmp12667))))))) (define unterminated-process-exception? - (lambda (_exn11364_) + (lambda (_exn11320_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11364_)) - (let ((_e11366_ + (class-instance? RuntimeException::t _exn11320_)) + (let ((_e11322_ (let () (declare (not safe)) - (slot-ref _exn11364_ 'exception)))) - (macro-unterminated-process-exception? _e11366_)) - (macro-unterminated-process-exception? _exn11364_)))) + (slot-ref _exn11320_ 'exception)))) + (macro-unterminated-process-exception? _e11322_)) + (macro-unterminated-process-exception? _exn11320_)))) (define unterminated-process-exception-arguments - (lambda (_exn11360_) + (lambda (_exn11316_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11360_)) - (let ((_e11362_ + (class-instance? RuntimeException::t _exn11316_)) + (let ((_e11318_ (let () (declare (not safe)) - (slot-ref _exn11360_ 'exception)))) - (if (macro-unterminated-process-exception? _e11362_) - (macro-unterminated-process-exception-arguments _e11362_) + (slot-ref _exn11316_ 'exception)))) + (if (macro-unterminated-process-exception? _e11318_) + (macro-unterminated-process-exception-arguments _e11318_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12714 + (let ((__tmp12670 (let () (declare (not safe)) - (cons _e11362_ '())))) + (cons _e11318_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12714))))) - (if (macro-unterminated-process-exception? _exn11360_) - (macro-unterminated-process-exception-arguments _exn11360_) + __tmp12670))))) + (if (macro-unterminated-process-exception? _exn11316_) + (macro-unterminated-process-exception-arguments _exn11316_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12713 + (let ((__tmp12669 (let () (declare (not safe)) - (cons _exn11360_ '())))) + (cons _exn11316_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12713))))))) + __tmp12669))))))) (define unterminated-process-exception-procedure - (lambda (_exn11354_) + (lambda (_exn11310_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11354_)) - (let ((_e11357_ + (class-instance? RuntimeException::t _exn11310_)) + (let ((_e11313_ (let () (declare (not safe)) - (slot-ref _exn11354_ 'exception)))) - (if (macro-unterminated-process-exception? _e11357_) - (macro-unterminated-process-exception-procedure _e11357_) + (slot-ref _exn11310_ 'exception)))) + (if (macro-unterminated-process-exception? _e11313_) + (macro-unterminated-process-exception-procedure _e11313_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12716 + (let ((__tmp12672 (let () (declare (not safe)) - (cons _e11357_ '())))) + (cons _e11313_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12716))))) - (if (macro-unterminated-process-exception? _exn11354_) - (macro-unterminated-process-exception-procedure _exn11354_) + __tmp12672))))) + (if (macro-unterminated-process-exception? _exn11310_) + (macro-unterminated-process-exception-procedure _exn11310_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12715 + (let ((__tmp12671 (let () (declare (not safe)) - (cons _exn11354_ '())))) + (cons _exn11310_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12715))))))) + __tmp12671))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn11350_) + (lambda (_exn11306_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11350_)) - (let ((_e11352_ + (class-instance? RuntimeException::t _exn11306_)) + (let ((_e11308_ (let () (declare (not safe)) - (slot-ref _exn11350_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e11352_)) - (macro-wrong-number-of-arguments-exception? _exn11350_)))) + (slot-ref _exn11306_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e11308_)) + (macro-wrong-number-of-arguments-exception? _exn11306_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn11346_) + (lambda (_exn11302_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11346_)) - (let ((_e11348_ + (class-instance? RuntimeException::t _exn11302_)) + (let ((_e11304_ (let () (declare (not safe)) - (slot-ref _exn11346_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11348_) + (slot-ref _exn11302_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11304_) (macro-wrong-number-of-arguments-exception-arguments - _e11348_) + _e11304_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12718 + (let ((__tmp12674 (let () (declare (not safe)) - (cons _e11348_ '())))) + (cons _e11304_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12718))))) - (if (macro-wrong-number-of-arguments-exception? _exn11346_) + __tmp12674))))) + (if (macro-wrong-number-of-arguments-exception? _exn11302_) (macro-wrong-number-of-arguments-exception-arguments - _exn11346_) + _exn11302_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12717 + (let ((__tmp12673 (let () (declare (not safe)) - (cons _exn11346_ '())))) + (cons _exn11302_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12717))))))) + __tmp12673))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn11340_) + (lambda (_exn11296_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11340_)) - (let ((_e11343_ + (class-instance? RuntimeException::t _exn11296_)) + (let ((_e11299_ (let () (declare (not safe)) - (slot-ref _exn11340_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11343_) + (slot-ref _exn11296_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11299_) (macro-wrong-number-of-arguments-exception-procedure - _e11343_) + _e11299_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12720 + (let ((__tmp12676 (let () (declare (not safe)) - (cons _e11343_ '())))) + (cons _e11299_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12720))))) - (if (macro-wrong-number-of-arguments-exception? _exn11340_) + __tmp12676))))) + (if (macro-wrong-number-of-arguments-exception? _exn11296_) (macro-wrong-number-of-arguments-exception-procedure - _exn11340_) + _exn11296_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12719 + (let ((__tmp12675 (let () (declare (not safe)) - (cons _exn11340_ '())))) + (cons _exn11296_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12719))))))) + __tmp12675))))))) (define wrong-number-of-values-exception? - (lambda (_exn11336_) + (lambda (_exn11292_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11336_)) - (let ((_e11338_ + (class-instance? RuntimeException::t _exn11292_)) + (let ((_e11294_ (let () (declare (not safe)) - (slot-ref _exn11336_ 'exception)))) - (macro-wrong-number-of-values-exception? _e11338_)) - (macro-wrong-number-of-values-exception? _exn11336_)))) + (slot-ref _exn11292_ 'exception)))) + (macro-wrong-number-of-values-exception? _e11294_)) + (macro-wrong-number-of-values-exception? _exn11292_)))) (define wrong-number-of-values-exception-code - (lambda (_exn11332_) + (lambda (_exn11288_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11332_)) - (let ((_e11334_ + (class-instance? RuntimeException::t _exn11288_)) + (let ((_e11290_ (let () (declare (not safe)) - (slot-ref _exn11332_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11334_) - (macro-wrong-number-of-values-exception-code _e11334_) + (slot-ref _exn11288_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11290_) + (macro-wrong-number-of-values-exception-code _e11290_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12722 + (let ((__tmp12678 (let () (declare (not safe)) - (cons _e11334_ '())))) + (cons _e11290_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp12722))))) - (if (macro-wrong-number-of-values-exception? _exn11332_) - (macro-wrong-number-of-values-exception-code _exn11332_) + __tmp12678))))) + (if (macro-wrong-number-of-values-exception? _exn11288_) + (macro-wrong-number-of-values-exception-code _exn11288_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12721 + (let ((__tmp12677 (let () (declare (not safe)) - (cons _exn11332_ '())))) + (cons _exn11288_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp12721))))))) + __tmp12677))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn11328_) + (lambda (_exn11284_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11328_)) - (let ((_e11330_ + (class-instance? RuntimeException::t _exn11284_)) + (let ((_e11286_ (let () (declare (not safe)) - (slot-ref _exn11328_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11330_) - (macro-wrong-number-of-values-exception-rte _e11330_) + (slot-ref _exn11284_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11286_) + (macro-wrong-number-of-values-exception-rte _e11286_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12724 + (let ((__tmp12680 (let () (declare (not safe)) - (cons _e11330_ '())))) + (cons _e11286_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp12724))))) - (if (macro-wrong-number-of-values-exception? _exn11328_) - (macro-wrong-number-of-values-exception-rte _exn11328_) + __tmp12680))))) + (if (macro-wrong-number-of-values-exception? _exn11284_) + (macro-wrong-number-of-values-exception-rte _exn11284_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12723 + (let ((__tmp12679 (let () (declare (not safe)) - (cons _exn11328_ '())))) + (cons _exn11284_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp12723))))))) + __tmp12679))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn11322_) + (lambda (_exn11278_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11322_)) - (let ((_e11325_ + (class-instance? RuntimeException::t _exn11278_)) + (let ((_e11281_ (let () (declare (not safe)) - (slot-ref _exn11322_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11325_) - (macro-wrong-number-of-values-exception-vals _e11325_) + (slot-ref _exn11278_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11281_) + (macro-wrong-number-of-values-exception-vals _e11281_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12726 + (let ((__tmp12682 (let () (declare (not safe)) - (cons _e11325_ '())))) + (cons _e11281_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp12726))))) - (if (macro-wrong-number-of-values-exception? _exn11322_) - (macro-wrong-number-of-values-exception-vals _exn11322_) + __tmp12682))))) + (if (macro-wrong-number-of-values-exception? _exn11278_) + (macro-wrong-number-of-values-exception-vals _exn11278_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12725 + (let ((__tmp12681 (let () (declare (not safe)) - (cons _exn11322_ '())))) + (cons _exn11278_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp12725))))))) + __tmp12681))))))) (define wrong-processor-c-return-exception? - (lambda (_exn11316_) + (lambda (_exn11272_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11316_)) - (let ((_e11319_ + (class-instance? RuntimeException::t _exn11272_)) + (let ((_e11275_ (let () (declare (not safe)) - (slot-ref _exn11316_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e11319_)) - (macro-wrong-processor-c-return-exception? _exn11316_)))))) + (slot-ref _exn11272_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e11275_)) + (macro-wrong-processor-c-return-exception? _exn11272_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 0e62e144..a782381b 100644 --- a/src/bootstrap/gerbil/runtime/error__1.scm +++ b/src/bootstrap/gerbil/runtime/error__1.scm @@ -1,167 +1,167 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g12727_| + (define |[1]#_g12683_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g12734_| + (define |[1]#_g12690_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g12736_| + (define |[1]#_g12692_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12738_| + (define |[1]#_g12694_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g12746_| + (define |[1]#_g12702_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12749_| + (define |[1]#_g12705_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g12751_| + (define |[1]#_g12707_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g12753_| + (define |[1]#_g12709_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12755_| + (define |[1]#_g12711_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g12765_| + (define |[1]#_g12721_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12767_| + (define |[1]#_g12723_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12769_| + (define |[1]#_g12725_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12774_| + (define |[1]#_g12730_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g12776_| + (define |[1]#_g12732_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g12778_| + (define |[1]#_g12734_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g12780_| + (define |[1]#_g12736_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g12782_| + (define |[1]#_g12738_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g12788_| + (define |[1]#_g12744_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12789_| + (define |[1]#_g12745_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12790_| + (define |[1]#_g12746_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g12798_| + (define |[1]#_g12754_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12801_| + (define |[1]#_g12757_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g12803_| + (define |[1]#_g12759_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g12805_| + (define |[1]#_g12761_| (##structure gx#syntax-quote::t 'make-RuntimeException @@ -172,29 +172,29 @@ (define |[:0:]#Exception| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12727_| + |[1]#_g12683_| 'expander-identifiers: - (let ((__tmp12728 - (let ((__tmp12737 |[1]#_g12727_|) - (__tmp12729 - (let ((__tmp12735 |[1]#_g12736_|) - (__tmp12730 - (let ((__tmp12733 |[1]#_g12734_|) - (__tmp12731 - (let ((__tmp12732 + (let ((__tmp12684 + (let ((__tmp12693 |[1]#_g12683_|) + (__tmp12685 + (let ((__tmp12691 |[1]#_g12692_|) + (__tmp12686 + (let ((__tmp12689 |[1]#_g12690_|) + (__tmp12687 + (let ((__tmp12688 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp12732)))) + (cons '() __tmp12688)))) (declare (not safe)) - (cons __tmp12733 __tmp12731)))) + (cons __tmp12689 __tmp12687)))) (declare (not safe)) - (cons __tmp12735 __tmp12730)))) + (cons __tmp12691 __tmp12686)))) (declare (not safe)) - (cons __tmp12737 __tmp12729)))) + (cons __tmp12693 __tmp12685)))) (declare (not safe)) - (cons '() __tmp12728)) + (cons '() __tmp12684)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-class-exhibitor| '#f @@ -206,37 +206,37 @@ (define |[:0:]#StackTrace| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12738_| + |[1]#_g12694_| 'expander-identifiers: - (let ((__tmp12739 - (let ((__tmp12754 |[1]#_g12738_|) - (__tmp12740 - (let ((__tmp12752 |[1]#_g12753_|) - (__tmp12741 - (let ((__tmp12750 |[1]#_g12751_|) - (__tmp12742 - (let ((__tmp12747 - (let ((__tmp12748 |[1]#_g12749_|)) + (let ((__tmp12695 + (let ((__tmp12710 |[1]#_g12694_|) + (__tmp12696 + (let ((__tmp12708 |[1]#_g12709_|) + (__tmp12697 + (let ((__tmp12706 |[1]#_g12707_|) + (__tmp12698 + (let ((__tmp12703 + (let ((__tmp12704 |[1]#_g12705_|)) (declare (not safe)) - (cons __tmp12748 '()))) - (__tmp12743 - (let ((__tmp12744 - (let ((__tmp12745 - |[1]#_g12746_|)) + (cons __tmp12704 '()))) + (__tmp12699 + (let ((__tmp12700 + (let ((__tmp12701 + |[1]#_g12702_|)) (declare (not safe)) - (cons __tmp12745 '())))) + (cons __tmp12701 '())))) (declare (not safe)) - (cons __tmp12744 '())))) + (cons __tmp12700 '())))) (declare (not safe)) - (cons __tmp12747 __tmp12743)))) + (cons __tmp12703 __tmp12699)))) (declare (not safe)) - (cons __tmp12750 __tmp12742)))) + (cons __tmp12706 __tmp12698)))) (declare (not safe)) - (cons __tmp12752 __tmp12741)))) + (cons __tmp12708 __tmp12697)))) (declare (not safe)) - (cons __tmp12754 __tmp12740)))) + (cons __tmp12710 __tmp12696)))) (declare (not safe)) - (cons '() __tmp12739)) + (cons '() __tmp12695)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-class-exhibitor| '#f @@ -248,74 +248,74 @@ (define |[:0:]#Error| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12755_| + |[1]#_g12711_| 'expander-identifiers: - (let ((__tmp12784 - (let ((__tmp12787 |[1]#_g12738_|) - (__tmp12785 - (let ((__tmp12786 |[1]#_g12727_|)) + (let ((__tmp12740 + (let ((__tmp12743 |[1]#_g12694_|) + (__tmp12741 + (let ((__tmp12742 |[1]#_g12683_|)) (declare (not safe)) - (cons __tmp12786 '())))) + (cons __tmp12742 '())))) (declare (not safe)) - (cons __tmp12787 __tmp12785))) - (__tmp12756 - (let ((__tmp12783 |[1]#_g12755_|) - (__tmp12757 - (let ((__tmp12781 |[1]#_g12782_|) - (__tmp12758 - (let ((__tmp12779 |[1]#_g12780_|) - (__tmp12759 - (let ((__tmp12770 - (let ((__tmp12777 |[1]#_g12778_|) - (__tmp12771 - (let ((__tmp12775 - |[1]#_g12776_|) - (__tmp12772 - (let ((__tmp12773 - |[1]#_g12774_|)) + (cons __tmp12743 __tmp12741))) + (__tmp12712 + (let ((__tmp12739 |[1]#_g12711_|) + (__tmp12713 + (let ((__tmp12737 |[1]#_g12738_|) + (__tmp12714 + (let ((__tmp12735 |[1]#_g12736_|) + (__tmp12715 + (let ((__tmp12726 + (let ((__tmp12733 |[1]#_g12734_|) + (__tmp12727 + (let ((__tmp12731 + |[1]#_g12732_|) + (__tmp12728 + (let ((__tmp12729 + |[1]#_g12730_|)) (declare (not safe)) - (cons __tmp12773 + (cons __tmp12729 '())))) (declare (not safe)) - (cons __tmp12775 - __tmp12772)))) + (cons __tmp12731 + __tmp12728)))) (declare (not safe)) - (cons __tmp12777 __tmp12771))) - (__tmp12760 - (let ((__tmp12761 - (let ((__tmp12768 - |[1]#_g12769_|) - (__tmp12762 - (let ((__tmp12766 - |[1]#_g12767_|) - (__tmp12763 - (let ((__tmp12764 + (cons __tmp12733 __tmp12727))) + (__tmp12716 + (let ((__tmp12717 + (let ((__tmp12724 + |[1]#_g12725_|) + (__tmp12718 + (let ((__tmp12722 + |[1]#_g12723_|) + (__tmp12719 + (let ((__tmp12720 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g12765_|)) + |[1]#_g12721_|)) (declare (not safe)) - (cons __tmp12764 '())))) + (cons __tmp12720 '())))) (declare (not safe)) - (cons __tmp12766 __tmp12763)))) + (cons __tmp12722 __tmp12719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12768 - __tmp12762)))) + (cons __tmp12724 + __tmp12718)))) (declare (not safe)) - (cons __tmp12761 '())))) + (cons __tmp12717 '())))) (declare (not safe)) - (cons __tmp12770 __tmp12760)))) + (cons __tmp12726 __tmp12716)))) (declare (not safe)) - (cons __tmp12779 __tmp12759)))) + (cons __tmp12735 __tmp12715)))) (declare (not safe)) - (cons __tmp12781 __tmp12758)))) + (cons __tmp12737 __tmp12714)))) (declare (not safe)) - (cons __tmp12783 __tmp12757)))) + (cons __tmp12739 __tmp12713)))) (declare (not safe)) - (cons __tmp12784 __tmp12756)) + (cons __tmp12740 __tmp12712)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12788_| |[1]#_g12789_|) + (list |[1]#_g12744_| |[1]#_g12745_|) 'Error ':init! '((transparent: . #t)) @@ -323,904 +323,904 @@ (define |[:0:]#RuntimeException| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12790_| + |[1]#_g12746_| 'expander-identifiers: - (let ((__tmp12807 - (let ((__tmp12810 |[1]#_g12738_|) - (__tmp12808 - (let ((__tmp12809 |[1]#_g12727_|)) + (let ((__tmp12763 + (let ((__tmp12766 |[1]#_g12694_|) + (__tmp12764 + (let ((__tmp12765 |[1]#_g12683_|)) (declare (not safe)) - (cons __tmp12809 '())))) + (cons __tmp12765 '())))) (declare (not safe)) - (cons __tmp12810 __tmp12808))) - (__tmp12791 - (let ((__tmp12806 |[1]#_g12790_|) - (__tmp12792 - (let ((__tmp12804 |[1]#_g12805_|) - (__tmp12793 - (let ((__tmp12802 |[1]#_g12803_|) - (__tmp12794 - (let ((__tmp12799 - (let ((__tmp12800 |[1]#_g12801_|)) + (cons __tmp12766 __tmp12764))) + (__tmp12747 + (let ((__tmp12762 |[1]#_g12746_|) + (__tmp12748 + (let ((__tmp12760 |[1]#_g12761_|) + (__tmp12749 + (let ((__tmp12758 |[1]#_g12759_|) + (__tmp12750 + (let ((__tmp12755 + (let ((__tmp12756 |[1]#_g12757_|)) (declare (not safe)) - (cons __tmp12800 '()))) - (__tmp12795 - (let ((__tmp12796 - (let ((__tmp12797 - |[1]#_g12798_|)) + (cons __tmp12756 '()))) + (__tmp12751 + (let ((__tmp12752 + (let ((__tmp12753 + |[1]#_g12754_|)) (declare (not safe)) - (cons __tmp12797 '())))) + (cons __tmp12753 '())))) (declare (not safe)) - (cons __tmp12796 '())))) + (cons __tmp12752 '())))) (declare (not safe)) - (cons __tmp12799 __tmp12795)))) + (cons __tmp12755 __tmp12751)))) (declare (not safe)) - (cons __tmp12802 __tmp12794)))) + (cons __tmp12758 __tmp12750)))) (declare (not safe)) - (cons __tmp12804 __tmp12793)))) + (cons __tmp12760 __tmp12749)))) (declare (not safe)) - (cons __tmp12806 __tmp12792)))) + (cons __tmp12762 __tmp12748)))) (declare (not safe)) - (cons __tmp12807 __tmp12791)) + (cons __tmp12763 __tmp12747)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12788_| |[1]#_g12789_|) + (list |[1]#_g12744_| |[1]#_g12745_|) 'RuntimeException '#f '((transparent: . #t)) '(exception)))) (define |[:0:]#check-procedure| - (lambda (_$stx10863_) - (let* ((_g1086710885_ - (lambda (_g1086810881_) + (lambda (_$stx10819_) + (let* ((_g1082310841_ + (lambda (_g1082410837_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1086810881_))) - (_g1086610941_ - (lambda (_g1086810889_) - (if (gx#stx-pair? _g1086810889_) - (let ((_e1087310892_ (gx#syntax-e _g1086810889_))) - (let ((_hd1087210896_ + _g1082410837_))) + (_g1082210897_ + (lambda (_g1082410845_) + (if (gx#stx-pair? _g1082410845_) + (let ((_e1082910848_ (gx#syntax-e _g1082410845_))) + (let ((_hd1082810852_ (let () (declare (not safe)) - (##car _e1087310892_))) - (_tl1087110899_ + (##car _e1082910848_))) + (_tl1082710855_ (let () (declare (not safe)) - (##cdr _e1087310892_)))) - (if (gx#stx-pair? _tl1087110899_) - (let ((_e1087610902_ - (gx#syntax-e _tl1087110899_))) - (let ((_hd1087510906_ + (##cdr _e1082910848_)))) + (if (gx#stx-pair? _tl1082710855_) + (let ((_e1083210858_ + (gx#syntax-e _tl1082710855_))) + (let ((_hd1083110862_ (let () (declare (not safe)) - (##car _e1087610902_))) - (_tl1087410909_ + (##car _e1083210858_))) + (_tl1083010865_ (let () (declare (not safe)) - (##cdr _e1087610902_)))) - (if (gx#stx-pair? _tl1087410909_) - (let ((_e1087910912_ - (gx#syntax-e _tl1087410909_))) - (let ((_hd1087810916_ + (##cdr _e1083210858_)))) + (if (gx#stx-pair? _tl1083010865_) + (let ((_e1083510868_ + (gx#syntax-e _tl1083010865_))) + (let ((_hd1083410872_ (let () (declare (not safe)) - (##car _e1087910912_))) - (_tl1087710919_ + (##car _e1083510868_))) + (_tl1083310875_ (let () (declare (not safe)) - (##cdr _e1087910912_)))) - (if (gx#stx-null? _tl1087710919_) - ((lambda (_L10922_ _L10924_) - (let ((__tmp12832 + (##cdr _e1083510868_)))) + (if (gx#stx-null? _tl1083310875_) + ((lambda (_L10878_ _L10880_) + (let ((__tmp12788 (gx#datum->syntax '#f 'unless)) - (__tmp12811 - (let ((__tmp12829 - (let ((__tmp12831 + (__tmp12767 + (let ((__tmp12785 + (let ((__tmp12787 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp12830 + (__tmp12786 (let () (declare (not safe)) - (cons _L10924_ '())))) + (cons _L10880_ '())))) (declare (not safe)) - (cons __tmp12831 __tmp12830))) - (__tmp12812 - (let ((__tmp12813 - (let ((__tmp12828 (gx#datum->syntax '#f 'raise)) - (__tmp12814 - (let ((__tmp12815 - (let ((__tmp12827 + (cons __tmp12787 __tmp12786))) + (__tmp12768 + (let ((__tmp12769 + (let ((__tmp12784 (gx#datum->syntax '#f 'raise)) + (__tmp12770 + (let ((__tmp12771 + (let ((__tmp12783 (gx#datum->syntax '#f 'Error)) - (__tmp12816 - (let ((__tmp12817 - (let ((__tmp12818 + (__tmp12772 + (let ((__tmp12773 + (let ((__tmp12774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12824 - (let ((__tmp12826 + (let ((__tmp12780 + (let ((__tmp12782 (gx#datum->syntax '#f 'quote)) - (__tmp12825 + (__tmp12781 (let () (declare (not safe)) - (cons _L10922_ '())))) + (cons _L10878_ '())))) (declare (not safe)) - (cons __tmp12826 __tmp12825))) - (__tmp12819 - (let ((__tmp12820 - (let ((__tmp12821 - (let ((__tmp12823 + (cons __tmp12782 __tmp12781))) + (__tmp12775 + (let ((__tmp12776 + (let ((__tmp12777 + (let ((__tmp12779 (gx#datum->syntax '#f '@list)) - (__tmp12822 + (__tmp12778 (let () (declare (not safe)) - (cons _L10924_ '())))) + (cons _L10880_ '())))) (declare (not safe)) - (cons __tmp12823 __tmp12822)))) + (cons __tmp12779 __tmp12778)))) (declare (not safe)) - (cons __tmp12821 '())))) + (cons __tmp12777 '())))) (declare (not safe)) - (cons 'irritants: __tmp12820)))) + (cons 'irritants: __tmp12776)))) (declare (not safe)) - (cons __tmp12824 __tmp12819)))) + (cons __tmp12780 __tmp12775)))) (declare (not safe)) - (cons 'where: __tmp12818)))) + (cons 'where: __tmp12774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp12817)))) + __tmp12773)))) (declare (not safe)) - (cons __tmp12827 __tmp12816)))) + (cons __tmp12783 __tmp12772)))) (declare (not safe)) - (cons __tmp12815 '())))) + (cons __tmp12771 '())))) (declare (not safe)) - (cons __tmp12828 __tmp12814)))) + (cons __tmp12784 __tmp12770)))) (declare (not safe)) - (cons __tmp12813 '())))) + (cons __tmp12769 '())))) (declare (not safe)) - (cons __tmp12829 __tmp12812)))) + (cons __tmp12785 __tmp12768)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12832 - __tmp12811))) - _hd1087810916_ - _hd1087510906_) - (_g1086710885_ _g1086810889_)))) - (_g1086710885_ _g1086810889_)))) - (_g1086710885_ _g1086810889_)))) - (_g1086710885_ _g1086810889_))))) - (_g1086610941_ _$stx10863_)))) + (cons __tmp12788 + __tmp12767))) + _hd1083410872_ + _hd1083110862_) + (_g1082310841_ _g1082410845_)))) + (_g1082310841_ _g1082410845_)))) + (_g1082310841_ _g1082410845_)))) + (_g1082310841_ _g1082410845_))))) + (_g1082210897_ _$stx10819_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx10945_) - (let* ((_g1094810975_ - (lambda (_g1094910971_) + (lambda (_stx10901_) + (let* ((_g1090410931_ + (lambda (_g1090510927_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1094910971_))) - (_g1094711210_ - (lambda (_g1094910979_) - (if (gx#stx-pair? _g1094910979_) - (let ((_e1095410982_ (gx#syntax-e _g1094910979_))) - (let ((_hd1095310986_ + _g1090510927_))) + (_g1090311166_ + (lambda (_g1090510935_) + (if (gx#stx-pair? _g1090510935_) + (let ((_e1091010938_ (gx#syntax-e _g1090510935_))) + (let ((_hd1090910942_ (let () (declare (not safe)) - (##car _e1095410982_))) - (_tl1095210989_ + (##car _e1091010938_))) + (_tl1090810945_ (let () (declare (not safe)) - (##cdr _e1095410982_)))) - (if (gx#stx-pair? _tl1095210989_) - (let ((_e1095710992_ - (gx#syntax-e _tl1095210989_))) - (let ((_hd1095610996_ + (##cdr _e1091010938_)))) + (if (gx#stx-pair? _tl1090810945_) + (let ((_e1091310948_ + (gx#syntax-e _tl1090810945_))) + (let ((_hd1091210952_ (let () (declare (not safe)) - (##car _e1095710992_))) - (_tl1095510999_ + (##car _e1091310948_))) + (_tl1091110955_ (let () (declare (not safe)) - (##cdr _e1095710992_)))) - (if (gx#stx-pair? _hd1095610996_) - (let ((_e1096011002_ - (gx#syntax-e _hd1095610996_))) - (let ((_hd1095911006_ + (##cdr _e1091310948_)))) + (if (gx#stx-pair? _hd1091210952_) + (let ((_e1091610958_ + (gx#syntax-e _hd1091210952_))) + (let ((_hd1091510962_ (let () (declare (not safe)) - (##car _e1096011002_))) - (_tl1095811009_ + (##car _e1091610958_))) + (_tl1091410965_ (let () (declare (not safe)) - (##cdr _e1096011002_)))) + (##cdr _e1091610958_)))) (if (gx#stx-pair/null? - _tl1095811009_) - (let ((_g12833_ + _tl1091410965_) + (let ((_g12789_ (gx#syntax-split-splice - _tl1095811009_ + _tl1091410965_ '0))) (begin - (let ((_g12834_ + (let ((_g12790_ (let () (declare (not safe)) (if (##values? - _g12833_) + _g12789_) (##vector-length - _g12833_) + _g12789_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g12834_ 2))) - (error "Context expects 2 values" _g12834_))) + (##fx= _g12790_ 2))) + (error "Context expects 2 values" _g12790_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1096111012_ + (let ((_target1091710968_ (let () (declare (not safe)) (##vector-ref - _g12833_ + _g12789_ 0))) - (_tl1096311015_ + (_tl1091910971_ (let () (declare (not safe)) (##vector-ref - _g12833_ + _g12789_ 1)))) (if (gx#stx-null? - _tl1096311015_) - (letrec ((_loop1096411018_ + _tl1091910971_) + (letrec ((_loop1092010974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1096211022_ _getf1096811025_) - (if (gx#stx-pair? _hd1096211022_) - (let ((_e1096511028_ - (gx#syntax-e _hd1096211022_))) - (let ((_lp-hd1096611032_ + (lambda (_hd1091810978_ _getf1092410981_) + (if (gx#stx-pair? _hd1091810978_) + (let ((_e1092110984_ + (gx#syntax-e _hd1091810978_))) + (let ((_lp-hd1092210988_ (let () (declare (not safe)) - (##car _e1096511028_))) - (_lp-tl1096711035_ + (##car _e1092110984_))) + (_lp-tl1092310991_ (let () (declare (not safe)) - (##cdr _e1096511028_)))) - (_loop1096411018_ - _lp-tl1096711035_ + (##cdr _e1092110984_)))) + (_loop1092010974_ + _lp-tl1092310991_ (let () (declare (not safe)) - (cons _lp-hd1096611032_ - _getf1096811025_))))) - (let ((_getf1096911038_ - (reverse _getf1096811025_))) - (if (gx#stx-null? _tl1095510999_) - ((lambda (_L11042_ _L11044_) - (let* ((_g1106411088_ - (lambda (_g1106511084_) + (cons _lp-hd1092210988_ + _getf1092410981_))))) + (let ((_getf1092510994_ + (reverse _getf1092410981_))) + (if (gx#stx-null? _tl1091110955_) + ((lambda (_L10998_ _L11000_) + (let* ((_g1102011044_ + (lambda (_g1102111040_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1106511084_))) - (_g1106311195_ - (lambda (_g1106511092_) + _g1102111040_))) + (_g1101911151_ + (lambda (_g1102111048_) (if (gx#stx-pair? - _g1106511092_) - (let ((_e1107011095_ + _g1102111048_) + (let ((_e1102611051_ (gx#syntax-e - _g1106511092_))) - (let ((_hd1106911099_ + _g1102111048_))) + (let ((_hd1102511055_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1107011095_))) - (_tl1106811102_ - (let () (declare (not safe)) (##cdr _e1107011095_)))) - (if (gx#stx-pair? _tl1106811102_) - (let ((_e1107311105_ (gx#syntax-e _tl1106811102_))) - (let ((_hd1107211109_ + (##car _e1102611051_))) + (_tl1102411058_ + (let () (declare (not safe)) (##cdr _e1102611051_)))) + (if (gx#stx-pair? _tl1102411058_) + (let ((_e1102911061_ (gx#syntax-e _tl1102411058_))) + (let ((_hd1102811065_ (let () (declare (not safe)) - (##car _e1107311105_))) - (_tl1107111112_ + (##car _e1102911061_))) + (_tl1102711068_ (let () (declare (not safe)) - (##cdr _e1107311105_)))) - (if (gx#stx-pair/null? _hd1107211109_) - (let ((_g12835_ + (##cdr _e1102911061_)))) + (if (gx#stx-pair/null? _hd1102811065_) + (let ((_g12791_ (gx#syntax-split-splice - _hd1107211109_ + _hd1102811065_ '0))) (begin - (let ((_g12836_ + (let ((_g12792_ (let () (declare (not safe)) - (if (##values? _g12835_) - (##vector-length _g12835_) + (if (##values? _g12791_) + (##vector-length _g12791_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g12836_ 2))) + (##fx= _g12792_ 2))) (error "Context expects 2 values" - _g12836_))) - (let ((_target1107411115_ + _g12792_))) + (let ((_target1103011071_ (let () (declare (not safe)) - (##vector-ref _g12835_ 0))) - (_tl1107611118_ + (##vector-ref _g12791_ 0))) + (_tl1103211074_ (let () (declare (not safe)) - (##vector-ref _g12835_ 1)))) - (if (gx#stx-null? _tl1107611118_) - (letrec ((_loop1107711121_ - (lambda (_hd1107511125_ - _macro-getf1108111128_) + (##vector-ref _g12791_ 1)))) + (if (gx#stx-null? _tl1103211074_) + (letrec ((_loop1103311077_ + (lambda (_hd1103111081_ + _macro-getf1103711084_) (if (gx#stx-pair? - _hd1107511125_) - (let ((_e1107811131_ + _hd1103111081_) + (let ((_e1103411087_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1107511125_))) - (let ((_lp-hd1107911135_ - (let () (declare (not safe)) (##car _e1107811131_))) - (_lp-tl1108011138_ - (let () (declare (not safe)) (##cdr _e1107811131_)))) - (_loop1107711121_ - _lp-tl1108011138_ + _hd1103111081_))) + (let ((_lp-hd1103511091_ + (let () (declare (not safe)) (##car _e1103411087_))) + (_lp-tl1103611094_ + (let () (declare (not safe)) (##cdr _e1103411087_)))) + (_loop1103311077_ + _lp-tl1103611094_ (let () (declare (not safe)) - (cons _lp-hd1107911135_ _macro-getf1108111128_))))) - (let ((_macro-getf1108211141_ - (reverse _macro-getf1108111128_))) - (if (gx#stx-null? _tl1107111112_) - ((lambda (_L11145_ _L11147_) + (cons _lp-hd1103511091_ _macro-getf1103711084_))))) + (let ((_macro-getf1103811097_ + (reverse _macro-getf1103711084_))) + (if (gx#stx-null? _tl1102711068_) + ((lambda (_L11101_ _L11103_) (let () - (let ((__tmp12960 (gx#datum->syntax '#f 'begin)) - (__tmp12837 - (let ((__tmp12955 - (let ((__tmp12959 + (let ((__tmp12916 (gx#datum->syntax '#f 'begin)) + (__tmp12793 + (let ((__tmp12911 + (let ((__tmp12915 (gx#datum->syntax '#f 'extern)) - (__tmp12956 - (let ((__tmp12957 - (let ((__tmp12958 - (lambda (_g1117211175_ + (__tmp12912 + (let ((__tmp12913 + (let ((__tmp12914 + (lambda (_g1112811131_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1117311178_) + _g1112911134_) (let () (declare (not safe)) - (cons _g1117211175_ _g1117311178_))))) + (cons _g1112811131_ _g1112911134_))))) (declare (not safe)) - (foldr1 __tmp12958 '() _L11145_)))) + (foldr1 __tmp12914 '() _L11101_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11147_ - __tmp12957)))) + (cons _L11103_ + __tmp12913)))) (declare (not safe)) - (cons __tmp12959 __tmp12956))) - (__tmp12838 - (let ((__tmp12922 - (let ((__tmp12954 + (cons __tmp12915 __tmp12912))) + (__tmp12794 + (let ((__tmp12878 + (let ((__tmp12910 (gx#datum->syntax '#f 'def)) - (__tmp12923 - (let ((__tmp12951 - (let ((__tmp12952 + (__tmp12879 + (let ((__tmp12907 + (let ((__tmp12908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12953 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12909 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12953 '())))) + (cons __tmp12909 '())))) (declare (not safe)) - (cons _L11044_ __tmp12952))) - (__tmp12924 - (let ((__tmp12925 - (let ((__tmp12950 (gx#datum->syntax '#f 'if)) - (__tmp12926 - (let ((__tmp12946 - (let ((__tmp12949 + (cons _L11000_ __tmp12908))) + (__tmp12880 + (let ((__tmp12881 + (let ((__tmp12906 (gx#datum->syntax '#f 'if)) + (__tmp12882 + (let ((__tmp12902 + (let ((__tmp12905 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12947 - (let ((__tmp12948 + (__tmp12903 + (let ((__tmp12904 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12948 '())))) + (cons __tmp12904 '())))) (declare (not safe)) - (cons __tmp12949 __tmp12947))) - (__tmp12927 - (let ((__tmp12932 - (let ((__tmp12945 + (cons __tmp12905 __tmp12903))) + (__tmp12883 + (let ((__tmp12888 + (let ((__tmp12901 (gx#datum->syntax '#f 'let)) - (__tmp12933 - (let ((__tmp12938 + (__tmp12889 + (let ((__tmp12894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12944 (gx#datum->syntax '#f 'e)) - (__tmp12939 - (let ((__tmp12940 - (let ((__tmp12943 + (let ((__tmp12900 (gx#datum->syntax '#f 'e)) + (__tmp12895 + (let ((__tmp12896 + (let ((__tmp12899 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp12941 - (let ((__tmp12942 + (__tmp12897 + (let ((__tmp12898 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12942 '())))) + (cons __tmp12898 '())))) (declare (not safe)) - (cons __tmp12943 __tmp12941)))) + (cons __tmp12899 __tmp12897)))) (declare (not safe)) - (cons __tmp12940 '())))) + (cons __tmp12896 '())))) (declare (not safe)) - (cons __tmp12944 __tmp12939))) - (__tmp12934 - (let ((__tmp12935 - (let ((__tmp12936 - (let ((__tmp12937 + (cons __tmp12900 __tmp12895))) + (__tmp12890 + (let ((__tmp12891 + (let ((__tmp12892 + (let ((__tmp12893 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12937 '())))) + (cons __tmp12893 '())))) (declare (not safe)) - (cons _L11147_ __tmp12936)))) + (cons _L11103_ __tmp12892)))) (declare (not safe)) - (cons __tmp12935 '())))) + (cons __tmp12891 '())))) (declare (not safe)) - (cons __tmp12938 __tmp12934)))) + (cons __tmp12894 __tmp12890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12945 - __tmp12933))) - (__tmp12928 - (let ((__tmp12929 - (let ((__tmp12930 + (cons __tmp12901 + __tmp12889))) + (__tmp12884 + (let ((__tmp12885 + (let ((__tmp12886 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12931 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12887 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12931 '())))) + (cons __tmp12887 '())))) (declare (not safe)) - (cons _L11147_ __tmp12930)))) + (cons _L11103_ __tmp12886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12929 '())))) + (cons __tmp12885 '())))) (declare (not safe)) - (cons __tmp12932 __tmp12928)))) + (cons __tmp12888 __tmp12884)))) (declare (not safe)) - (cons __tmp12946 __tmp12927)))) + (cons __tmp12902 __tmp12883)))) (declare (not safe)) - (cons __tmp12950 __tmp12926)))) + (cons __tmp12906 __tmp12882)))) (declare (not safe)) - (cons __tmp12925 '())))) + (cons __tmp12881 '())))) (declare (not safe)) - (cons __tmp12951 __tmp12924)))) + (cons __tmp12907 __tmp12880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12954 - __tmp12923))) - (__tmp12839 + (cons __tmp12910 + __tmp12879))) + (__tmp12795 (begin (gx#syntax-check-splice-targets - _L11042_ - _L11145_ - _L11042_ - _L11145_ - _L11042_) - (let ((__tmp12840 - (lambda (_g1116611181_ + _L10998_ + _L11101_ + _L10998_ + _L11101_ + _L10998_) + (let ((__tmp12796 + (lambda (_g1112211137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1116711184_ - _g1116811186_ - _g1116911188_ - _g1117011190_ - _g1117111192_) - (let ((__tmp12841 - (let ((__tmp12921 (gx#datum->syntax '#f 'def)) - (__tmp12842 - (let ((__tmp12918 - (let ((__tmp12919 - (let ((__tmp12920 + _g1112311140_ + _g1112411142_ + _g1112511144_ + _g1112611146_ + _g1112711148_) + (let ((__tmp12797 + (let ((__tmp12877 (gx#datum->syntax '#f 'def)) + (__tmp12798 + (let ((__tmp12874 + (let ((__tmp12875 + (let ((__tmp12876 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12920 '())))) + (cons __tmp12876 '())))) (declare (not safe)) - (cons _g1116611181_ __tmp12919))) - (__tmp12843 - (let ((__tmp12844 - (let ((__tmp12917 + (cons _g1112211137_ __tmp12875))) + (__tmp12799 + (let ((__tmp12800 + (let ((__tmp12873 (gx#datum->syntax '#f 'if)) - (__tmp12845 - (let ((__tmp12913 - (let ((__tmp12916 + (__tmp12801 + (let ((__tmp12869 + (let ((__tmp12872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12914 - (let ((__tmp12915 (gx#datum->syntax '#f 'exn))) + (__tmp12870 + (let ((__tmp12871 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12915 '())))) + (cons __tmp12871 '())))) (declare (not safe)) - (cons __tmp12916 __tmp12914))) - (__tmp12846 - (let ((__tmp12875 - (let ((__tmp12912 (gx#datum->syntax '#f 'let)) - (__tmp12876 - (let ((__tmp12905 - (let ((__tmp12911 + (cons __tmp12872 __tmp12870))) + (__tmp12802 + (let ((__tmp12831 + (let ((__tmp12868 (gx#datum->syntax '#f 'let)) + (__tmp12832 + (let ((__tmp12861 + (let ((__tmp12867 (gx#datum->syntax '#f 'e)) - (__tmp12906 - (let ((__tmp12907 - (let ((__tmp12910 + (__tmp12862 + (let ((__tmp12863 + (let ((__tmp12866 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp12908 - (let ((__tmp12909 (gx#datum->syntax '#f 'exn))) + (__tmp12864 + (let ((__tmp12865 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12909 '())))) + (cons __tmp12865 '())))) (declare (not safe)) - (cons __tmp12910 __tmp12908)))) + (cons __tmp12866 __tmp12864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12907 '())))) + (cons __tmp12863 '())))) (declare (not safe)) - (cons __tmp12911 __tmp12906))) - (__tmp12877 - (let ((__tmp12878 - (let ((__tmp12904 + (cons __tmp12867 __tmp12862))) + (__tmp12833 + (let ((__tmp12834 + (let ((__tmp12860 (gx#datum->syntax '#f 'if)) - (__tmp12879 - (let ((__tmp12901 - (let ((__tmp12902 + (__tmp12835 + (let ((__tmp12857 + (let ((__tmp12858 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12903 (gx#datum->syntax '#f 'e))) + (let ((__tmp12859 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12903 '())))) + (cons __tmp12859 '())))) (declare (not safe)) - (cons _L11147_ __tmp12902))) - (__tmp12880 - (let ((__tmp12898 - (let ((__tmp12899 - (let ((__tmp12900 + (cons _L11103_ __tmp12858))) + (__tmp12836 + (let ((__tmp12854 + (let ((__tmp12855 + (let ((__tmp12856 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12900 '())))) + (cons __tmp12856 '())))) (declare (not safe)) - (cons _g1116711184_ __tmp12899))) - (__tmp12881 - (let ((__tmp12882 - (let ((__tmp12897 + (cons _g1112311140_ __tmp12855))) + (__tmp12837 + (let ((__tmp12838 + (let ((__tmp12853 (gx#datum->syntax '#f 'error)) - (__tmp12883 - (let ((__tmp12884 - (let ((__tmp12894 - (let ((__tmp12896 + (__tmp12839 + (let ((__tmp12840 + (let ((__tmp12850 + (let ((__tmp12852 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp12895 - (let () (declare (not safe)) (cons _L11044_ '())))) + (__tmp12851 + (let () (declare (not safe)) (cons _L11000_ '())))) (declare (not safe)) - (cons __tmp12896 __tmp12895))) - (__tmp12885 - (let ((__tmp12886 - (let ((__tmp12893 (gx#datum->syntax '#f '@list)) - (__tmp12887 - (let ((__tmp12890 - (let ((__tmp12892 + (cons __tmp12852 __tmp12851))) + (__tmp12841 + (let ((__tmp12842 + (let ((__tmp12849 (gx#datum->syntax '#f '@list)) + (__tmp12843 + (let ((__tmp12846 + (let ((__tmp12848 (gx#datum->syntax '#f 'quote)) - (__tmp12891 + (__tmp12847 (let () (declare (not safe)) - (cons _g1116611181_ '())))) + (cons _g1112211137_ '())))) (declare (not safe)) - (cons __tmp12892 __tmp12891))) - (__tmp12888 - (let ((__tmp12889 + (cons __tmp12848 __tmp12847))) + (__tmp12844 + (let ((__tmp12845 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12889 '())))) + (cons __tmp12845 '())))) (declare (not safe)) - (cons __tmp12890 __tmp12888)))) + (cons __tmp12846 __tmp12844)))) (declare (not safe)) - (cons __tmp12893 __tmp12887)))) + (cons __tmp12849 __tmp12843)))) (declare (not safe)) - (cons __tmp12886 '())))) + (cons __tmp12842 '())))) (declare (not safe)) - (cons __tmp12894 __tmp12885)))) + (cons __tmp12850 __tmp12841)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp12884)))) + __tmp12840)))) (declare (not safe)) - (cons __tmp12897 __tmp12883)))) + (cons __tmp12853 __tmp12839)))) (declare (not safe)) - (cons __tmp12882 '())))) + (cons __tmp12838 '())))) (declare (not safe)) - (cons __tmp12898 __tmp12881)))) + (cons __tmp12854 __tmp12837)))) (declare (not safe)) - (cons __tmp12901 __tmp12880)))) + (cons __tmp12857 __tmp12836)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12904 - __tmp12879)))) + (cons __tmp12860 + __tmp12835)))) (declare (not safe)) - (cons __tmp12878 '())))) + (cons __tmp12834 '())))) (declare (not safe)) - (cons __tmp12905 __tmp12877)))) + (cons __tmp12861 __tmp12833)))) (declare (not safe)) - (cons __tmp12912 __tmp12876))) - (__tmp12847 - (let ((__tmp12848 - (let ((__tmp12874 + (cons __tmp12868 __tmp12832))) + (__tmp12803 + (let ((__tmp12804 + (let ((__tmp12830 (gx#datum->syntax '#f 'if)) - (__tmp12849 - (let ((__tmp12871 - (let ((__tmp12872 - (let ((__tmp12873 + (__tmp12805 + (let ((__tmp12827 + (let ((__tmp12828 + (let ((__tmp12829 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp12873 '())))) + (cons __tmp12829 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11147_ - __tmp12872))) - (__tmp12850 - (let ((__tmp12868 - (let ((__tmp12869 - (let ((__tmp12870 + (cons _L11103_ + __tmp12828))) + (__tmp12806 + (let ((__tmp12824 + (let ((__tmp12825 + (let ((__tmp12826 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12870 '())))) + (cons __tmp12826 '())))) (declare (not safe)) - (cons _g1116711184_ __tmp12869))) - (__tmp12851 - (let ((__tmp12852 - (let ((__tmp12867 (gx#datum->syntax '#f 'error)) - (__tmp12853 - (let ((__tmp12854 - (let ((__tmp12864 - (let ((__tmp12866 + (cons _g1112311140_ __tmp12825))) + (__tmp12807 + (let ((__tmp12808 + (let ((__tmp12823 (gx#datum->syntax '#f 'error)) + (__tmp12809 + (let ((__tmp12810 + (let ((__tmp12820 + (let ((__tmp12822 (gx#datum->syntax '#f 'quote)) - (__tmp12865 + (__tmp12821 (let () (declare (not safe)) - (cons _L11044_ '())))) + (cons _L11000_ '())))) (declare (not safe)) - (cons __tmp12866 __tmp12865))) - (__tmp12855 - (let ((__tmp12856 - (let ((__tmp12863 + (cons __tmp12822 __tmp12821))) + (__tmp12811 + (let ((__tmp12812 + (let ((__tmp12819 (gx#datum->syntax '#f '@list)) - (__tmp12857 - (let ((__tmp12860 + (__tmp12813 + (let ((__tmp12816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12862 (gx#datum->syntax '#f 'quote)) - (__tmp12861 + (let ((__tmp12818 (gx#datum->syntax '#f 'quote)) + (__tmp12817 (let () (declare (not safe)) - (cons _g1116611181_ '())))) + (cons _g1112211137_ '())))) (declare (not safe)) - (cons __tmp12862 __tmp12861))) - (__tmp12858 - (let ((__tmp12859 (gx#datum->syntax '#f 'exn))) + (cons __tmp12818 __tmp12817))) + (__tmp12814 + (let ((__tmp12815 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12859 '())))) + (cons __tmp12815 '())))) (declare (not safe)) - (cons __tmp12860 __tmp12858)))) + (cons __tmp12816 __tmp12814)))) (declare (not safe)) - (cons __tmp12863 __tmp12857)))) + (cons __tmp12819 __tmp12813)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12856 '())))) + (cons __tmp12812 '())))) (declare (not safe)) - (cons __tmp12864 __tmp12855)))) + (cons __tmp12820 __tmp12811)))) (declare (not safe)) - (cons '"not an instance" __tmp12854)))) + (cons '"not an instance" __tmp12810)))) (declare (not safe)) - (cons __tmp12867 __tmp12853)))) + (cons __tmp12823 __tmp12809)))) (declare (not safe)) - (cons __tmp12852 '())))) + (cons __tmp12808 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12868 - __tmp12851)))) + (cons __tmp12824 + __tmp12807)))) (declare (not safe)) - (cons __tmp12871 __tmp12850)))) + (cons __tmp12827 __tmp12806)))) (declare (not safe)) - (cons __tmp12874 __tmp12849)))) + (cons __tmp12830 __tmp12805)))) (declare (not safe)) - (cons __tmp12848 '())))) + (cons __tmp12804 '())))) (declare (not safe)) - (cons __tmp12875 __tmp12847)))) + (cons __tmp12831 __tmp12803)))) (declare (not safe)) - (cons __tmp12913 __tmp12846)))) + (cons __tmp12869 __tmp12802)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12917 - __tmp12845)))) + (cons __tmp12873 + __tmp12801)))) (declare (not safe)) - (cons __tmp12844 '())))) + (cons __tmp12800 '())))) (declare (not safe)) - (cons __tmp12918 __tmp12843)))) + (cons __tmp12874 __tmp12799)))) (declare (not safe)) - (cons __tmp12921 __tmp12842)))) + (cons __tmp12877 __tmp12798)))) (declare (not safe)) - (cons __tmp12841 _g1117111192_))))) + (cons __tmp12797 _g1112711148_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp12840 + (foldr* __tmp12796 '() - _L11042_ - _L11145_ - _L11042_ - _L11145_ - _L11042_))))) + _L10998_ + _L11101_ + _L10998_ + _L11101_ + _L10998_))))) (declare (not safe)) - (cons __tmp12922 __tmp12839)))) + (cons __tmp12878 __tmp12795)))) (declare (not safe)) - (cons __tmp12955 __tmp12838)))) + (cons __tmp12911 __tmp12794)))) (declare (not safe)) - (cons __tmp12960 __tmp12837)))) - _macro-getf1108211141_ - _hd1106911099_) - (_g1106411088_ _g1106511092_))))))) + (cons __tmp12916 __tmp12793)))) + _macro-getf1103811097_ + _hd1102511055_) + (_g1102011044_ _g1102111048_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1107711121_ - _target1107411115_ + (_loop1103311077_ + _target1103011071_ '())) - (_g1106411088_ _g1106511092_))))) - (_g1106411088_ _g1106511092_)))) - (_g1106411088_ _g1106511092_)))) - (_g1106411088_ _g1106511092_))))) + (_g1102011044_ _g1102111048_))))) + (_g1102011044_ _g1102111048_)))) + (_g1102011044_ _g1102111048_)))) + (_g1102011044_ _g1102111048_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1106311195_ + (_g1101911151_ (list (gx#stx-identifier - _L11044_ + _L11000_ '"macro-" - _L11044_) - (map (lambda (_f11199_) + _L11000_) + (map (lambda (_f11155_) (gx#stx-identifier - _f11199_ + _f11155_ '"macro-" - _f11199_)) - (let ((__tmp12961 - (lambda (_g1120111204_ + _f11155_)) + (let ((__tmp12917 + (lambda (_g1115711160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1120211207_) + _g1115811163_) (let () (declare (not safe)) - (cons _g1120111204_ _g1120211207_))))) + (cons _g1115711160_ _g1115811163_))))) (declare (not safe)) - (foldr1 __tmp12961 '() _L11042_))))))) + (foldr1 __tmp12917 '() _L10998_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf1096911038_ - _hd1095911006_) - (_g1094810975_ _g1094910979_))))))) - (_loop1096411018_ _target1096111012_ '())) - (_g1094810975_ _g1094910979_))))) + _getf1092510994_ + _hd1091510962_) + (_g1090410931_ _g1090510935_))))))) + (_loop1092010974_ _target1091710968_ '())) + (_g1090410931_ _g1090510935_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1094810975_ _g1094910979_)))) - (_g1094810975_ _g1094910979_)))) - (_g1094810975_ _g1094910979_)))) - (_g1094810975_ _g1094910979_))))) - (_g1094711210_ _stx10945_)))) + (_g1090410931_ _g1090510935_)))) + (_g1090410931_ _g1090510935_)))) + (_g1090410931_ _g1090510935_)))) + (_g1090410931_ _g1090510935_))))) + (_g1090311166_ _stx10901_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx11216_) - (let* ((_g1122011240_ - (lambda (_g1122111236_) + (lambda (_$stx11172_) + (let* ((_g1117611196_ + (lambda (_g1117711192_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1122111236_))) - (_g1121911311_ - (lambda (_g1122111244_) - (if (gx#stx-pair? _g1122111244_) - (let ((_e1122511247_ (gx#syntax-e _g1122111244_))) - (let ((_hd1122411251_ + _g1117711192_))) + (_g1117511267_ + (lambda (_g1117711200_) + (if (gx#stx-pair? _g1117711200_) + (let ((_e1118111203_ (gx#syntax-e _g1117711200_))) + (let ((_hd1118011207_ (let () (declare (not safe)) - (##car _e1122511247_))) - (_tl1122311254_ + (##car _e1118111203_))) + (_tl1117911210_ (let () (declare (not safe)) - (##cdr _e1122511247_)))) - (if (gx#stx-pair/null? _tl1122311254_) - (let ((_g12962_ + (##cdr _e1118111203_)))) + (if (gx#stx-pair/null? _tl1117911210_) + (let ((_g12918_ (gx#syntax-split-splice - _tl1122311254_ + _tl1117911210_ '0))) (begin - (let ((_g12963_ + (let ((_g12919_ (let () (declare (not safe)) - (if (##values? _g12962_) - (##vector-length _g12962_) + (if (##values? _g12918_) + (##vector-length _g12918_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g12963_ 2))) + (##fx= _g12919_ 2))) (error "Context expects 2 values" - _g12963_))) - (let ((_target1122611257_ + _g12919_))) + (let ((_target1118211213_ (let () (declare (not safe)) - (##vector-ref _g12962_ 0))) - (_tl1122811260_ + (##vector-ref _g12918_ 0))) + (_tl1118411216_ (let () (declare (not safe)) - (##vector-ref _g12962_ 1)))) - (if (gx#stx-null? _tl1122811260_) - (letrec ((_loop1122911263_ - (lambda (_hd1122711267_ - _defexn1123311270_) + (##vector-ref _g12918_ 1)))) + (if (gx#stx-null? _tl1118411216_) + (letrec ((_loop1118511219_ + (lambda (_hd1118311223_ + _defexn1118911226_) (if (gx#stx-pair? - _hd1122711267_) - (let ((_e1123011273_ + _hd1118311223_) + (let ((_e1118611229_ (gx#syntax-e - _hd1122711267_))) - (let ((_lp-hd1123111277_ + _hd1118311223_))) + (let ((_lp-hd1118711233_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1123011273_))) - (_lp-tl1123211280_ - (let () (declare (not safe)) (##cdr _e1123011273_)))) - (_loop1122911263_ - _lp-tl1123211280_ + (let () (declare (not safe)) (##car _e1118611229_))) + (_lp-tl1118811236_ + (let () (declare (not safe)) (##cdr _e1118611229_)))) + (_loop1118511219_ + _lp-tl1118811236_ (let () (declare (not safe)) - (cons _lp-hd1123111277_ _defexn1123311270_))))) - (let ((_defexn1123411283_ (reverse _defexn1123311270_))) - ((lambda (_L11287_) - (let ((__tmp12969 (gx#datum->syntax '#f 'begin)) - (__tmp12964 - (let ((__tmp12965 - (lambda (_g1130211305_ _g1130311308_) - (let ((__tmp12966 - (let ((__tmp12968 + (cons _lp-hd1118711233_ _defexn1118911226_))))) + (let ((_defexn1119011239_ (reverse _defexn1118911226_))) + ((lambda (_L11243_) + (let ((__tmp12925 (gx#datum->syntax '#f 'begin)) + (__tmp12920 + (let ((__tmp12921 + (lambda (_g1125811261_ _g1125911264_) + (let ((__tmp12922 + (let ((__tmp12924 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp12967 + (__tmp12923 (let () (declare (not safe)) - (cons _g1130211305_ + (cons _g1125811261_ '())))) (declare (not safe)) - (cons __tmp12968 __tmp12967)))) + (cons __tmp12924 __tmp12923)))) (declare (not safe)) - (cons __tmp12966 _g1130311308_))))) + (cons __tmp12922 _g1125911264_))))) (declare (not safe)) - (foldr1 __tmp12965 '() _L11287_)))) + (foldr1 __tmp12921 '() _L11243_)))) (declare (not safe)) - (cons __tmp12969 __tmp12964))) - _defexn1123411283_)))))) + (cons __tmp12925 __tmp12920))) + _defexn1119011239_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1122911263_ - _target1122611257_ + (_loop1118511219_ + _target1118211213_ '())) - (_g1122011240_ _g1122111244_))))) - (_g1122011240_ _g1122111244_)))) - (_g1122011240_ _g1122111244_))))) - (_g1121911311_ _$stx11216_)))))) + (_g1117611196_ _g1117711200_))))) + (_g1117611196_ _g1117711200_)))) + (_g1117611196_ _g1117711200_))))) + (_g1117511267_ _$stx11172_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 513b108f..81f1d177 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1701931848) + (define gerbil/runtime/eval::timestamp 1704735467) (begin (define __context::t (let () @@ -16,8 +16,8 @@ (define __context? (let () (declare (not safe)) (make-struct-predicate __context::t))) (define make-__context - (lambda _$args17401_ - (apply make-struct-instance __context::t _$args17401_))) + (lambda _$args17357_ + (apply make-struct-instance __context::t _$args17357_))) (define __context-t (let () (declare (not safe)) @@ -96,8 +96,8 @@ (define __runtime? (let () (declare (not safe)) (make-struct-predicate __runtime::t))) (define make-__runtime - (lambda _$args17398_ - (apply make-struct-instance __runtime::t _$args17398_))) + (lambda _$args17354_ + (apply make-struct-instance __runtime::t _$args17354_))) (define __runtime-id (let () (declare (not safe)) @@ -128,8 +128,8 @@ (define __syntax? (let () (declare (not safe)) (make-struct-predicate __syntax::t))) (define make-__syntax - (lambda _$args17395_ - (apply make-struct-instance __syntax::t _$args17395_))) + (lambda _$args17351_ + (apply make-struct-instance __syntax::t _$args17351_))) (define __syntax-e (let () (declare (not safe)) @@ -172,8 +172,8 @@ (define __macro? (let () (declare (not safe)) (make-struct-predicate __macro::t))) (define make-__macro - (lambda _$args17392_ - (apply make-struct-instance __macro::t _$args17392_))) + (lambda _$args17348_ + (apply make-struct-instance __macro::t _$args17348_))) (define __special-form::t (let () (declare (not safe)) @@ -188,8 +188,8 @@ (define __special-form? (let () (declare (not safe)) (make-struct-predicate __special-form::t))) (define make-__special-form - (lambda _$args17389_ - (apply make-struct-instance __special-form::t _$args17389_))) + (lambda _$args17345_ + (apply make-struct-instance __special-form::t _$args17345_))) (define __core-form::t (let () (declare (not safe)) @@ -204,8 +204,8 @@ (define __core-form? (let () (declare (not safe)) (make-struct-predicate __core-form::t))) (define make-__core-form - (lambda _$args17386_ - (apply make-struct-instance __core-form::t _$args17386_))) + (lambda _$args17342_ + (apply make-struct-instance __core-form::t _$args17342_))) (define __core-expression::t (let () (declare (not safe)) @@ -222,8 +222,8 @@ (declare (not safe)) (make-struct-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args17383_ - (apply make-struct-instance __core-expression::t _$args17383_))) + (lambda _$args17339_ + (apply make-struct-instance __core-expression::t _$args17339_))) (define __core-special-form::t (let () (declare (not safe)) @@ -240,8 +240,8 @@ (declare (not safe)) (make-struct-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args17380_ - (apply make-struct-instance __core-special-form::t _$args17380_))) + (lambda _$args17336_ + (apply make-struct-instance __core-special-form::t _$args17336_))) (define __struct-info::t (let () (declare (not safe)) @@ -256,8 +256,8 @@ (define __struct-info? (let () (declare (not safe)) (make-struct-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args17377_ - (apply make-struct-instance __struct-info::t _$args17377_))) + (lambda _$args17333_ + (apply make-struct-instance __struct-info::t _$args17333_))) (define __feature::t (let () (declare (not safe)) @@ -272,8 +272,8 @@ (define __feature? (let () (declare (not safe)) (make-struct-predicate __feature::t))) (define make-__feature - (lambda _$args17374_ - (apply make-struct-instance __feature::t _$args17374_))) + (lambda _$args17330_ + (apply make-struct-instance __feature::t _$args17330_))) (define __module::t (let () (declare (not safe)) @@ -288,8 +288,8 @@ (define __module? (let () (declare (not safe)) (make-struct-predicate __module::t))) (define make-__module - (lambda _$args17371_ - (apply make-struct-instance __module::t _$args17371_))) + (lambda _$args17327_ + (apply make-struct-instance __module::t _$args17327_))) (define __module-id (let () (declare (not safe)) @@ -349,717 +349,717 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp17587 + (let ((__tmp17543 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp17586 (let () (declare (not safe)) (make-table 'test: eq?)))) + (__tmp17542 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp17587 __tmp17586))) + (##structure __context::t 'top '#f __tmp17543 __tmp17542))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id17346_ _ctx17347_) - (if _ctx17347_ - (let ((_id17349_ - (let () (declare (not safe)) (__AST-e _id17346_)))) - (let _lp17351_ ((_ctx17353_ _ctx17347_)) - (let ((_$e17355_ + (lambda (_id17302_ _ctx17303_) + (if _ctx17303_ + (let ((_id17305_ + (let () (declare (not safe)) (__AST-e _id17302_)))) + (let _lp17307_ ((_ctx17309_ _ctx17303_)) + (let ((_$e17311_ (table-ref - (##structure-ref _ctx17353_ '4 __context::t '#f) - _id17349_ + (##structure-ref _ctx17309_ '4 __context::t '#f) + _id17305_ '#f))) - (if _$e17355_ - (values _$e17355_) - (let ((_$e17358_ - (##structure-ref _ctx17353_ '3 __context::t '#f))) - (if _$e17358_ - (let () (declare (not safe)) (_lp17351_ _$e17358_)) + (if _$e17311_ + (values _$e17311_) + (let ((_$e17314_ + (##structure-ref _ctx17309_ '3 __context::t '#f))) + (if _$e17314_ + (let () (declare (not safe)) (_lp17307_ _$e17314_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id17364_) - (let ((_ctx17366_ (__current-context))) + (lambda (_id17320_) + (let ((_ctx17322_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id17364_ _ctx17366_)))) + (__core-resolve__% _id17320_ _ctx17322_)))) (define __core-resolve - (lambda _g17589_ - (let ((_g17588_ (let () (declare (not safe)) (##length _g17589_)))) - (cond ((let () (declare (not safe)) (##fx= _g17588_ 1)) - (apply (lambda (_id17364_) + (lambda _g17545_ + (let ((_g17544_ (let () (declare (not safe)) (##length _g17545_)))) + (cond ((let () (declare (not safe)) (##fx= _g17544_ 1)) + (apply (lambda (_id17320_) (let () (declare (not safe)) - (__core-resolve__0 _id17364_))) - _g17589_)) - ((let () (declare (not safe)) (##fx= _g17588_ 2)) - (apply (lambda (_id17368_ _ctx17369_) + (__core-resolve__0 _id17320_))) + _g17545_)) + ((let () (declare (not safe)) (##fx= _g17544_ 2)) + (apply (lambda (_id17324_ _ctx17325_) (let () (declare (not safe)) - (__core-resolve__% _id17368_ _ctx17369_))) - _g17589_)) + (__core-resolve__% _id17324_ _ctx17325_))) + _g17545_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g17589_)))))) + _g17545_)))))) (define __core-bound-id?__% - (lambda (_id17329_ _is?17330_) - (let ((_$e17332_ - (let () (declare (not safe)) (__core-resolve__0 _id17329_)))) - (if _$e17332_ (_is?17330_ _$e17332_) '#f)))) + (lambda (_id17285_ _is?17286_) + (let ((_$e17288_ + (let () (declare (not safe)) (__core-resolve__0 _id17285_)))) + (if _$e17288_ (_is?17286_ _$e17288_) '#f)))) (define __core-bound-id?__0 - (lambda (_id17338_) - (let ((_is?17340_ true)) + (lambda (_id17294_) + (let ((_is?17296_ true)) (declare (not safe)) - (__core-bound-id?__% _id17338_ _is?17340_)))) + (__core-bound-id?__% _id17294_ _is?17296_)))) (define __core-bound-id? - (lambda _g17591_ - (let ((_g17590_ (let () (declare (not safe)) (##length _g17591_)))) - (cond ((let () (declare (not safe)) (##fx= _g17590_ 1)) - (apply (lambda (_id17338_) + (lambda _g17547_ + (let ((_g17546_ (let () (declare (not safe)) (##length _g17547_)))) + (cond ((let () (declare (not safe)) (##fx= _g17546_ 1)) + (apply (lambda (_id17294_) (let () (declare (not safe)) - (__core-bound-id?__0 _id17338_))) - _g17591_)) - ((let () (declare (not safe)) (##fx= _g17590_ 2)) - (apply (lambda (_id17342_ _is?17343_) + (__core-bound-id?__0 _id17294_))) + _g17547_)) + ((let () (declare (not safe)) (##fx= _g17546_ 2)) + (apply (lambda (_id17298_ _is?17299_) (let () (declare (not safe)) - (__core-bound-id?__% _id17342_ _is?17343_))) - _g17591_)) + (__core-bound-id?__% _id17298_ _is?17299_))) + _g17547_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g17591_)))))) + _g17547_)))))) (define __core-bind-runtime!__% - (lambda (_id17312_ _eid17313_ _ctx17314_) - (if _eid17313_ - (let ((__tmp17594 (##structure-ref _ctx17314_ '4 __context::t '#f)) - (__tmp17593 - (let () (declare (not safe)) (__AST-e _id17312_))) - (__tmp17592 + (lambda (_id17268_ _eid17269_ _ctx17270_) + (if _eid17269_ + (let ((__tmp17550 (##structure-ref _ctx17270_ '4 __context::t '#f)) + (__tmp17549 + (let () (declare (not safe)) (__AST-e _id17268_))) + (__tmp17548 (let () (declare (not safe)) - (##structure __runtime::t _eid17313_)))) + (##structure __runtime::t _eid17269_)))) (declare (not safe)) - (table-set! __tmp17594 __tmp17593 __tmp17592)) + (table-set! __tmp17550 __tmp17549 __tmp17548)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id17319_ _eid17320_) - (let ((_ctx17322_ (__current-context))) + (lambda (_id17275_ _eid17276_) + (let ((_ctx17278_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id17319_ _eid17320_ _ctx17322_)))) + (__core-bind-runtime!__% _id17275_ _eid17276_ _ctx17278_)))) (define __core-bind-runtime! - (lambda _g17596_ - (let ((_g17595_ (let () (declare (not safe)) (##length _g17596_)))) - (cond ((let () (declare (not safe)) (##fx= _g17595_ 2)) - (apply (lambda (_id17319_ _eid17320_) + (lambda _g17552_ + (let ((_g17551_ (let () (declare (not safe)) (##length _g17552_)))) + (cond ((let () (declare (not safe)) (##fx= _g17551_ 2)) + (apply (lambda (_id17275_ _eid17276_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id17319_ _eid17320_))) - _g17596_)) - ((let () (declare (not safe)) (##fx= _g17595_ 3)) - (apply (lambda (_id17324_ _eid17325_ _ctx17326_) + (__core-bind-runtime!__0 _id17275_ _eid17276_))) + _g17552_)) + ((let () (declare (not safe)) (##fx= _g17551_ 3)) + (apply (lambda (_id17280_ _eid17281_ _ctx17282_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id17324_ - _eid17325_ - _ctx17326_))) - _g17596_)) + _id17280_ + _eid17281_ + _ctx17282_))) + _g17552_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g17596_)))))) + _g17552_)))))) (define __core-bind-syntax!__% - (lambda (_id17295_ _e17296_ _make17297_) - (let ((__tmp17597 + (lambda (_id17251_ _e17252_ _make17253_) + (let ((__tmp17553 (if (let () (declare (not safe)) (##structure-instance-of? - _e17296_ + _e17252_ 'gerbil/runtime/eval#__syntax::t)) - _e17296_ - (_make17297_ _e17296_ _id17295_)))) + _e17252_ + (_make17253_ _e17252_ _id17251_)))) (declare (not safe)) - (table-set! __*core* _id17295_ __tmp17597)))) + (table-set! __*core* _id17251_ __tmp17553)))) (define __core-bind-syntax!__0 - (lambda (_id17302_ _e17303_) - (let ((_make17305_ make-__syntax)) + (lambda (_id17258_ _e17259_) + (let ((_make17261_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id17302_ _e17303_ _make17305_)))) + (__core-bind-syntax!__% _id17258_ _e17259_ _make17261_)))) (define __core-bind-syntax! - (lambda _g17599_ - (let ((_g17598_ (let () (declare (not safe)) (##length _g17599_)))) - (cond ((let () (declare (not safe)) (##fx= _g17598_ 2)) - (apply (lambda (_id17302_ _e17303_) + (lambda _g17555_ + (let ((_g17554_ (let () (declare (not safe)) (##length _g17555_)))) + (cond ((let () (declare (not safe)) (##fx= _g17554_ 2)) + (apply (lambda (_id17258_ _e17259_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id17302_ _e17303_))) - _g17599_)) - ((let () (declare (not safe)) (##fx= _g17598_ 3)) - (apply (lambda (_id17307_ _e17308_ _make17309_) + (__core-bind-syntax!__0 _id17258_ _e17259_))) + _g17555_)) + ((let () (declare (not safe)) (##fx= _g17554_ 3)) + (apply (lambda (_id17263_ _e17264_ _make17265_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id17307_ - _e17308_ - _make17309_))) - _g17599_)) + _id17263_ + _e17264_ + _make17265_))) + _g17555_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g17599_)))))) + _g17555_)))))) (define __core-bind-macro! - (lambda (_id17291_ _e17292_) + (lambda (_id17247_ _e17248_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17291_ _e17292_ make-__macro)))) + (__core-bind-syntax!__% _id17247_ _e17248_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id17288_ _e17289_) + (lambda (_id17244_ _e17245_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17288_ _e17289_ make-__special-form)))) + (__core-bind-syntax!__% _id17244_ _e17245_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id17272_ _e17273_ _ctx17274_) - (let ((__tmp17603 (##structure-ref _ctx17274_ '4 __context::t '#f)) - (__tmp17602 (let () (declare (not safe)) (__AST-e _id17272_))) - (__tmp17600 + (lambda (_id17228_ _e17229_ _ctx17230_) + (let ((__tmp17559 (##structure-ref _ctx17230_ '4 __context::t '#f)) + (__tmp17558 (let () (declare (not safe)) (__AST-e _id17228_))) + (__tmp17556 (if (let () (declare (not safe)) (##structure-instance-of? - _e17273_ + _e17229_ 'gerbil/runtime/eval#__syntax::t)) - _e17273_ - (let ((__tmp17601 - (let () (declare (not safe)) (__AST-e _id17272_)))) + _e17229_ + (let ((__tmp17557 + (let () (declare (not safe)) (__AST-e _id17228_)))) (declare (not safe)) - (##structure __syntax::t _e17273_ __tmp17601))))) + (##structure __syntax::t _e17229_ __tmp17557))))) (declare (not safe)) - (table-set! __tmp17603 __tmp17602 __tmp17600)))) + (table-set! __tmp17559 __tmp17558 __tmp17556)))) (define __core-bind-user-syntax!__0 - (lambda (_id17279_ _e17280_) - (let ((_ctx17282_ (__current-context))) + (lambda (_id17235_ _e17236_) + (let ((_ctx17238_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id17279_ _e17280_ _ctx17282_)))) + (__core-bind-user-syntax!__% _id17235_ _e17236_ _ctx17238_)))) (define __core-bind-user-syntax! - (lambda _g17605_ - (let ((_g17604_ (let () (declare (not safe)) (##length _g17605_)))) - (cond ((let () (declare (not safe)) (##fx= _g17604_ 2)) - (apply (lambda (_id17279_ _e17280_) + (lambda _g17561_ + (let ((_g17560_ (let () (declare (not safe)) (##length _g17561_)))) + (cond ((let () (declare (not safe)) (##fx= _g17560_ 2)) + (apply (lambda (_id17235_ _e17236_) (let () (declare (not safe)) - (__core-bind-user-syntax!__0 _id17279_ _e17280_))) - _g17605_)) - ((let () (declare (not safe)) (##fx= _g17604_ 3)) - (apply (lambda (_id17284_ _e17285_ _ctx17286_) + (__core-bind-user-syntax!__0 _id17235_ _e17236_))) + _g17561_)) + ((let () (declare (not safe)) (##fx= _g17560_ 3)) + (apply (lambda (_id17240_ _e17241_ _ctx17242_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id17284_ - _e17285_ - _ctx17286_))) - _g17605_)) + _id17240_ + _e17241_ + _ctx17242_))) + _g17561_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g17605_)))))) + _g17561_)))))) (define make-__runtime-id__% - (lambda (_id17253_ _ctx17254_) - (let ((_id17256_ (let () (declare (not safe)) (__AST-e _id17253_)))) - (if (let () (declare (not safe)) (eq? _id17256_ '_)) + (lambda (_id17209_ _ctx17210_) + (let ((_id17212_ (let () (declare (not safe)) (__AST-e _id17209_)))) + (if (let () (declare (not safe)) (eq? _id17212_ '_)) '#f - (if (uninterned-symbol? _id17256_) - (gensym _id17256_) - (if (let () (declare (not safe)) (symbol? _id17256_)) - (let ((_$e17258_ - (##structure-ref _ctx17254_ '1 __context::t '#f))) + (if (uninterned-symbol? _id17212_) + (gensym _id17212_) + (if (let () (declare (not safe)) (symbol? _id17212_)) + (let ((_$e17214_ + (##structure-ref _ctx17210_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e17258_)) - (gensym _id17256_) + (eq? 'local _$e17214_)) + (gensym _id17212_) (if (let () (declare (not safe)) - (eq? 'module _$e17258_)) - (let ((__tmp17606 + (eq? 'module _$e17214_)) + (let ((__tmp17562 (##structure-ref - _ctx17254_ + _ctx17210_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp17606 '"#" _id17256_)) - _id17256_))) - (error '"Illegal runtime identifier" _id17256_))))))) + (make-symbol__1 __tmp17562 '"#" _id17212_)) + _id17212_))) + (error '"Illegal runtime identifier" _id17212_))))))) (define make-__runtime-id__0 - (lambda (_id17264_) - (let ((_ctx17266_ (__current-context))) + (lambda (_id17220_) + (let ((_ctx17222_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id17264_ _ctx17266_)))) + (make-__runtime-id__% _id17220_ _ctx17222_)))) (define make-__runtime-id - (lambda _g17608_ - (let ((_g17607_ (let () (declare (not safe)) (##length _g17608_)))) - (cond ((let () (declare (not safe)) (##fx= _g17607_ 1)) - (apply (lambda (_id17264_) + (lambda _g17564_ + (let ((_g17563_ (let () (declare (not safe)) (##length _g17564_)))) + (cond ((let () (declare (not safe)) (##fx= _g17563_ 1)) + (apply (lambda (_id17220_) (let () (declare (not safe)) - (make-__runtime-id__0 _id17264_))) - _g17608_)) - ((let () (declare (not safe)) (##fx= _g17607_ 2)) - (apply (lambda (_id17268_ _ctx17269_) + (make-__runtime-id__0 _id17220_))) + _g17564_)) + ((let () (declare (not safe)) (##fx= _g17563_ 2)) + (apply (lambda (_id17224_ _ctx17225_) (let () (declare (not safe)) - (make-__runtime-id__% _id17268_ _ctx17269_))) - _g17608_)) + (make-__runtime-id__% _id17224_ _ctx17225_))) + _g17564_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g17608_)))))) + _g17564_)))))) (define make-__context-local__% - (lambda (_super17242_) - (let ((__tmp17609 + (lambda (_super17198_) + (let ((__tmp17565 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super17242_ __tmp17609)))) + (##structure __context::t 'local '#f _super17198_ __tmp17565)))) (define make-__context-local__0 (lambda () - (let ((_super17248_ (__current-context))) + (let ((_super17204_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super17248_)))) + (make-__context-local__% _super17204_)))) (define make-__context-local - (lambda _g17611_ - (let ((_g17610_ (let () (declare (not safe)) (##length _g17611_)))) - (cond ((let () (declare (not safe)) (##fx= _g17610_ 0)) + (lambda _g17567_ + (let ((_g17566_ (let () (declare (not safe)) (##length _g17567_)))) + (cond ((let () (declare (not safe)) (##fx= _g17566_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g17611_)) - ((let () (declare (not safe)) (##fx= _g17610_ 1)) - (apply (lambda (_super17250_) + _g17567_)) + ((let () (declare (not safe)) (##fx= _g17566_ 1)) + (apply (lambda (_super17206_) (let () (declare (not safe)) - (make-__context-local__% _super17250_))) - _g17611_)) + (make-__context-local__% _super17206_))) + _g17567_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g17611_)))))) + _g17567_)))))) (define make-__context-module__% - (lambda (_id17222_ _ns17223_ _path17224_ _super17225_) - (let ((__tmp17612 + (lambda (_id17178_ _ns17179_ _path17180_ _super17181_) + (let ((__tmp17568 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns17223_ - _super17225_ - __tmp17612 - _id17222_ - _path17224_ + _ns17179_ + _super17181_ + __tmp17568 + _id17178_ + _path17180_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id17230_ _ns17231_ _path17232_) - (let ((_super17234_ (__current-context))) + (lambda (_id17186_ _ns17187_ _path17188_) + (let ((_super17190_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id17230_ - _ns17231_ - _path17232_ - _super17234_)))) + _id17186_ + _ns17187_ + _path17188_ + _super17190_)))) (define make-__context-module - (lambda _g17614_ - (let ((_g17613_ (let () (declare (not safe)) (##length _g17614_)))) - (cond ((let () (declare (not safe)) (##fx= _g17613_ 3)) - (apply (lambda (_id17230_ _ns17231_ _path17232_) + (lambda _g17570_ + (let ((_g17569_ (let () (declare (not safe)) (##length _g17570_)))) + (cond ((let () (declare (not safe)) (##fx= _g17569_ 3)) + (apply (lambda (_id17186_ _ns17187_ _path17188_) (let () (declare (not safe)) (make-__context-module__0 - _id17230_ - _ns17231_ - _path17232_))) - _g17614_)) - ((let () (declare (not safe)) (##fx= _g17613_ 4)) - (apply (lambda (_id17236_ _ns17237_ _path17238_ _super17239_) + _id17186_ + _ns17187_ + _path17188_))) + _g17570_)) + ((let () (declare (not safe)) (##fx= _g17569_ 4)) + (apply (lambda (_id17192_ _ns17193_ _path17194_ _super17195_) (let () (declare (not safe)) (make-__context-module__% - _id17236_ - _ns17237_ - _path17238_ - _super17239_))) - _g17614_)) + _id17192_ + _ns17193_ + _path17194_ + _super17195_))) + _g17570_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g17614_)))))) + _g17570_)))))) (define __SRC__% - (lambda (_e17205_ _src-stx17206_) - (if (or (let () (declare (not safe)) (pair? _e17205_)) - (let () (declare (not safe)) (symbol? _e17205_))) - (let ((__tmp17618 + (lambda (_e17161_ _src-stx17162_) + (if (or (let () (declare (not safe)) (pair? _e17161_)) + (let () (declare (not safe)) (symbol? _e17161_))) + (let ((__tmp17574 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx17206_ + _src-stx17162_ 'gerbil#AST::t)) - (let ((__tmp17619 + (let ((__tmp17575 (let () (declare (not safe)) - (__AST-source _src-stx17206_)))) + (__AST-source _src-stx17162_)))) (declare (not safe)) - (__locat __tmp17619)) + (__locat __tmp17575)) '#f))) (declare (not safe)) - (##make-source _e17205_ __tmp17618)) + (##make-source _e17161_ __tmp17574)) (if (let () (declare (not safe)) - (##structure-instance-of? _e17205_ 'gerbil#AST::t)) - (let ((__tmp17617 + (##structure-instance-of? _e17161_ 'gerbil#AST::t)) + (let ((__tmp17573 (let () (declare (not safe)) - (##unchecked-structure-ref _e17205_ '1 AST::t '#f))) - (__tmp17615 - (let ((__tmp17616 + (##unchecked-structure-ref _e17161_ '1 AST::t '#f))) + (__tmp17571 + (let ((__tmp17572 (let () (declare (not safe)) - (__AST-source _e17205_)))) + (__AST-source _e17161_)))) (declare (not safe)) - (__locat __tmp17616)))) + (__locat __tmp17572)))) (declare (not safe)) - (##make-source __tmp17617 __tmp17615)) - (error '"BUG! Cannot sourcify object" _e17205_))))) + (##make-source __tmp17573 __tmp17571)) + (error '"BUG! Cannot sourcify object" _e17161_))))) (define __SRC__0 - (lambda (_e17214_) - (let ((_src-stx17216_ '#f)) + (lambda (_e17170_) + (let ((_src-stx17172_ '#f)) (declare (not safe)) - (__SRC__% _e17214_ _src-stx17216_)))) + (__SRC__% _e17170_ _src-stx17172_)))) (define __SRC - (lambda _g17621_ - (let ((_g17620_ (let () (declare (not safe)) (##length _g17621_)))) - (cond ((let () (declare (not safe)) (##fx= _g17620_ 1)) - (apply (lambda (_e17214_) - (let () (declare (not safe)) (__SRC__0 _e17214_))) - _g17621_)) - ((let () (declare (not safe)) (##fx= _g17620_ 2)) - (apply (lambda (_e17218_ _src-stx17219_) + (lambda _g17577_ + (let ((_g17576_ (let () (declare (not safe)) (##length _g17577_)))) + (cond ((let () (declare (not safe)) (##fx= _g17576_ 1)) + (apply (lambda (_e17170_) + (let () (declare (not safe)) (__SRC__0 _e17170_))) + _g17577_)) + ((let () (declare (not safe)) (##fx= _g17576_ 2)) + (apply (lambda (_e17174_ _src-stx17175_) (let () (declare (not safe)) - (__SRC__% _e17218_ _src-stx17219_))) - _g17621_)) + (__SRC__% _e17174_ _src-stx17175_))) + _g17577_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g17621_)))))) + _g17577_)))))) (define __locat - (lambda (_loc17202_) - (if (let () (declare (not safe)) (##locat? _loc17202_)) - _loc17202_ + (lambda (_loc17158_) + (if (let () (declare (not safe)) (##locat? _loc17158_)) + _loc17158_ '#f))) (define __check-values - (lambda (_obj17197_ _k17198_) - (let ((_count17200_ - (if (let () (declare (not safe)) (##values? _obj17197_)) - (let () (declare (not safe)) (##vector-length _obj17197_)) + (lambda (_obj17153_ _k17154_) + (let ((_count17156_ + (if (let () (declare (not safe)) (##values? _obj17153_)) + (let () (declare (not safe)) (##vector-length _obj17153_)) '1))) - (if (fx= _count17200_ _k17198_) + (if (fx= _count17156_ _k17154_) '#!void - (error (if (fx< _count17200_ _k17198_) + (error (if (fx< _count17156_ _k17154_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj17197_)) + (if (let () (declare (not safe)) (##values? _obj17153_)) (let () (declare (not safe)) - (##vector->list _obj17197_)) - _obj17197_) - _k17198_))))) + (##vector->list _obj17153_)) + _obj17153_) + _k17154_))))) (define __compile - (lambda (_stx17167_) - (let* ((_$e17169_ _stx17167_) - (_$E1717117177_ + (lambda (_stx17123_) + (let* ((_$e17125_ _stx17123_) + (_$E1712717133_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e17169_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17169_)) - (let* ((_$tgt1717217180_ - (let () (declare (not safe)) (__AST-e _$e17169_))) - (_$hd1717317183_ - (let () (declare (not safe)) (##car _$tgt1717217180_))) - (_$tl1717417186_ - (let () (declare (not safe)) (##cdr _$tgt1717217180_)))) - (let* ((_form17190_ _$hd1717317183_) - (_$e17192_ + _$e17125_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17125_)) + (let* ((_$tgt1712817136_ + (let () (declare (not safe)) (__AST-e _$e17125_))) + (_$hd1712917139_ + (let () (declare (not safe)) (##car _$tgt1712817136_))) + (_$tl1713017142_ + (let () (declare (not safe)) (##cdr _$tgt1712817136_)))) + (let* ((_form17146_ _$hd1712917139_) + (_$e17148_ (let () (declare (not safe)) - (__core-resolve__0 _form17190_)))) - (if _$e17192_ - ((lambda (_bind17195_) - ((##structure-ref _bind17195_ '1 __syntax::t '#f) - _stx17167_)) - _$e17192_) + (__core-resolve__0 _form17146_)))) + (if _$e17148_ + ((lambda (_bind17151_) + ((##structure-ref _bind17151_ '1 __syntax::t '#f) + _stx17123_)) + _$e17148_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx17167_ - _form17190_))))) - (let () (declare (not safe)) (_$E1717117177_)))))) + _stx17123_ + _form17146_))))) + (let () (declare (not safe)) (_$E1712717133_)))))) (define __compile-error__% - (lambda (_stx17154_ _detail17155_) + (lambda (_stx17110_ _detail17111_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx17154_ - _detail17155_)))) + _stx17110_ + _detail17111_)))) (define __compile-error__0 - (lambda (_stx17160_) - (let ((_detail17162_ '#f)) + (lambda (_stx17116_) + (let ((_detail17118_ '#f)) (declare (not safe)) - (__compile-error__% _stx17160_ _detail17162_)))) + (__compile-error__% _stx17116_ _detail17118_)))) (define __compile-error - (lambda _g17623_ - (let ((_g17622_ (let () (declare (not safe)) (##length _g17623_)))) - (cond ((let () (declare (not safe)) (##fx= _g17622_ 1)) - (apply (lambda (_stx17160_) + (lambda _g17579_ + (let ((_g17578_ (let () (declare (not safe)) (##length _g17579_)))) + (cond ((let () (declare (not safe)) (##fx= _g17578_ 1)) + (apply (lambda (_stx17116_) (let () (declare (not safe)) - (__compile-error__0 _stx17160_))) - _g17623_)) - ((let () (declare (not safe)) (##fx= _g17622_ 2)) - (apply (lambda (_stx17164_ _detail17165_) + (__compile-error__0 _stx17116_))) + _g17579_)) + ((let () (declare (not safe)) (##fx= _g17578_ 2)) + (apply (lambda (_stx17120_ _detail17121_) (let () (declare (not safe)) - (__compile-error__% _stx17164_ _detail17165_))) - _g17623_)) + (__compile-error__% _stx17120_ _detail17121_))) + _g17579_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g17623_)))))) + _g17579_)))))) (define __compile-ignore% - (lambda (_stx17151_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx17151_)))) + (lambda (_stx17107_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx17107_)))) (define __compile-begin% - (lambda (_stx17126_) - (let* ((_$e17128_ _stx17126_) - (_$E1713017136_ + (lambda (_stx17082_) + (let* ((_$e17084_ _stx17082_) + (_$E1708617092_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e17128_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17128_)) - (let* ((_$tgt1713117139_ - (let () (declare (not safe)) (__AST-e _$e17128_))) - (_$hd1713217142_ - (let () (declare (not safe)) (##car _$tgt1713117139_))) - (_$tl1713317145_ - (let () (declare (not safe)) (##cdr _$tgt1713117139_)))) - (let* ((_body17149_ _$tl1713317145_) - (__tmp17624 - (let ((__tmp17625 (map __compile _body17149_))) + _$e17084_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17084_)) + (let* ((_$tgt1708717095_ + (let () (declare (not safe)) (__AST-e _$e17084_))) + (_$hd1708817098_ + (let () (declare (not safe)) (##car _$tgt1708717095_))) + (_$tl1708917101_ + (let () (declare (not safe)) (##cdr _$tgt1708717095_)))) + (let* ((_body17105_ _$tl1708917101_) + (__tmp17580 + (let ((__tmp17581 (map __compile _body17105_))) (declare (not safe)) - (cons 'begin __tmp17625)))) + (cons 'begin __tmp17581)))) (declare (not safe)) - (__SRC__% __tmp17624 _stx17126_))) - (let () (declare (not safe)) (_$E1713017136_)))))) + (__SRC__% __tmp17580 _stx17082_))) + (let () (declare (not safe)) (_$E1708617092_)))))) (define __compile-begin-foreign% - (lambda (_stx17101_) - (let* ((_$e17103_ _stx17101_) - (_$E1710517111_ + (lambda (_stx17057_) + (let* ((_$e17059_ _stx17057_) + (_$E1706117067_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e17103_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17103_)) - (let* ((_$tgt1710617114_ - (let () (declare (not safe)) (__AST-e _$e17103_))) - (_$hd1710717117_ - (let () (declare (not safe)) (##car _$tgt1710617114_))) - (_$tl1710817120_ - (let () (declare (not safe)) (##cdr _$tgt1710617114_)))) - (let* ((_body17124_ _$tl1710817120_) - (__tmp17626 - (let ((__tmp17627 + _$e17059_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17059_)) + (let* ((_$tgt1706217070_ + (let () (declare (not safe)) (__AST-e _$e17059_))) + (_$hd1706317073_ + (let () (declare (not safe)) (##car _$tgt1706217070_))) + (_$tl1706417076_ + (let () (declare (not safe)) (##cdr _$tgt1706217070_)))) + (let* ((_body17080_ _$tl1706417076_) + (__tmp17582 + (let ((__tmp17583 (let () (declare (not safe)) - (__AST->datum _body17124_)))) + (__AST->datum _body17080_)))) (declare (not safe)) - (cons 'begin __tmp17627)))) + (cons 'begin __tmp17583)))) (declare (not safe)) - (__SRC__% __tmp17626 _stx17101_))) - (let () (declare (not safe)) (_$E1710517111_)))))) + (__SRC__% __tmp17582 _stx17057_))) + (let () (declare (not safe)) (_$E1706117067_)))))) (define __compile-import% - (lambda (_stx17076_) - (let* ((_$e17078_ _stx17076_) - (_$E1708017086_ + (lambda (_stx17032_) + (let* ((_$e17034_ _stx17032_) + (_$E1703617042_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e17078_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17078_)) - (let* ((_$tgt1708117089_ - (let () (declare (not safe)) (__AST-e _$e17078_))) - (_$hd1708217092_ - (let () (declare (not safe)) (##car _$tgt1708117089_))) - (_$tl1708317095_ - (let () (declare (not safe)) (##cdr _$tgt1708117089_)))) - (let* ((_body17099_ _$tl1708317095_) - (__tmp17628 - (let ((__tmp17629 - (let ((__tmp17630 - (let ((__tmp17631 + _$e17034_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17034_)) + (let* ((_$tgt1703717045_ + (let () (declare (not safe)) (__AST-e _$e17034_))) + (_$hd1703817048_ + (let () (declare (not safe)) (##car _$tgt1703717045_))) + (_$tl1703917051_ + (let () (declare (not safe)) (##cdr _$tgt1703717045_)))) + (let* ((_body17055_ _$tl1703917051_) + (__tmp17584 + (let ((__tmp17585 + (let ((__tmp17586 + (let ((__tmp17587 (let () (declare (not safe)) - (cons _body17099_ '())))) + (cons _body17055_ '())))) (declare (not safe)) - (cons 'quote __tmp17631)))) + (cons 'quote __tmp17587)))) (declare (not safe)) - (cons __tmp17630 '())))) + (cons __tmp17586 '())))) (declare (not safe)) - (cons '__eval-import __tmp17629)))) + (cons '__eval-import __tmp17585)))) (declare (not safe)) - (__SRC__% __tmp17628 _stx17076_))) - (let () (declare (not safe)) (_$E1708017086_)))))) + (__SRC__% __tmp17584 _stx17032_))) + (let () (declare (not safe)) (_$E1703617042_)))))) (define __compile-begin-annotation% - (lambda (_stx17023_) - (let* ((_$e17025_ _stx17023_) - (_$E1702717039_ + (lambda (_stx16979_) + (let* ((_$e16981_ _stx16979_) + (_$E1698316995_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e17025_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17025_)) - (let* ((_$tgt1702817042_ - (let () (declare (not safe)) (__AST-e _$e17025_))) - (_$hd1702917045_ - (let () (declare (not safe)) (##car _$tgt1702817042_))) - (_$tl1703017048_ - (let () (declare (not safe)) (##cdr _$tgt1702817042_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1703017048_)) - (let* ((_$tgt1703117052_ + _$e16981_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16981_)) + (let* ((_$tgt1698416998_ + (let () (declare (not safe)) (__AST-e _$e16981_))) + (_$hd1698517001_ + (let () (declare (not safe)) (##car _$tgt1698416998_))) + (_$tl1698617004_ + (let () (declare (not safe)) (##cdr _$tgt1698416998_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1698617004_)) + (let* ((_$tgt1698717008_ (let () (declare (not safe)) - (__AST-e _$tl1703017048_))) - (_$hd1703217055_ + (__AST-e _$tl1698617004_))) + (_$hd1698817011_ (let () (declare (not safe)) - (##car _$tgt1703117052_))) - (_$tl1703317058_ + (##car _$tgt1698717008_))) + (_$tl1698917014_ (let () (declare (not safe)) - (##cdr _$tgt1703117052_)))) - (let ((_ann17062_ _$hd1703217055_)) + (##cdr _$tgt1698717008_)))) + (let ((_ann17018_ _$hd1698817011_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1703317058_)) - (let* ((_$tgt1703417064_ + (__AST-pair? _$tl1698917014_)) + (let* ((_$tgt1699017020_ (let () (declare (not safe)) - (__AST-e _$tl1703317058_))) - (_$hd1703517067_ + (__AST-e _$tl1698917014_))) + (_$hd1699117023_ (let () (declare (not safe)) - (##car _$tgt1703417064_))) - (_$tl1703617070_ + (##car _$tgt1699017020_))) + (_$tl1699217026_ (let () (declare (not safe)) - (##cdr _$tgt1703417064_)))) - (let ((_expr17074_ _$hd1703517067_)) - (if (let ((__tmp17632 + (##cdr _$tgt1699017020_)))) + (let ((_expr17030_ _$hd1699117023_)) + (if (let ((__tmp17588 (let () (declare (not safe)) - (__AST-e _$tl1703617070_)))) + (__AST-e _$tl1699217026_)))) (declare (not safe)) - (equal? __tmp17632 '())) + (equal? __tmp17588 '())) (let () (declare (not safe)) - (__compile _expr17074_)) + (__compile _expr17030_)) (let () (declare (not safe)) - (_$E1702717039_))))) - (let () (declare (not safe)) (_$E1702717039_))))) - (let () (declare (not safe)) (_$E1702717039_)))) - (let () (declare (not safe)) (_$E1702717039_)))))) + (_$E1698316995_))))) + (let () (declare (not safe)) (_$E1698316995_))))) + (let () (declare (not safe)) (_$E1698316995_)))) + (let () (declare (not safe)) (_$E1698316995_)))))) (define __compile-define-values% - (lambda (_stx16914_) - (let* ((_$e16916_ _stx16914_) - (_$E1691816930_ + (lambda (_stx16870_) + (let* ((_$e16872_ _stx16870_) + (_$E1687416886_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16916_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16916_)) - (let* ((_$tgt1691916933_ - (let () (declare (not safe)) (__AST-e _$e16916_))) - (_$hd1692016936_ - (let () (declare (not safe)) (##car _$tgt1691916933_))) - (_$tl1692116939_ - (let () (declare (not safe)) (##cdr _$tgt1691916933_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1692116939_)) - (let* ((_$tgt1692216943_ + _$e16872_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16872_)) + (let* ((_$tgt1687516889_ + (let () (declare (not safe)) (__AST-e _$e16872_))) + (_$hd1687616892_ + (let () (declare (not safe)) (##car _$tgt1687516889_))) + (_$tl1687716895_ + (let () (declare (not safe)) (##cdr _$tgt1687516889_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1687716895_)) + (let* ((_$tgt1687816899_ (let () (declare (not safe)) - (__AST-e _$tl1692116939_))) - (_$hd1692316946_ + (__AST-e _$tl1687716895_))) + (_$hd1687916902_ (let () (declare (not safe)) - (##car _$tgt1692216943_))) - (_$tl1692416949_ + (##car _$tgt1687816899_))) + (_$tl1688016905_ (let () (declare (not safe)) - (##cdr _$tgt1692216943_)))) - (let ((_hd16953_ _$hd1692316946_)) + (##cdr _$tgt1687816899_)))) + (let ((_hd16909_ _$hd1687916902_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1692416949_)) - (let* ((_$tgt1692516955_ + (__AST-pair? _$tl1688016905_)) + (let* ((_$tgt1688116911_ (let () (declare (not safe)) - (__AST-e _$tl1692416949_))) - (_$hd1692616958_ + (__AST-e _$tl1688016905_))) + (_$hd1688216914_ (let () (declare (not safe)) - (##car _$tgt1692516955_))) - (_$tl1692716961_ + (##car _$tgt1688116911_))) + (_$tl1688316917_ (let () (declare (not safe)) - (##cdr _$tgt1692516955_)))) - (let ((_expr16965_ _$hd1692616958_)) - (if (let ((__tmp17665 + (##cdr _$tgt1688116911_)))) + (let ((_expr16921_ _$hd1688216914_)) + (if (let ((__tmp17621 (let () (declare (not safe)) - (__AST-e _$tl1692716961_)))) + (__AST-e _$tl1688316917_)))) (declare (not safe)) - (equal? __tmp17665 '())) - (let* ((_$e16967_ _hd16953_) - (_$E1696917010_ + (equal? __tmp17621 '())) + (let* ((_$e16923_ _hd16909_) + (_$E1692516966_ (lambda () - (let ((_$E1697016995_ + (let ((_$E1692616951_ (lambda () - (let* ((_$E1697116982_ + (let* ((_$E1692716938_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1067,2889 +1067,2889 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16967_)))) - (_ids16985_ _hd16953_) - (_len16987_ (length _ids16985_)) - (_tmp16989_ - (let ((__tmp17633 (gensym))) + _$e16923_)))) + (_ids16941_ _hd16909_) + (_len16943_ (length _ids16941_)) + (_tmp16945_ + (let ((__tmp17589 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17633)))) - (let ((__tmp17634 - (let ((__tmp17635 - (let ((__tmp17652 - (let ((__tmp17653 - (let ((__tmp17654 - (let ((__tmp17655 - (let ((__tmp17656 + (__SRC__0 __tmp17589)))) + (let ((__tmp17590 + (let ((__tmp17591 + (let ((__tmp17608 + (let ((__tmp17609 + (let ((__tmp17610 + (let ((__tmp17611 + (let ((__tmp17612 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr16965_)))) + (__compile _expr16921_)))) (declare (not safe)) - (cons __tmp17656 '())))) + (cons __tmp17612 '())))) (declare (not safe)) - (cons _tmp16989_ __tmp17655)))) + (cons _tmp16945_ __tmp17611)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp17654)))) + (cons 'define __tmp17610)))) (declare (not safe)) - (__SRC__% __tmp17653 _stx16914_))) - (__tmp17636 - (let ((__tmp17648 - (let ((__tmp17649 - (let ((__tmp17650 - (let ((__tmp17651 + (__SRC__% __tmp17609 _stx16870_))) + (__tmp17592 + (let ((__tmp17604 + (let ((__tmp17605 + (let ((__tmp17606 + (let ((__tmp17607 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len16987_ '())))) + (let () (declare (not safe)) (cons _len16943_ '())))) (declare (not safe)) - (cons _tmp16989_ __tmp17651)))) + (cons _tmp16945_ __tmp17607)))) (declare (not safe)) - (cons '__check-values __tmp17650)))) + (cons '__check-values __tmp17606)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17649 - _stx16914_))) - (__tmp17637 - (let ((__tmp17638 - (let ((__tmp17640 - (lambda (_id16992_ + __tmp17605 + _stx16870_))) + (__tmp17593 + (let ((__tmp17594 + (let ((__tmp17596 + (lambda (_id16948_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k16993_) - (if (let () (declare (not safe)) (__AST-e _id16992_)) - (let ((__tmp17641 - (let ((__tmp17642 - (let ((__tmp17647 + _k16949_) + (if (let () (declare (not safe)) (__AST-e _id16948_)) + (let ((__tmp17597 + (let ((__tmp17598 + (let ((__tmp17603 (let () (declare (not safe)) - (__SRC__0 _id16992_))) - (__tmp17643 - (let ((__tmp17644 - (let ((__tmp17645 - (let ((__tmp17646 + (__SRC__0 _id16948_))) + (__tmp17599 + (let ((__tmp17600 + (let ((__tmp17601 + (let ((__tmp17602 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k16993_ '())))) + (let () (declare (not safe)) (cons _k16949_ '())))) (declare (not safe)) - (cons _tmp16989_ __tmp17646)))) + (cons _tmp16945_ __tmp17602)))) (declare (not safe)) - (cons '##vector-ref __tmp17645)))) + (cons '##vector-ref __tmp17601)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17644 '())))) + (cons __tmp17600 '())))) (declare (not safe)) - (cons __tmp17647 __tmp17643)))) + (cons __tmp17603 __tmp17599)))) (declare (not safe)) - (cons 'define __tmp17642)))) + (cons 'define __tmp17598)))) (declare (not safe)) - (__SRC__% __tmp17641 _stx16914_)) + (__SRC__% __tmp17597 _stx16870_)) '#f))) - (__tmp17639 (let () (declare (not safe)) (iota _len16987_)))) + (__tmp17595 (let () (declare (not safe)) (iota _len16943_)))) (declare (not safe)) - (filter-map2 __tmp17640 _ids16985_ __tmp17639)))) + (filter-map2 __tmp17596 _ids16941_ __tmp17595)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp17638)))) + (foldr1 cons '() __tmp17594)))) (declare (not safe)) - (cons __tmp17648 __tmp17637)))) + (cons __tmp17604 __tmp17593)))) (declare (not safe)) - (cons __tmp17652 __tmp17636)))) + (cons __tmp17608 __tmp17592)))) (declare (not safe)) - (cons 'begin __tmp17635)))) + (cons 'begin __tmp17591)))) (declare (not safe)) - (__SRC__% __tmp17634 _stx16914_)))))) + (__SRC__% __tmp17590 _stx16870_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e16967_)) - (let* ((_$tgt1697216998_ + (__AST-pair? _$e16923_)) + (let* ((_$tgt1692816954_ (let () (declare (not safe)) - (__AST-e _$e16967_))) - (_$hd1697317001_ + (__AST-e _$e16923_))) + (_$hd1692916957_ (let () (declare (not safe)) - (##car _$tgt1697216998_))) - (_$tl1697417004_ + (##car _$tgt1692816954_))) + (_$tl1693016960_ (let () (declare (not safe)) - (##cdr _$tgt1697216998_)))) - (let ((_id17008_ - _$hd1697317001_)) - (if (let ((__tmp17662 + (##cdr _$tgt1692816954_)))) + (let ((_id16964_ + _$hd1692916957_)) + (if (let ((__tmp17618 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl1697417004_)))) + (__AST-e _$tl1693016960_)))) (declare (not safe)) - (equal? __tmp17662 '())) - (let ((__tmp17657 - (let ((__tmp17658 - (let ((__tmp17661 + (equal? __tmp17618 '())) + (let ((__tmp17613 + (let ((__tmp17614 + (let ((__tmp17617 (let () (declare (not safe)) - (__SRC__0 _id17008_))) - (__tmp17659 - (let ((__tmp17660 + (__SRC__0 _id16964_))) + (__tmp17615 + (let ((__tmp17616 (let () (declare (not safe)) - (__compile _expr16965_)))) + (__compile _expr16921_)))) (declare (not safe)) - (cons __tmp17660 '())))) + (cons __tmp17616 '())))) (declare (not safe)) - (cons __tmp17661 __tmp17659)))) + (cons __tmp17617 __tmp17615)))) (declare (not safe)) - (cons 'define __tmp17658)))) + (cons 'define __tmp17614)))) (declare (not safe)) - (__SRC__% __tmp17657 _stx16914_)) - (let () (declare (not safe)) (_$E1697016995_))))) + (__SRC__% __tmp17613 _stx16870_)) + (let () (declare (not safe)) (_$E1692616951_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1697016995_))))))) + (_$E1692616951_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16967_)) - (let* ((_$tgt1697517013_ + (__AST-pair? _$e16923_)) + (let* ((_$tgt1693116969_ (let () (declare (not safe)) - (__AST-e _$e16967_))) - (_$hd1697617016_ + (__AST-e _$e16923_))) + (_$hd1693216972_ (let () (declare (not safe)) - (##car _$tgt1697517013_))) - (_$tl1697717019_ + (##car _$tgt1693116969_))) + (_$tl1693316975_ (let () (declare (not safe)) - (##cdr _$tgt1697517013_)))) - (if (let ((__tmp17664 + (##cdr _$tgt1693116969_)))) + (if (let ((__tmp17620 (let () (declare (not safe)) - (__AST-e _$hd1697617016_)))) + (__AST-e _$hd1693216972_)))) (declare (not safe)) - (equal? __tmp17664 '#f)) - (if (let ((__tmp17663 + (equal? __tmp17620 '#f)) + (if (let ((__tmp17619 (let () (declare (not safe)) - (__AST-e _$tl1697717019_)))) + (__AST-e _$tl1693316975_)))) (declare (not safe)) - (equal? __tmp17663 '())) + (equal? __tmp17619 '())) (let () (declare (not safe)) - (__compile _expr16965_)) + (__compile _expr16921_)) (let () (declare (not safe)) - (_$E1696917010_))) + (_$E1692516966_))) (let () (declare (not safe)) - (_$E1696917010_)))) + (_$E1692516966_)))) (let () (declare (not safe)) - (_$E1696917010_)))) + (_$E1692516966_)))) (let () (declare (not safe)) - (_$E1691816930_))))) - (let () (declare (not safe)) (_$E1691816930_))))) - (let () (declare (not safe)) (_$E1691816930_)))) - (let () (declare (not safe)) (_$E1691816930_)))))) + (_$E1687416886_))))) + (let () (declare (not safe)) (_$E1687416886_))))) + (let () (declare (not safe)) (_$E1687416886_)))) + (let () (declare (not safe)) (_$E1687416886_)))))) (define __compile-head-id - (lambda (_e16912_) - (let ((__tmp17666 - (if (let () (declare (not safe)) (__AST-e _e16912_)) - _e16912_ + (lambda (_e16868_) + (let ((__tmp17622 + (if (let () (declare (not safe)) (__AST-e _e16868_)) + _e16868_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp17666)))) + (__SRC__0 __tmp17622)))) (define __compile-lambda-head - (lambda (_hd16869_) - (let _recur16871_ ((_rest16873_ _hd16869_)) - (let* ((_$e16875_ _rest16873_) - (_$E1687716895_ + (lambda (_hd16825_) + (let _recur16827_ ((_rest16829_ _hd16825_)) + (let* ((_$e16831_ _rest16829_) + (_$E1683316851_ (lambda () - (let ((_$E1687816892_ + (let ((_$E1683416848_ (lambda () - (let* ((_$E1687916887_ + (let* ((_$E1683516843_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16875_)))) - (_tail16890_ _$e16875_)) + _$e16831_)))) + (_tail16846_ _$e16831_)) (declare (not safe)) - (__compile-head-id _tail16890_))))) - (if (let ((__tmp17667 + (__compile-head-id _tail16846_))))) + (if (let ((__tmp17623 (let () (declare (not safe)) - (__AST-e _$e16875_)))) + (__AST-e _$e16831_)))) (declare (not safe)) - (equal? __tmp17667 '())) + (equal? __tmp17623 '())) '() - (let () (declare (not safe)) (_$E1687816892_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16875_)) - (let* ((_$tgt1688016898_ - (let () (declare (not safe)) (__AST-e _$e16875_))) - (_$hd1688116901_ - (let () (declare (not safe)) (##car _$tgt1688016898_))) - (_$tl1688216904_ + (let () (declare (not safe)) (_$E1683416848_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16831_)) + (let* ((_$tgt1683616854_ + (let () (declare (not safe)) (__AST-e _$e16831_))) + (_$hd1683716857_ + (let () (declare (not safe)) (##car _$tgt1683616854_))) + (_$tl1683816860_ (let () (declare (not safe)) - (##cdr _$tgt1688016898_)))) - (let* ((_hd16908_ _$hd1688116901_) - (_rest16910_ _$tl1688216904_)) - (let ((__tmp17669 + (##cdr _$tgt1683616854_)))) + (let* ((_hd16864_ _$hd1683716857_) + (_rest16866_ _$tl1683816860_)) + (let ((__tmp17625 (let () (declare (not safe)) - (__compile-head-id _hd16908_))) - (__tmp17668 + (__compile-head-id _hd16864_))) + (__tmp17624 (let () (declare (not safe)) - (_recur16871_ _rest16910_)))) + (_recur16827_ _rest16866_)))) (declare (not safe)) - (cons __tmp17669 __tmp17668)))) - (let () (declare (not safe)) (_$E1687716895_))))))) + (cons __tmp17625 __tmp17624)))) + (let () (declare (not safe)) (_$E1683316851_))))))) (define __compile-lambda% - (lambda (_stx16816_) - (let* ((_$e16818_ _stx16816_) - (_$E1682016832_ + (lambda (_stx16772_) + (let* ((_$e16774_ _stx16772_) + (_$E1677616788_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16818_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16818_)) - (let* ((_$tgt1682116835_ - (let () (declare (not safe)) (__AST-e _$e16818_))) - (_$hd1682216838_ - (let () (declare (not safe)) (##car _$tgt1682116835_))) - (_$tl1682316841_ - (let () (declare (not safe)) (##cdr _$tgt1682116835_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1682316841_)) - (let* ((_$tgt1682416845_ + _$e16774_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16774_)) + (let* ((_$tgt1677716791_ + (let () (declare (not safe)) (__AST-e _$e16774_))) + (_$hd1677816794_ + (let () (declare (not safe)) (##car _$tgt1677716791_))) + (_$tl1677916797_ + (let () (declare (not safe)) (##cdr _$tgt1677716791_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1677916797_)) + (let* ((_$tgt1678016801_ (let () (declare (not safe)) - (__AST-e _$tl1682316841_))) - (_$hd1682516848_ + (__AST-e _$tl1677916797_))) + (_$hd1678116804_ (let () (declare (not safe)) - (##car _$tgt1682416845_))) - (_$tl1682616851_ + (##car _$tgt1678016801_))) + (_$tl1678216807_ (let () (declare (not safe)) - (##cdr _$tgt1682416845_)))) - (let ((_hd16855_ _$hd1682516848_)) + (##cdr _$tgt1678016801_)))) + (let ((_hd16811_ _$hd1678116804_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1682616851_)) - (let* ((_$tgt1682716857_ + (__AST-pair? _$tl1678216807_)) + (let* ((_$tgt1678316813_ (let () (declare (not safe)) - (__AST-e _$tl1682616851_))) - (_$hd1682816860_ + (__AST-e _$tl1678216807_))) + (_$hd1678416816_ (let () (declare (not safe)) - (##car _$tgt1682716857_))) - (_$tl1682916863_ + (##car _$tgt1678316813_))) + (_$tl1678516819_ (let () (declare (not safe)) - (##cdr _$tgt1682716857_)))) - (let ((_body16867_ _$hd1682816860_)) - (if (let ((__tmp17675 + (##cdr _$tgt1678316813_)))) + (let ((_body16823_ _$hd1678416816_)) + (if (let ((__tmp17631 (let () (declare (not safe)) - (__AST-e _$tl1682916863_)))) + (__AST-e _$tl1678516819_)))) (declare (not safe)) - (equal? __tmp17675 '())) - (let ((__tmp17670 - (let ((__tmp17671 - (let ((__tmp17674 + (equal? __tmp17631 '())) + (let ((__tmp17626 + (let ((__tmp17627 + (let ((__tmp17630 (let () (declare (not safe)) (__compile-lambda-head - _hd16855_))) - (__tmp17672 - (let ((__tmp17673 + _hd16811_))) + (__tmp17628 + (let ((__tmp17629 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body16867_)))) + (__compile _body16823_)))) (declare (not safe)) - (cons __tmp17673 '())))) + (cons __tmp17629 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17674 - __tmp17672)))) + (cons __tmp17630 + __tmp17628)))) (declare (not safe)) - (cons 'lambda __tmp17671)))) + (cons 'lambda __tmp17627)))) (declare (not safe)) - (__SRC__% __tmp17670 _stx16816_)) + (__SRC__% __tmp17626 _stx16772_)) (let () (declare (not safe)) - (_$E1682016832_))))) - (let () (declare (not safe)) (_$E1682016832_))))) - (let () (declare (not safe)) (_$E1682016832_)))) - (let () (declare (not safe)) (_$E1682016832_)))))) + (_$E1677616788_))))) + (let () (declare (not safe)) (_$E1677616788_))))) + (let () (declare (not safe)) (_$E1677616788_)))) + (let () (declare (not safe)) (_$E1677616788_)))))) (define __compile-case-lambda% - (lambda (_stx16608_) - (letrec ((_variadic?16610_ - (lambda (_hd16781_) - (let* ((_$e16783_ _hd16781_) - (_$E1678516801_ + (lambda (_stx16564_) + (letrec ((_variadic?16566_ + (lambda (_hd16737_) + (let* ((_$e16739_ _hd16737_) + (_$E1674116757_ (lambda () - (let ((_$E1678616798_ + (let ((_$E1674216754_ (lambda () - (let ((_$E1678716795_ + (let ((_$E1674316751_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16783_))))) + _$e16739_))))) '#t)))) - (if (let ((__tmp17676 + (if (let ((__tmp17632 (let () (declare (not safe)) - (__AST-e _$e16783_)))) + (__AST-e _$e16739_)))) (declare (not safe)) - (equal? __tmp17676 '())) + (equal? __tmp17632 '())) '#f (let () (declare (not safe)) - (_$E1678616798_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16783_)) - (let* ((_$tgt1678816804_ + (_$E1674216754_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16739_)) + (let* ((_$tgt1674416760_ (let () (declare (not safe)) - (__AST-e _$e16783_))) - (_$hd1678916807_ + (__AST-e _$e16739_))) + (_$hd1674516763_ (let () (declare (not safe)) - (##car _$tgt1678816804_))) - (_$tl1679016810_ + (##car _$tgt1674416760_))) + (_$tl1674616766_ (let () (declare (not safe)) - (##cdr _$tgt1678816804_)))) - (let ((_rest16814_ _$tl1679016810_)) + (##cdr _$tgt1674416760_)))) + (let ((_rest16770_ _$tl1674616766_)) (declare (not safe)) - (_variadic?16610_ _rest16814_))) - (let () (declare (not safe)) (_$E1678516801_)))))) - (_arity16611_ - (lambda (_hd16746_) - (let _lp16748_ ((_rest16750_ _hd16746_) (_k16751_ '0)) - (let* ((_$e16753_ _rest16750_) - (_$E1675516766_ + (_variadic?16566_ _rest16770_))) + (let () (declare (not safe)) (_$E1674116757_)))))) + (_arity16567_ + (lambda (_hd16702_) + (let _lp16704_ ((_rest16706_ _hd16702_) (_k16707_ '0)) + (let* ((_$e16709_ _rest16706_) + (_$E1671116722_ (lambda () - (let ((_$E1675616763_ + (let ((_$E1671216719_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16753_))))) - _k16751_)))) + _$e16709_))))) + _k16707_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e16753_)) - (let* ((_$tgt1675716769_ + (__AST-pair? _$e16709_)) + (let* ((_$tgt1671316725_ (let () (declare (not safe)) - (__AST-e _$e16753_))) - (_$hd1675816772_ + (__AST-e _$e16709_))) + (_$hd1671416728_ (let () (declare (not safe)) - (##car _$tgt1675716769_))) - (_$tl1675916775_ + (##car _$tgt1671316725_))) + (_$tl1671516731_ (let () (declare (not safe)) - (##cdr _$tgt1675716769_)))) - (let* ((_rest16779_ _$tl1675916775_) - (__tmp17677 + (##cdr _$tgt1671316725_)))) + (let* ((_rest16735_ _$tl1671516731_) + (__tmp17633 (let () (declare (not safe)) - (fx+ _k16751_ '1)))) + (fx+ _k16707_ '1)))) (declare (not safe)) - (_lp16748_ _rest16779_ __tmp17677))) - (let () (declare (not safe)) (_$E1675516766_))))))) - (_generate16612_ - (lambda (_rest16673_ _args16674_ _len16675_) - (let* ((_$e16677_ _rest16673_) - (_$E1667916690_ + (_lp16704_ _rest16735_ __tmp17633))) + (let () (declare (not safe)) (_$E1671116722_))))))) + (_generate16568_ + (lambda (_rest16629_ _args16630_ _len16631_) + (let* ((_$e16633_ _rest16629_) + (_$E1663516646_ (lambda () - (let* ((_$E1668016687_ + (let* ((_$E1663616643_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16677_)))) - (__tmp17678 - (let ((__tmp17679 - (let ((__tmp17680 + _$e16633_)))) + (__tmp17634 + (let ((__tmp17635 + (let ((__tmp17636 (let () (declare (not safe)) - (cons _args16674_ '())))) + (cons _args16630_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp17680)))) + __tmp17636)))) (declare (not safe)) - (cons 'error __tmp17679)))) + (cons 'error __tmp17635)))) (declare (not safe)) - (__SRC__% __tmp17678 _stx16608_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16677_)) - (let* ((_$tgt1668116693_ + (__SRC__% __tmp17634 _stx16564_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16633_)) + (let* ((_$tgt1663716649_ (let () (declare (not safe)) - (__AST-e _$e16677_))) - (_$hd1668216696_ + (__AST-e _$e16633_))) + (_$hd1663816652_ (let () (declare (not safe)) - (##car _$tgt1668116693_))) - (_$tl1668316699_ + (##car _$tgt1663716649_))) + (_$tl1663916655_ (let () (declare (not safe)) - (##cdr _$tgt1668116693_)))) - (let* ((_clause16703_ _$hd1668216696_) - (_rest16705_ _$tl1668316699_) - (_$e16707_ _clause16703_) - (_$E1670916718_ + (##cdr _$tgt1663716649_)))) + (let* ((_clause16659_ _$hd1663816652_) + (_rest16661_ _$tl1663916655_) + (_$e16663_ _clause16659_) + (_$E1666516674_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16707_))))) + _$e16663_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16707_)) - (let* ((_$tgt1671016721_ + (__AST-pair? _$e16663_)) + (let* ((_$tgt1666616677_ (let () (declare (not safe)) - (__AST-e _$e16707_))) - (_$hd1671116724_ + (__AST-e _$e16663_))) + (_$hd1666716680_ (let () (declare (not safe)) - (##car _$tgt1671016721_))) - (_$tl1671216727_ + (##car _$tgt1666616677_))) + (_$tl1666816683_ (let () (declare (not safe)) - (##cdr _$tgt1671016721_)))) - (let ((_hd16731_ _$hd1671116724_)) + (##cdr _$tgt1666616677_)))) + (let ((_hd16687_ _$hd1666716680_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1671216727_)) - (let* ((_$tgt1671316733_ + (__AST-pair? _$tl1666816683_)) + (let* ((_$tgt1666916689_ (let () (declare (not safe)) - (__AST-e _$tl1671216727_))) - (_$hd1671416736_ + (__AST-e _$tl1666816683_))) + (_$hd1667016692_ (let () (declare (not safe)) - (##car _$tgt1671316733_))) - (_$tl1671516739_ + (##car _$tgt1666916689_))) + (_$tl1667116695_ (let () (declare (not safe)) - (##cdr _$tgt1671316733_)))) - (if (let ((__tmp17695 + (##cdr _$tgt1666916689_)))) + (if (let ((__tmp17651 (let () (declare (not safe)) - (__AST-e _$tl1671516739_)))) + (__AST-e _$tl1667116695_)))) (declare (not safe)) - (equal? __tmp17695 '())) - (let ((_clen16743_ + (equal? __tmp17651 '())) + (let ((_clen16699_ (let () (declare (not safe)) - (_arity16611_ - _hd16731_))) - (_cmp16744_ + (_arity16567_ + _hd16687_))) + (_cmp16700_ (if (let () (declare (not safe)) - (_variadic?16610_ - _hd16731_)) + (_variadic?16566_ + _hd16687_)) 'fx>= 'fx=))) - (let ((__tmp17681 - (let ((__tmp17682 - (let ((__tmp17692 + (let ((__tmp17637 + (let ((__tmp17638 + (let ((__tmp17648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17693 - (let ((__tmp17694 + (let ((__tmp17649 + (let ((__tmp17650 (let () (declare (not safe)) - (cons _clen16743_ '())))) + (cons _clen16699_ '())))) (declare (not safe)) - (cons _len16675_ __tmp17694)))) + (cons _len16631_ __tmp17650)))) (declare (not safe)) - (cons _cmp16744_ __tmp17693))) - (__tmp17683 - (let ((__tmp17686 - (let ((__tmp17687 - (let ((__tmp17688 - (let ((__tmp17690 - (let ((__tmp17691 + (cons _cmp16700_ __tmp17649))) + (__tmp17639 + (let ((__tmp17642 + (let ((__tmp17643 + (let ((__tmp17644 + (let ((__tmp17646 + (let ((__tmp17647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause16703_)))) + (cons '%#lambda _clause16659_)))) (declare (not safe)) - (__compile-lambda% __tmp17691))) - (__tmp17689 - (let () (declare (not safe)) (cons _args16674_ '())))) + (__compile-lambda% __tmp17647))) + (__tmp17645 + (let () (declare (not safe)) (cons _args16630_ '())))) (declare (not safe)) - (cons __tmp17690 __tmp17689)))) + (cons __tmp17646 __tmp17645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp17688)))) + (cons '##apply __tmp17644)))) (declare (not safe)) - (__SRC__% __tmp17687 _stx16608_))) - (__tmp17684 - (let ((__tmp17685 + (__SRC__% __tmp17643 _stx16564_))) + (__tmp17640 + (let ((__tmp17641 (let () (declare (not safe)) - (_generate16612_ - _rest16705_ - _args16674_ - _len16675_)))) + (_generate16568_ + _rest16661_ + _args16630_ + _len16631_)))) (declare (not safe)) - (cons __tmp17685 '())))) + (cons __tmp17641 '())))) (declare (not safe)) - (cons __tmp17686 __tmp17684)))) + (cons __tmp17642 __tmp17640)))) (declare (not safe)) - (cons __tmp17692 __tmp17683)))) + (cons __tmp17648 __tmp17639)))) (declare (not safe)) - (cons 'if __tmp17682)))) + (cons 'if __tmp17638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17681 - _stx16608_))) + __tmp17637 + _stx16564_))) (let () (declare (not safe)) - (_$E1670916718_)))) + (_$E1666516674_)))) (let () (declare (not safe)) - (_$E1670916718_))))) + (_$E1666516674_))))) (let () (declare (not safe)) - (_$E1670916718_))))) - (let () (declare (not safe)) (_$E1667916690_))))))) - (let* ((_$e16614_ _stx16608_) - (_$E1661616648_ + (_$E1666516674_))))) + (let () (declare (not safe)) (_$E1663516646_))))))) + (let* ((_$e16570_ _stx16564_) + (_$E1657216604_ (lambda () - (let ((_$E1661716630_ + (let ((_$E1657316586_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16614_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16614_)) - (let* ((_$tgt1661816633_ + _$e16570_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16570_)) + (let* ((_$tgt1657416589_ (let () (declare (not safe)) - (__AST-e _$e16614_))) - (_$hd1661916636_ + (__AST-e _$e16570_))) + (_$hd1657516592_ (let () (declare (not safe)) - (##car _$tgt1661816633_))) - (_$tl1662016639_ + (##car _$tgt1657416589_))) + (_$tl1657616595_ (let () (declare (not safe)) - (##cdr _$tgt1661816633_)))) - (let ((_clauses16643_ _$tl1662016639_)) - (let ((_args16645_ - (let ((__tmp17696 (gensym))) + (##cdr _$tgt1657416589_)))) + (let ((_clauses16599_ _$tl1657616595_)) + (let ((_args16601_ + (let ((__tmp17652 (gensym))) (declare (not safe)) - (__SRC__% __tmp17696 _stx16608_))) - (_len16646_ - (let ((__tmp17697 (gensym))) + (__SRC__% __tmp17652 _stx16564_))) + (_len16602_ + (let ((__tmp17653 (gensym))) (declare (not safe)) - (__SRC__% __tmp17697 _stx16608_)))) - (let ((__tmp17698 - (let ((__tmp17699 - (let ((__tmp17700 - (let ((__tmp17701 - (let ((__tmp17702 + (__SRC__% __tmp17653 _stx16564_)))) + (let ((__tmp17654 + (let ((__tmp17655 + (let ((__tmp17656 + (let ((__tmp17657 + (let ((__tmp17658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17703 - (let ((__tmp17706 - (let ((__tmp17707 - (let ((__tmp17708 - (let ((__tmp17709 - (let ((__tmp17710 + (let ((__tmp17659 + (let ((__tmp17662 + (let ((__tmp17663 + (let ((__tmp17664 + (let ((__tmp17665 + (let ((__tmp17666 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17711 + (let ((__tmp17667 (let () (declare (not safe)) - (cons _args16645_ '())))) + (cons _args16601_ '())))) (declare (not safe)) - (cons '##length __tmp17711)))) + (cons '##length __tmp17667)))) (declare (not safe)) - (__SRC__% __tmp17710 _stx16608_)))) + (__SRC__% __tmp17666 _stx16564_)))) (declare (not safe)) - (cons __tmp17709 '())))) + (cons __tmp17665 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len16646_ - __tmp17708)))) + (cons _len16602_ + __tmp17664)))) (declare (not safe)) - (cons __tmp17707 '()))) - (__tmp17704 - (let ((__tmp17705 + (cons __tmp17663 '()))) + (__tmp17660 + (let ((__tmp17661 (let () (declare (not safe)) - (_generate16612_ - _clauses16643_ - _args16645_ - _len16646_)))) + (_generate16568_ + _clauses16599_ + _args16601_ + _len16602_)))) (declare (not safe)) - (cons __tmp17705 '())))) + (cons __tmp17661 '())))) (declare (not safe)) - (cons __tmp17706 __tmp17704)))) + (cons __tmp17662 __tmp17660)))) (declare (not safe)) - (cons 'let __tmp17703)))) + (cons 'let __tmp17659)))) (declare (not safe)) - (__SRC__% __tmp17702 _stx16608_)))) + (__SRC__% __tmp17658 _stx16564_)))) (declare (not safe)) - (cons __tmp17701 '())))) + (cons __tmp17657 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args16645_ - __tmp17700)))) + (cons _args16601_ + __tmp17656)))) (declare (not safe)) - (cons 'lambda __tmp17699)))) + (cons 'lambda __tmp17655)))) (declare (not safe)) - (__SRC__% __tmp17698 _stx16608_))))) - (let () (declare (not safe)) (_$E1661716630_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16614_)) - (let* ((_$tgt1662116651_ - (let () (declare (not safe)) (__AST-e _$e16614_))) - (_$hd1662216654_ - (let () (declare (not safe)) (##car _$tgt1662116651_))) - (_$tl1662316657_ + (__SRC__% __tmp17654 _stx16564_))))) + (let () (declare (not safe)) (_$E1657316586_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16570_)) + (let* ((_$tgt1657716607_ + (let () (declare (not safe)) (__AST-e _$e16570_))) + (_$hd1657816610_ + (let () (declare (not safe)) (##car _$tgt1657716607_))) + (_$tl1657916613_ (let () (declare (not safe)) - (##cdr _$tgt1662116651_)))) + (##cdr _$tgt1657716607_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1662316657_)) - (let* ((_$tgt1662416661_ + (__AST-pair? _$tl1657916613_)) + (let* ((_$tgt1658016617_ (let () (declare (not safe)) - (__AST-e _$tl1662316657_))) - (_$hd1662516664_ + (__AST-e _$tl1657916613_))) + (_$hd1658116620_ (let () (declare (not safe)) - (##car _$tgt1662416661_))) - (_$tl1662616667_ + (##car _$tgt1658016617_))) + (_$tl1658216623_ (let () (declare (not safe)) - (##cdr _$tgt1662416661_)))) - (let ((_clause16671_ _$hd1662516664_)) - (if (let ((__tmp17713 + (##cdr _$tgt1658016617_)))) + (let ((_clause16627_ _$hd1658116620_)) + (if (let ((__tmp17669 (let () (declare (not safe)) - (__AST-e _$tl1662616667_)))) + (__AST-e _$tl1658216623_)))) (declare (not safe)) - (equal? __tmp17713 '())) - (let ((__tmp17712 + (equal? __tmp17669 '())) + (let ((__tmp17668 (let () (declare (not safe)) - (cons '%#lambda _clause16671_)))) + (cons '%#lambda _clause16627_)))) (declare (not safe)) - (__compile-lambda% __tmp17712)) - (let () (declare (not safe)) (_$E1661616648_))))) - (let () (declare (not safe)) (_$E1661616648_)))) - (let () (declare (not safe)) (_$E1661616648_))))))) + (__compile-lambda% __tmp17668)) + (let () (declare (not safe)) (_$E1657216604_))))) + (let () (declare (not safe)) (_$E1657216604_)))) + (let () (declare (not safe)) (_$E1657216604_))))))) (define __compile-let-form - (lambda (_stx16377_ _compile-simple16378_ _compile-values16379_) - (letrec ((_simple-bind?16381_ - (lambda (_hd16566_) - (let* ((_hd1656716577_ _hd16566_) - (_else1657016585_ (lambda () '#f))) - (let ((_K1657316598_ (lambda (_id16596_) '#t)) - (_K1657216590_ (lambda () '#t))) - (let ((_try-match1656916593_ + (lambda (_stx16333_ _compile-simple16334_ _compile-values16335_) + (letrec ((_simple-bind?16337_ + (lambda (_hd16522_) + (let* ((_hd1652316533_ _hd16522_) + (_else1652616541_ (lambda () '#f))) + (let ((_K1652916554_ (lambda (_id16552_) '#t)) + (_K1652816546_ (lambda () '#t))) + (let ((_try-match1652516549_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd1656716577_ '#f)) + (##eq? _hd1652316533_ '#f)) (let () (declare (not safe)) - (_K1657216590_)) + (_K1652816546_)) (let () (declare (not safe)) - (_else1657016585_)))))) + (_else1652616541_)))))) (if (let () (declare (not safe)) - (##pair? _hd1656716577_)) - (let ((_tl1657516603_ + (##pair? _hd1652316533_)) + (let ((_tl1653116559_ (let () (declare (not safe)) - (##cdr _hd1656716577_))) - (_hd1657416601_ + (##cdr _hd1652316533_))) + (_hd1653016557_ (let () (declare (not safe)) - (##car _hd1656716577_)))) + (##car _hd1652316533_)))) (if (let () (declare (not safe)) - (##null? _tl1657516603_)) - (let ((_id16606_ _hd1657416601_)) + (##null? _tl1653116559_)) + (let ((_id16562_ _hd1653016557_)) (declare (not safe)) - (_K1657316598_ _id16606_)) + (_K1652916554_ _id16562_)) (let () (declare (not safe)) - (_try-match1656916593_)))) + (_try-match1652516549_)))) (let () (declare (not safe)) - (_try-match1656916593_)))))))) - (_car-e16382_ - (lambda (_hd16564_) - (if (let () (declare (not safe)) (pair? _hd16564_)) - (car _hd16564_) - _hd16564_)))) - (let* ((_$e16384_ _stx16377_) - (_$E1638616529_ + (_try-match1652516549_)))))))) + (_car-e16338_ + (lambda (_hd16520_) + (if (let () (declare (not safe)) (pair? _hd16520_)) + (car _hd16520_) + _hd16520_)))) + (let* ((_$e16340_ _stx16333_) + (_$E1634216485_ (lambda () - (let ((_$E1638716409_ + (let ((_$E1634316365_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16384_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16384_)) - (let* ((_$tgt1638816412_ + _$e16340_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16340_)) + (let* ((_$tgt1634416368_ (let () (declare (not safe)) - (__AST-e _$e16384_))) - (_$hd1638916415_ + (__AST-e _$e16340_))) + (_$hd1634516371_ (let () (declare (not safe)) - (##car _$tgt1638816412_))) - (_$tl1639016418_ + (##car _$tgt1634416368_))) + (_$tl1634616374_ (let () (declare (not safe)) - (##cdr _$tgt1638816412_)))) + (##cdr _$tgt1634416368_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1639016418_)) - (let* ((_$tgt1639116422_ + (__AST-pair? _$tl1634616374_)) + (let* ((_$tgt1634716378_ (let () (declare (not safe)) - (__AST-e _$tl1639016418_))) - (_$hd1639216425_ + (__AST-e _$tl1634616374_))) + (_$hd1634816381_ (let () (declare (not safe)) - (##car _$tgt1639116422_))) - (_$tl1639316428_ + (##car _$tgt1634716378_))) + (_$tl1634916384_ (let () (declare (not safe)) - (##cdr _$tgt1639116422_)))) - (let ((_hd16432_ _$hd1639216425_)) + (##cdr _$tgt1634716378_)))) + (let ((_hd16388_ _$hd1634816381_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1639316428_)) - (let* ((_$tgt1639416434_ + (__AST-pair? _$tl1634916384_)) + (let* ((_$tgt1635016390_ (let () (declare (not safe)) - (__AST-e _$tl1639316428_))) - (_$hd1639516437_ + (__AST-e _$tl1634916384_))) + (_$hd1635116393_ (let () (declare (not safe)) - (##car _$tgt1639416434_))) - (_$tl1639616440_ + (##car _$tgt1635016390_))) + (_$tl1635216396_ (let () (declare (not safe)) - (##cdr _$tgt1639416434_)))) - (let ((_body16444_ _$hd1639516437_)) - (if (let ((__tmp17716 + (##cdr _$tgt1635016390_)))) + (let ((_body16400_ _$hd1635116393_)) + (if (let ((__tmp17672 (let () (declare (not safe)) - (__AST-e _$tl1639616440_)))) + (__AST-e _$tl1635216396_)))) (declare (not safe)) - (equal? __tmp17716 '())) - (let* ((_hd-ids16484_ - (map (lambda (_bind16446_) - (let* ((_$e16448_ + (equal? __tmp17672 '())) + (let* ((_hd-ids16440_ + (map (lambda (_bind16402_) + (let* ((_$e16404_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind16446_) - (_$E1645016459_ + _bind16402_) + (_$E1640616415_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16448_))))) + _$e16404_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16448_)) - (let* ((_$tgt1645116462_ + (__AST-pair? _$e16404_)) + (let* ((_$tgt1640716418_ (let () (declare (not safe)) - (__AST-e _$e16448_))) - (_$hd1645216465_ + (__AST-e _$e16404_))) + (_$hd1640816421_ (let () (declare (not safe)) - (##car _$tgt1645116462_))) - (_$tl1645316468_ + (##car _$tgt1640716418_))) + (_$tl1640916424_ (let () (declare (not safe)) - (##cdr _$tgt1645116462_)))) - (let ((_ids16472_ _$hd1645216465_)) + (##cdr _$tgt1640716418_)))) + (let ((_ids16428_ _$hd1640816421_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1645316468_)) - (let* ((_$tgt1645416474_ + (__AST-pair? _$tl1640916424_)) + (let* ((_$tgt1641016430_ (let () (declare (not safe)) - (__AST-e _$tl1645316468_))) - (_$hd1645516477_ + (__AST-e _$tl1640916424_))) + (_$hd1641116433_ (let () (declare (not safe)) - (##car _$tgt1645416474_))) - (_$tl1645616480_ + (##car _$tgt1641016430_))) + (_$tl1641216436_ (let () (declare (not safe)) - (##cdr _$tgt1645416474_)))) - (if (let ((__tmp17714 + (##cdr _$tgt1641016430_)))) + (if (let ((__tmp17670 (let () (declare (not safe)) - (__AST-e _$tl1645616480_)))) + (__AST-e _$tl1641216436_)))) (declare (not safe)) - (equal? __tmp17714 '())) - _ids16472_ + (equal? __tmp17670 '())) + _ids16428_ (let () (declare (not safe)) - (_$E1645016459_)))) + (_$E1640616415_)))) (let () (declare (not safe)) - (_$E1645016459_))))) - (let () (declare (not safe)) (_$E1645016459_))))) - _hd16432_)) - (_exprs16524_ - (map (lambda (_bind16486_) - (let* ((_$e16488_ _bind16486_) - (_$E1649016499_ + (_$E1640616415_))))) + (let () (declare (not safe)) (_$E1640616415_))))) + _hd16388_)) + (_exprs16480_ + (map (lambda (_bind16442_) + (let* ((_$e16444_ _bind16442_) + (_$E1644616455_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e16488_))))) + _$e16444_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16488_)) - (let* ((_$tgt1649116502_ + (__AST-pair? _$e16444_)) + (let* ((_$tgt1644716458_ (let () (declare (not safe)) - (__AST-e _$e16488_))) - (_$hd1649216505_ + (__AST-e _$e16444_))) + (_$hd1644816461_ (let () (declare (not safe)) - (##car _$tgt1649116502_))) - (_$tl1649316508_ + (##car _$tgt1644716458_))) + (_$tl1644916464_ (let () (declare (not safe)) - (##cdr _$tgt1649116502_)))) + (##cdr _$tgt1644716458_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1649316508_)) - (let* ((_$tgt1649416512_ + (__AST-pair? _$tl1644916464_)) + (let* ((_$tgt1645016468_ (let () (declare (not safe)) - (__AST-e _$tl1649316508_))) - (_$hd1649516515_ + (__AST-e _$tl1644916464_))) + (_$hd1645116471_ (let () (declare (not safe)) - (##car _$tgt1649416512_))) - (_$tl1649616518_ + (##car _$tgt1645016468_))) + (_$tl1645216474_ (let () (declare (not safe)) - (##cdr _$tgt1649416512_)))) - (let ((_expr16522_ _$hd1649516515_)) - (if (let ((__tmp17715 + (##cdr _$tgt1645016468_)))) + (let ((_expr16478_ _$hd1645116471_)) + (if (let ((__tmp17671 (let () (declare (not safe)) - (__AST-e _$tl1649616518_)))) + (__AST-e _$tl1645216474_)))) (declare (not safe)) - (equal? __tmp17715 '())) + (equal? __tmp17671 '())) (let () (declare (not safe)) - (__compile _expr16522_)) + (__compile _expr16478_)) (let () (declare (not safe)) - (_$E1649016499_))))) + (_$E1644616455_))))) (let () (declare (not safe)) - (_$E1649016499_)))) - (let () (declare (not safe)) (_$E1649016499_))))) - _hd16432_)) - (_body16526_ - (let () (declare (not safe)) (__compile _body16444_)))) + (_$E1644616455_)))) + (let () (declare (not safe)) (_$E1644616455_))))) + _hd16388_)) + (_body16482_ + (let () (declare (not safe)) (__compile _body16400_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?16381_ + (andmap1 _simple-bind?16337_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids16484_)) - (_compile-simple16378_ - (map _car-e16382_ _hd-ids16484_) - _exprs16524_ - _body16526_) - (_compile-values16379_ _hd-ids16484_ _exprs16524_ _body16526_))) + _hd-ids16440_)) + (_compile-simple16334_ + (map _car-e16338_ _hd-ids16440_) + _exprs16480_ + _body16482_) + (_compile-values16335_ _hd-ids16440_ _exprs16480_ _body16482_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1638716409_))))) + (_$E1634316365_))))) (let () (declare (not safe)) - (_$E1638716409_))))) + (_$E1634316365_))))) (let () (declare (not safe)) - (_$E1638716409_)))) - (let () (declare (not safe)) (_$E1638716409_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16384_)) - (let* ((_$tgt1639716532_ - (let () (declare (not safe)) (__AST-e _$e16384_))) - (_$hd1639816535_ - (let () (declare (not safe)) (##car _$tgt1639716532_))) - (_$tl1639916538_ + (_$E1634316365_)))) + (let () (declare (not safe)) (_$E1634316365_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16340_)) + (let* ((_$tgt1635316488_ + (let () (declare (not safe)) (__AST-e _$e16340_))) + (_$hd1635416491_ + (let () (declare (not safe)) (##car _$tgt1635316488_))) + (_$tl1635516494_ (let () (declare (not safe)) - (##cdr _$tgt1639716532_)))) + (##cdr _$tgt1635316488_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1639916538_)) - (let* ((_$tgt1640016542_ + (__AST-pair? _$tl1635516494_)) + (let* ((_$tgt1635616498_ (let () (declare (not safe)) - (__AST-e _$tl1639916538_))) - (_$hd1640116545_ + (__AST-e _$tl1635516494_))) + (_$hd1635716501_ (let () (declare (not safe)) - (##car _$tgt1640016542_))) - (_$tl1640216548_ + (##car _$tgt1635616498_))) + (_$tl1635816504_ (let () (declare (not safe)) - (##cdr _$tgt1640016542_)))) - (if (let ((__tmp17718 + (##cdr _$tgt1635616498_)))) + (if (let ((__tmp17674 (let () (declare (not safe)) - (__AST-e _$hd1640116545_)))) + (__AST-e _$hd1635716501_)))) (declare (not safe)) - (equal? __tmp17718 '())) + (equal? __tmp17674 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl1640216548_)) - (let* ((_$tgt1640316552_ + (__AST-pair? _$tl1635816504_)) + (let* ((_$tgt1635916508_ (let () (declare (not safe)) - (__AST-e _$tl1640216548_))) - (_$hd1640416555_ + (__AST-e _$tl1635816504_))) + (_$hd1636016511_ (let () (declare (not safe)) - (##car _$tgt1640316552_))) - (_$tl1640516558_ + (##car _$tgt1635916508_))) + (_$tl1636116514_ (let () (declare (not safe)) - (##cdr _$tgt1640316552_)))) - (let ((_body16562_ _$hd1640416555_)) - (if (let ((__tmp17717 + (##cdr _$tgt1635916508_)))) + (let ((_body16518_ _$hd1636016511_)) + (if (let ((__tmp17673 (let () (declare (not safe)) - (__AST-e _$tl1640516558_)))) + (__AST-e _$tl1636116514_)))) (declare (not safe)) - (equal? __tmp17717 '())) + (equal? __tmp17673 '())) (let () (declare (not safe)) - (__compile _body16562_)) + (__compile _body16518_)) (let () (declare (not safe)) - (_$E1638616529_))))) - (let () (declare (not safe)) (_$E1638616529_))) - (let () (declare (not safe)) (_$E1638616529_)))) - (let () (declare (not safe)) (_$E1638616529_)))) - (let () (declare (not safe)) (_$E1638616529_))))))) + (_$E1634216485_))))) + (let () (declare (not safe)) (_$E1634216485_))) + (let () (declare (not safe)) (_$E1634216485_)))) + (let () (declare (not safe)) (_$E1634216485_)))) + (let () (declare (not safe)) (_$E1634216485_))))))) (define __compile-let-values% - (lambda (_stx16192_) - (letrec ((_compile-simple16194_ - (lambda (_hd-ids16373_ _exprs16374_ _body16375_) - (let ((__tmp17719 - (let ((__tmp17720 - (let ((__tmp17722 + (lambda (_stx16148_) + (letrec ((_compile-simple16150_ + (lambda (_hd-ids16329_ _exprs16330_ _body16331_) + (let ((__tmp17675 + (let ((__tmp17676 + (let ((__tmp17678 (map list (map __compile-head-id - _hd-ids16373_) - _exprs16374_)) - (__tmp17721 + _hd-ids16329_) + _exprs16330_)) + (__tmp17677 (let () (declare (not safe)) - (cons _body16375_ '())))) + (cons _body16331_ '())))) (declare (not safe)) - (cons __tmp17722 __tmp17721)))) + (cons __tmp17678 __tmp17677)))) (declare (not safe)) - (cons 'let __tmp17720)))) + (cons 'let __tmp17676)))) (declare (not safe)) - (__SRC__% __tmp17719 _stx16192_)))) - (_compile-values16195_ - (lambda (_hd-ids16291_ _exprs16292_ _body16293_) - (let _lp16295_ ((_rest16297_ _hd-ids16291_) - (_exprs16298_ _exprs16292_) - (_bind16299_ '()) - (_post16300_ '())) - (let* ((_rest1630116315_ _rest16297_) - (_else1630416323_ + (__SRC__% __tmp17675 _stx16148_)))) + (_compile-values16151_ + (lambda (_hd-ids16247_ _exprs16248_ _body16249_) + (let _lp16251_ ((_rest16253_ _hd-ids16247_) + (_exprs16254_ _exprs16248_) + (_bind16255_ '()) + (_post16256_ '())) + (let* ((_rest1625716271_ _rest16253_) + (_else1626016279_ (lambda () - (let ((__tmp17723 - (let ((__tmp17724 - (let ((__tmp17727 - (reverse _bind16299_)) - (__tmp17725 - (let ((__tmp17726 + (let ((__tmp17679 + (let ((__tmp17680 + (let ((__tmp17683 + (reverse _bind16255_)) + (__tmp17681 + (let ((__tmp17682 (let () (declare (not safe)) - (_compile-post16196_ - _post16300_ - _body16293_)))) + (_compile-post16152_ + _post16256_ + _body16249_)))) (declare (not safe)) - (cons __tmp17726 '())))) + (cons __tmp17682 '())))) (declare (not safe)) - (cons __tmp17727 __tmp17725)))) + (cons __tmp17683 __tmp17681)))) (declare (not safe)) - (cons 'let __tmp17724)))) + (cons 'let __tmp17680)))) (declare (not safe)) - (__SRC__% __tmp17723 _stx16192_))))) - (let ((_K1630916356_ - (lambda (_rest16353_ _id16354_) - (let ((__tmp17733 (cdr _exprs16298_)) - (__tmp17728 - (let ((__tmp17729 - (let ((__tmp17732 + (__SRC__% __tmp17679 _stx16148_))))) + (let ((_K1626516312_ + (lambda (_rest16309_ _id16310_) + (let ((__tmp17689 (cdr _exprs16254_)) + (__tmp17684 + (let ((__tmp17685 + (let ((__tmp17688 (let () (declare (not safe)) (__compile-head-id - _id16354_))) - (__tmp17730 - (let ((__tmp17731 - (car _exprs16298_))) + _id16310_))) + (__tmp17686 + (let ((__tmp17687 + (car _exprs16254_))) (declare (not safe)) - (cons __tmp17731 + (cons __tmp17687 '())))) (declare (not safe)) - (cons __tmp17732 - __tmp17730)))) + (cons __tmp17688 + __tmp17686)))) (declare (not safe)) - (cons __tmp17729 _bind16299_)))) + (cons __tmp17685 _bind16255_)))) (declare (not safe)) - (_lp16295_ - _rest16353_ - __tmp17733 - __tmp17728 - _post16300_)))) - (_K1630616338_ - (lambda (_rest16327_ _hd16328_) + (_lp16251_ + _rest16309_ + __tmp17689 + __tmp17684 + _post16256_)))) + (_K1626216294_ + (lambda (_rest16283_ _hd16284_) (if (let () (declare (not safe)) - (__AST-id? _hd16328_)) - (let ((__tmp17754 (cdr _exprs16298_)) - (__tmp17747 - (let ((__tmp17748 - (let ((__tmp17753 + (__AST-id? _hd16284_)) + (let ((__tmp17710 (cdr _exprs16254_)) + (__tmp17703 + (let ((__tmp17704 + (let ((__tmp17709 (let () (declare (not safe)) (__compile-head-id - _hd16328_))) - (__tmp17749 - (let ((__tmp17750 + _hd16284_))) + (__tmp17705 + (let ((__tmp17706 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17751 - (let ((__tmp17752 (car _exprs16298_))) + (let ((__tmp17707 + (let ((__tmp17708 (car _exprs16254_))) (declare (not safe)) - (cons __tmp17752 '())))) + (cons __tmp17708 '())))) (declare (not safe)) - (cons 'values->list __tmp17751)))) + (cons 'values->list __tmp17707)))) (declare (not safe)) - (cons __tmp17750 '())))) + (cons __tmp17706 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17753 - __tmp17749)))) + (cons __tmp17709 + __tmp17705)))) (declare (not safe)) - (cons __tmp17748 _bind16299_)))) + (cons __tmp17704 _bind16255_)))) (declare (not safe)) - (_lp16295_ - _rest16327_ - __tmp17754 - __tmp17747 - _post16300_)) + (_lp16251_ + _rest16283_ + __tmp17710 + __tmp17703 + _post16256_)) (if (let () (declare (not safe)) - (list? _hd16328_)) - (let* ((_len16330_ (length _hd16328_)) - (_tmp16332_ - (let ((__tmp17734 (gensym))) + (list? _hd16284_)) + (let* ((_len16286_ (length _hd16284_)) + (_tmp16288_ + (let ((__tmp17690 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17734)))) - (let ((__tmp17746 - (cdr _exprs16298_)) - (__tmp17742 - (let ((__tmp17743 - (let ((__tmp17744 - (let ((__tmp17745 + (__SRC__0 __tmp17690)))) + (let ((__tmp17702 + (cdr _exprs16254_)) + (__tmp17698 + (let ((__tmp17699 + (let ((__tmp17700 + (let ((__tmp17701 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16298_))) + (car _exprs16254_))) (declare (not safe)) - (cons __tmp17745 '())))) + (cons __tmp17701 '())))) (declare (not safe)) - (cons _tmp16332_ __tmp17744)))) + (cons _tmp16288_ __tmp17700)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17743 - _bind16299_))) - (__tmp17735 - (let ((__tmp17736 - (let ((__tmp17737 - (let ((__tmp17738 + (cons __tmp17699 + _bind16255_))) + (__tmp17691 + (let ((__tmp17692 + (let ((__tmp17693 + (let ((__tmp17694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17740 - (lambda (_id16335_ _k16336_) + (let ((__tmp17696 + (lambda (_id16291_ _k16292_) (if (let () (declare (not safe)) - (__AST-e _id16335_)) - (let ((__tmp17741 + (__AST-e _id16291_)) + (let ((__tmp17697 (let () (declare (not safe)) - (__SRC__0 _id16335_)))) + (__SRC__0 _id16291_)))) (declare (not safe)) - (cons __tmp17741 _k16336_)) + (cons __tmp17697 _k16292_)) '#f))) - (__tmp17739 + (__tmp17695 (let () (declare (not safe)) - (iota _len16330_)))) + (iota _len16286_)))) (declare (not safe)) (filter-map2 - __tmp17740 - _hd16328_ - __tmp17739)))) + __tmp17696 + _hd16284_ + __tmp17695)))) (declare (not safe)) - (cons _len16330_ __tmp17738)))) + (cons _len16286_ __tmp17694)))) (declare (not safe)) - (cons _tmp16332_ __tmp17737)))) + (cons _tmp16288_ __tmp17693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17736 - _post16300_)))) + (cons __tmp17692 + _post16256_)))) (declare (not safe)) - (_lp16295_ - _rest16327_ - __tmp17746 - __tmp17742 - __tmp17735))) + (_lp16251_ + _rest16283_ + __tmp17702 + __tmp17698 + __tmp17691))) (let () (declare (not safe)) (__compile-error__% - _stx16192_ - _hd16328_))))))) + _stx16148_ + _hd16284_))))))) (if (let () (declare (not safe)) - (##pair? _rest1630116315_)) - (let ((_tl1631116361_ + (##pair? _rest1625716271_)) + (let ((_tl1626716317_ (let () (declare (not safe)) - (##cdr _rest1630116315_))) - (_hd1631016359_ + (##cdr _rest1625716271_))) + (_hd1626616315_ (let () (declare (not safe)) - (##car _rest1630116315_)))) + (##car _rest1625716271_)))) (if (let () (declare (not safe)) - (##pair? _hd1631016359_)) - (let ((_tl1631316366_ + (##pair? _hd1626616315_)) + (let ((_tl1626916322_ (let () (declare (not safe)) - (##cdr _hd1631016359_))) - (_hd1631216364_ + (##cdr _hd1626616315_))) + (_hd1626816320_ (let () (declare (not safe)) - (##car _hd1631016359_)))) + (##car _hd1626616315_)))) (if (let () (declare (not safe)) - (##null? _tl1631316366_)) - (let ((_id16369_ _hd1631216364_) - (_rest16371_ _tl1631116361_)) + (##null? _tl1626916322_)) + (let ((_id16325_ _hd1626816320_) + (_rest16327_ _tl1626716317_)) (let () (declare (not safe)) - (_K1630916356_ - _rest16371_ - _id16369_))) - (let ((_hd16346_ _hd1631016359_) - (_rest16348_ _tl1631116361_)) + (_K1626516312_ + _rest16327_ + _id16325_))) + (let ((_hd16302_ _hd1626616315_) + (_rest16304_ _tl1626716317_)) (let () (declare (not safe)) - (_K1630616338_ - _rest16348_ - _hd16346_))))) - (let ((_hd16346_ _hd1631016359_) - (_rest16348_ _tl1631116361_)) + (_K1626216294_ + _rest16304_ + _hd16302_))))) + (let ((_hd16302_ _hd1626616315_) + (_rest16304_ _tl1626716317_)) (let () (declare (not safe)) - (_K1630616338_ - _rest16348_ - _hd16346_))))) + (_K1626216294_ + _rest16304_ + _hd16302_))))) (let () (declare (not safe)) - (_else1630416323_)))))))) - (_compile-post16196_ - (lambda (_post16198_ _body16199_) - (let _lp16201_ ((_rest16203_ _post16198_) - (_check16204_ '()) - (_bind16205_ '())) - (let* ((_rest1620616218_ _rest16203_) - (_else1620816226_ + (_else1626016279_)))))))) + (_compile-post16152_ + (lambda (_post16154_ _body16155_) + (let _lp16157_ ((_rest16159_ _post16154_) + (_check16160_ '()) + (_bind16161_ '())) + (let* ((_rest1616216174_ _rest16159_) + (_else1616416182_ (lambda () - (let ((__tmp17755 - (let ((__tmp17756 - (let ((__tmp17757 - (let ((__tmp17758 - (let ((__tmp17759 + (let ((__tmp17711 + (let ((__tmp17712 + (let ((__tmp17713 + (let ((__tmp17714 + (let ((__tmp17715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17760 - (let ((__tmp17761 + (let ((__tmp17716 + (let ((__tmp17717 (let () (declare (not safe)) - (cons _body16199_ '())))) + (cons _body16155_ '())))) (declare (not safe)) - (cons _bind16205_ __tmp17761)))) + (cons _bind16161_ __tmp17717)))) (declare (not safe)) - (cons 'let __tmp17760)))) + (cons 'let __tmp17716)))) (declare (not safe)) - (__SRC__% __tmp17759 _stx16192_)))) + (__SRC__% __tmp17715 _stx16148_)))) (declare (not safe)) - (cons __tmp17758 '())))) + (cons __tmp17714 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17757 - _check16204_)))) + __tmp17713 + _check16160_)))) (declare (not safe)) - (cons 'begin __tmp17756)))) + (cons 'begin __tmp17712)))) (declare (not safe)) - (__SRC__% __tmp17755 _stx16192_)))) - (_K1621016265_ - (lambda (_rest16229_ - _init16230_ - _len16231_ - _tmp16232_) - (let ((__tmp17769 - (let ((__tmp17770 - (let ((__tmp17771 - (let ((__tmp17772 - (let ((__tmp17773 + (__SRC__% __tmp17711 _stx16148_)))) + (_K1616616221_ + (lambda (_rest16185_ + _init16186_ + _len16187_ + _tmp16188_) + (let ((__tmp17725 + (let ((__tmp17726 + (let ((__tmp17727 + (let ((__tmp17728 + (let ((__tmp17729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16231_ '())))) + (cons _len16187_ '())))) (declare (not safe)) - (cons _tmp16232_ __tmp17773)))) + (cons _tmp16188_ __tmp17729)))) (declare (not safe)) - (cons '__check-values __tmp17772)))) + (cons '__check-values __tmp17728)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17771 - _stx16192_)))) + __tmp17727 + _stx16148_)))) (declare (not safe)) - (cons __tmp17770 _check16204_))) - (__tmp17762 - (let ((__tmp17763 - (lambda (_hd16234_ _r16235_) - (let* ((_hd1623616243_ - _hd16234_) - (_E1623816247_ + (cons __tmp17726 _check16160_))) + (__tmp17718 + (let ((__tmp17719 + (lambda (_hd16190_ _r16191_) + (let* ((_hd1619216199_ + _hd16190_) + (_E1619416203_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1623616243_))) - (_K1623916253_ - (lambda (_k16250_ _id16251_) - (let ((__tmp17764 - (let ((__tmp17765 - (let ((__tmp17766 - (let ((__tmp17767 - (let ((__tmp17768 + _hd1619216199_))) + (_K1619516209_ + (lambda (_k16206_ _id16207_) + (let ((__tmp17720 + (let ((__tmp17721 + (let ((__tmp17722 + (let ((__tmp17723 + (let ((__tmp17724 (let () (declare (not safe)) - (cons _k16250_ '())))) + (cons _k16206_ '())))) (declare (not safe)) - (cons _tmp16232_ __tmp17768)))) + (cons _tmp16188_ __tmp17724)))) (declare (not safe)) - (cons '##vector-ref __tmp17767)))) + (cons '##vector-ref __tmp17723)))) (declare (not safe)) - (cons __tmp17766 '())))) + (cons __tmp17722 '())))) (declare (not safe)) - (cons _id16251_ __tmp17765)))) + (cons _id16207_ __tmp17721)))) (declare (not safe)) - (cons __tmp17764 _r16235_))))) + (cons __tmp17720 _r16191_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1623616243_)) - (let ((_hd1624016256_ + (##pair? _hd1619216199_)) + (let ((_hd1619616212_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1623616243_))) - (_tl1624116258_ - (let () (declare (not safe)) (##cdr _hd1623616243_)))) - (let* ((_id16261_ _hd1624016256_) (_k16263_ _tl1624116258_)) + (##car _hd1619216199_))) + (_tl1619716214_ + (let () (declare (not safe)) (##cdr _hd1619216199_)))) + (let* ((_id16217_ _hd1619616212_) (_k16219_ _tl1619716214_)) (declare (not safe)) - (_K1623916253_ _k16263_ _id16261_))) - (let () (declare (not safe)) (_E1623816247_))))))) + (_K1619516209_ _k16219_ _id16217_))) + (let () (declare (not safe)) (_E1619416203_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17763 - _bind16205_ - _init16230_)))) + (foldr1 __tmp17719 + _bind16161_ + _init16186_)))) (declare (not safe)) - (_lp16201_ - _rest16229_ - __tmp17769 - __tmp17762))))) + (_lp16157_ + _rest16185_ + __tmp17725 + __tmp17718))))) (if (let () (declare (not safe)) - (##pair? _rest1620616218_)) - (let ((_hd1621116268_ + (##pair? _rest1616216174_)) + (let ((_hd1616716224_ (let () (declare (not safe)) - (##car _rest1620616218_))) - (_tl1621216270_ + (##car _rest1616216174_))) + (_tl1616816226_ (let () (declare (not safe)) - (##cdr _rest1620616218_)))) + (##cdr _rest1616216174_)))) (if (let () (declare (not safe)) - (##pair? _hd1621116268_)) - (let ((_hd1621316273_ + (##pair? _hd1616716224_)) + (let ((_hd1616916229_ (let () (declare (not safe)) - (##car _hd1621116268_))) - (_tl1621416275_ + (##car _hd1616716224_))) + (_tl1617016231_ (let () (declare (not safe)) - (##cdr _hd1621116268_)))) - (let ((_tmp16278_ _hd1621316273_)) + (##cdr _hd1616716224_)))) + (let ((_tmp16234_ _hd1616916229_)) (if (let () (declare (not safe)) - (##pair? _tl1621416275_)) - (let ((_hd1621516280_ + (##pair? _tl1617016231_)) + (let ((_hd1617116236_ (let () (declare (not safe)) - (##car _tl1621416275_))) - (_tl1621616282_ + (##car _tl1617016231_))) + (_tl1617216238_ (let () (declare (not safe)) - (##cdr _tl1621416275_)))) - (let* ((_len16285_ _hd1621516280_) - (_init16287_ _tl1621616282_) - (_rest16289_ - _tl1621216270_)) + (##cdr _tl1617016231_)))) + (let* ((_len16241_ _hd1617116236_) + (_init16243_ _tl1617216238_) + (_rest16245_ + _tl1616816226_)) (declare (not safe)) - (_K1621016265_ - _rest16289_ - _init16287_ - _len16285_ - _tmp16278_))) + (_K1616616221_ + _rest16245_ + _init16243_ + _len16241_ + _tmp16234_))) (let () (declare (not safe)) - (_else1620816226_))))) + (_else1616416182_))))) (let () (declare (not safe)) - (_else1620816226_)))) + (_else1616416182_)))) (let () (declare (not safe)) - (_else1620816226_)))))))) + (_else1616416182_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx16192_ - _compile-simple16194_ - _compile-values16195_))))) + _stx16148_ + _compile-simple16150_ + _compile-values16151_))))) (define __compile-letrec-values% - (lambda (_stx15992_) - (letrec ((_compile-simple15994_ - (lambda (_hd-ids16188_ _exprs16189_ _body16190_) - (let ((__tmp17774 - (let ((__tmp17775 - (let ((__tmp17777 + (lambda (_stx15948_) + (letrec ((_compile-simple15950_ + (lambda (_hd-ids16144_ _exprs16145_ _body16146_) + (let ((__tmp17730 + (let ((__tmp17731 + (let ((__tmp17733 (map list (map __compile-head-id - _hd-ids16188_) - _exprs16189_)) - (__tmp17776 + _hd-ids16144_) + _exprs16145_)) + (__tmp17732 (let () (declare (not safe)) - (cons _body16190_ '())))) + (cons _body16146_ '())))) (declare (not safe)) - (cons __tmp17777 __tmp17776)))) + (cons __tmp17733 __tmp17732)))) (declare (not safe)) - (cons 'letrec __tmp17775)))) + (cons 'letrec __tmp17731)))) (declare (not safe)) - (__SRC__% __tmp17774 _stx15992_)))) - (_compile-values15995_ - (lambda (_hd-ids16102_ _exprs16103_ _body16104_) - (let _lp16106_ ((_rest16108_ _hd-ids16102_) - (_exprs16109_ _exprs16103_) - (_pre16110_ '()) - (_bind16111_ '()) - (_post16112_ '())) - (let* ((_rest1611316127_ _rest16108_) - (_else1611616135_ + (__SRC__% __tmp17730 _stx15948_)))) + (_compile-values15951_ + (lambda (_hd-ids16058_ _exprs16059_ _body16060_) + (let _lp16062_ ((_rest16064_ _hd-ids16058_) + (_exprs16065_ _exprs16059_) + (_pre16066_ '()) + (_bind16067_ '()) + (_post16068_ '())) + (let* ((_rest1606916083_ _rest16064_) + (_else1607216091_ (lambda () (let () (declare (not safe)) - (_compile-inner15996_ - _pre16110_ - _bind16111_ - _post16112_ - _body16104_))))) - (let ((_K1612116171_ - (lambda (_rest16168_ _id16169_) - (let ((__tmp17783 (cdr _exprs16109_)) - (__tmp17778 - (let ((__tmp17779 - (let ((__tmp17782 + (_compile-inner15952_ + _pre16066_ + _bind16067_ + _post16068_ + _body16060_))))) + (let ((_K1607716127_ + (lambda (_rest16124_ _id16125_) + (let ((__tmp17739 (cdr _exprs16065_)) + (__tmp17734 + (let ((__tmp17735 + (let ((__tmp17738 (let () (declare (not safe)) (__compile-head-id - _id16169_))) - (__tmp17780 - (let ((__tmp17781 - (car _exprs16109_))) + _id16125_))) + (__tmp17736 + (let ((__tmp17737 + (car _exprs16065_))) (declare (not safe)) - (cons __tmp17781 + (cons __tmp17737 '())))) (declare (not safe)) - (cons __tmp17782 - __tmp17780)))) + (cons __tmp17738 + __tmp17736)))) (declare (not safe)) - (cons __tmp17779 _bind16111_)))) + (cons __tmp17735 _bind16067_)))) (declare (not safe)) - (_lp16106_ - _rest16168_ - __tmp17783 - _pre16110_ - __tmp17778 - _post16112_)))) - (_K1611816153_ - (lambda (_rest16139_ _hd16140_) + (_lp16062_ + _rest16124_ + __tmp17739 + _pre16066_ + __tmp17734 + _post16068_)))) + (_K1607416109_ + (lambda (_rest16095_ _hd16096_) (if (let () (declare (not safe)) - (__AST-id? _hd16140_)) - (let ((__tmp17811 (cdr _exprs16109_)) - (__tmp17804 - (let ((__tmp17805 - (let ((__tmp17810 + (__AST-id? _hd16096_)) + (let ((__tmp17767 (cdr _exprs16065_)) + (__tmp17760 + (let ((__tmp17761 + (let ((__tmp17766 (let () (declare (not safe)) (__compile-head-id - _hd16140_))) - (__tmp17806 - (let ((__tmp17807 + _hd16096_))) + (__tmp17762 + (let ((__tmp17763 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17808 - (let ((__tmp17809 (car _exprs16109_))) + (let ((__tmp17764 + (let ((__tmp17765 (car _exprs16065_))) (declare (not safe)) - (cons __tmp17809 '())))) + (cons __tmp17765 '())))) (declare (not safe)) - (cons 'values->list __tmp17808)))) + (cons 'values->list __tmp17764)))) (declare (not safe)) - (cons __tmp17807 '())))) + (cons __tmp17763 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17810 - __tmp17806)))) + (cons __tmp17766 + __tmp17762)))) (declare (not safe)) - (cons __tmp17805 _bind16111_)))) + (cons __tmp17761 _bind16067_)))) (declare (not safe)) - (_lp16106_ - _rest16139_ - __tmp17811 - _pre16110_ - __tmp17804 - _post16112_)) + (_lp16062_ + _rest16095_ + __tmp17767 + _pre16066_ + __tmp17760 + _post16068_)) (if (let () (declare (not safe)) - (list? _hd16140_)) - (let* ((_len16142_ (length _hd16140_)) - (_tmp16144_ - (let ((__tmp17784 (gensym))) + (list? _hd16096_)) + (let* ((_len16098_ (length _hd16096_)) + (_tmp16100_ + (let ((__tmp17740 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17784)))) - (let ((__tmp17803 - (cdr _exprs16109_)) - (__tmp17796 - (let ((__tmp17797 - (lambda (_id16147_ + (__SRC__0 __tmp17740)))) + (let ((__tmp17759 + (cdr _exprs16065_)) + (__tmp17752 + (let ((__tmp17753 + (lambda (_id16103_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r16148_) - (if (let () (declare (not safe)) (__AST-e _id16147_)) - (let ((__tmp17798 - (let ((__tmp17802 + _r16104_) + (if (let () (declare (not safe)) (__AST-e _id16103_)) + (let ((__tmp17754 + (let ((__tmp17758 (let () (declare (not safe)) - (__SRC__0 _id16147_))) - (__tmp17799 - (let ((__tmp17800 - (let ((__tmp17801 + (__SRC__0 _id16103_))) + (__tmp17755 + (let ((__tmp17756 + (let ((__tmp17757 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17801)))) + (cons 'quote __tmp17757)))) (declare (not safe)) - (cons __tmp17800 '())))) + (cons __tmp17756 '())))) (declare (not safe)) - (cons __tmp17802 __tmp17799)))) + (cons __tmp17758 __tmp17755)))) (declare (not safe)) - (cons __tmp17798 _r16148_)) - _r16148_)))) + (cons __tmp17754 _r16104_)) + _r16104_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp17797 - _pre16110_ - _hd16140_))) - (__tmp17792 - (let ((__tmp17793 - (let ((__tmp17794 - (let ((__tmp17795 + (foldl1 __tmp17753 + _pre16066_ + _hd16096_))) + (__tmp17748 + (let ((__tmp17749 + (let ((__tmp17750 + (let ((__tmp17751 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16109_))) + (car _exprs16065_))) (declare (not safe)) - (cons __tmp17795 '())))) + (cons __tmp17751 '())))) (declare (not safe)) - (cons _tmp16144_ __tmp17794)))) + (cons _tmp16100_ __tmp17750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17793 - _bind16111_))) - (__tmp17785 - (let ((__tmp17786 - (let ((__tmp17787 - (let ((__tmp17788 + (cons __tmp17749 + _bind16067_))) + (__tmp17741 + (let ((__tmp17742 + (let ((__tmp17743 + (let ((__tmp17744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17790 - (lambda (_id16150_ _k16151_) + (let ((__tmp17746 + (lambda (_id16106_ _k16107_) (if (let () (declare (not safe)) - (__AST-e _id16150_)) - (let ((__tmp17791 + (__AST-e _id16106_)) + (let ((__tmp17747 (let () (declare (not safe)) - (__SRC__0 _id16150_)))) + (__SRC__0 _id16106_)))) (declare (not safe)) - (cons __tmp17791 _k16151_)) + (cons __tmp17747 _k16107_)) '#f))) - (__tmp17789 + (__tmp17745 (let () (declare (not safe)) - (iota _len16142_)))) + (iota _len16098_)))) (declare (not safe)) (filter-map2 - __tmp17790 - _hd16140_ - __tmp17789)))) + __tmp17746 + _hd16096_ + __tmp17745)))) (declare (not safe)) - (cons _len16142_ __tmp17788)))) + (cons _len16098_ __tmp17744)))) (declare (not safe)) - (cons _tmp16144_ __tmp17787)))) + (cons _tmp16100_ __tmp17743)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17786 - _post16112_)))) + (cons __tmp17742 + _post16068_)))) (declare (not safe)) - (_lp16106_ - _rest16139_ - __tmp17803 - __tmp17796 - __tmp17792 - __tmp17785))) + (_lp16062_ + _rest16095_ + __tmp17759 + __tmp17752 + __tmp17748 + __tmp17741))) (let () (declare (not safe)) (__compile-error__% - _stx15992_ - _hd16140_))))))) + _stx15948_ + _hd16096_))))))) (if (let () (declare (not safe)) - (##pair? _rest1611316127_)) - (let ((_tl1612316176_ + (##pair? _rest1606916083_)) + (let ((_tl1607916132_ (let () (declare (not safe)) - (##cdr _rest1611316127_))) - (_hd1612216174_ + (##cdr _rest1606916083_))) + (_hd1607816130_ (let () (declare (not safe)) - (##car _rest1611316127_)))) + (##car _rest1606916083_)))) (if (let () (declare (not safe)) - (##pair? _hd1612216174_)) - (let ((_tl1612516181_ + (##pair? _hd1607816130_)) + (let ((_tl1608116137_ (let () (declare (not safe)) - (##cdr _hd1612216174_))) - (_hd1612416179_ + (##cdr _hd1607816130_))) + (_hd1608016135_ (let () (declare (not safe)) - (##car _hd1612216174_)))) + (##car _hd1607816130_)))) (if (let () (declare (not safe)) - (##null? _tl1612516181_)) - (let ((_id16184_ _hd1612416179_) - (_rest16186_ _tl1612316176_)) + (##null? _tl1608116137_)) + (let ((_id16140_ _hd1608016135_) + (_rest16142_ _tl1607916132_)) (let () (declare (not safe)) - (_K1612116171_ - _rest16186_ - _id16184_))) - (let ((_hd16161_ _hd1612216174_) - (_rest16163_ _tl1612316176_)) + (_K1607716127_ + _rest16142_ + _id16140_))) + (let ((_hd16117_ _hd1607816130_) + (_rest16119_ _tl1607916132_)) (let () (declare (not safe)) - (_K1611816153_ - _rest16163_ - _hd16161_))))) - (let ((_hd16161_ _hd1612216174_) - (_rest16163_ _tl1612316176_)) + (_K1607416109_ + _rest16119_ + _hd16117_))))) + (let ((_hd16117_ _hd1607816130_) + (_rest16119_ _tl1607916132_)) (let () (declare (not safe)) - (_K1611816153_ - _rest16163_ - _hd16161_))))) + (_K1607416109_ + _rest16119_ + _hd16117_))))) (let () (declare (not safe)) - (_else1611616135_)))))))) - (_compile-inner15996_ - (lambda (_pre16097_ _bind16098_ _post16099_ _body16100_) - (if (let () (declare (not safe)) (null? _pre16097_)) + (_else1607216091_)))))))) + (_compile-inner15952_ + (lambda (_pre16053_ _bind16054_ _post16055_ _body16056_) + (if (let () (declare (not safe)) (null? _pre16053_)) (let () (declare (not safe)) - (_compile-bind15997_ - _bind16098_ - _post16099_ - _body16100_)) - (let ((__tmp17812 - (let ((__tmp17813 - (let ((__tmp17816 (reverse _pre16097_)) - (__tmp17814 - (let ((__tmp17815 + (_compile-bind15953_ + _bind16054_ + _post16055_ + _body16056_)) + (let ((__tmp17768 + (let ((__tmp17769 + (let ((__tmp17772 (reverse _pre16053_)) + (__tmp17770 + (let ((__tmp17771 (let () (declare (not safe)) - (_compile-bind15997_ - _bind16098_ - _post16099_ - _body16100_)))) + (_compile-bind15953_ + _bind16054_ + _post16055_ + _body16056_)))) (declare (not safe)) - (cons __tmp17815 '())))) + (cons __tmp17771 '())))) (declare (not safe)) - (cons __tmp17816 __tmp17814)))) + (cons __tmp17772 __tmp17770)))) (declare (not safe)) - (cons 'let __tmp17813)))) + (cons 'let __tmp17769)))) (declare (not safe)) - (__SRC__% __tmp17812 _stx15992_))))) - (_compile-bind15997_ - (lambda (_bind16093_ _post16094_ _body16095_) - (let ((__tmp17817 - (let ((__tmp17818 - (let ((__tmp17821 (reverse _bind16093_)) - (__tmp17819 - (let ((__tmp17820 + (__SRC__% __tmp17768 _stx15948_))))) + (_compile-bind15953_ + (lambda (_bind16049_ _post16050_ _body16051_) + (let ((__tmp17773 + (let ((__tmp17774 + (let ((__tmp17777 (reverse _bind16049_)) + (__tmp17775 + (let ((__tmp17776 (let () (declare (not safe)) - (_compile-post15998_ - _post16094_ - _body16095_)))) + (_compile-post15954_ + _post16050_ + _body16051_)))) (declare (not safe)) - (cons __tmp17820 '())))) + (cons __tmp17776 '())))) (declare (not safe)) - (cons __tmp17821 __tmp17819)))) + (cons __tmp17777 __tmp17775)))) (declare (not safe)) - (cons 'letrec __tmp17818)))) + (cons 'letrec __tmp17774)))) (declare (not safe)) - (__SRC__% __tmp17817 _stx15992_)))) - (_compile-post15998_ - (lambda (_post16000_ _body16001_) - (let _lp16003_ ((_rest16005_ _post16000_) - (_check16006_ '()) - (_bind16007_ '())) - (let* ((_rest1600816020_ _rest16005_) - (_else1601016028_ + (__SRC__% __tmp17773 _stx15948_)))) + (_compile-post15954_ + (lambda (_post15956_ _body15957_) + (let _lp15959_ ((_rest15961_ _post15956_) + (_check15962_ '()) + (_bind15963_ '())) + (let* ((_rest1596415976_ _rest15961_) + (_else1596615984_ (lambda () - (let ((__tmp17822 - (let ((__tmp17823 - (let ((__tmp17824 - (let ((__tmp17825 + (let ((__tmp17778 + (let ((__tmp17779 + (let ((__tmp17780 + (let ((__tmp17781 (let () (declare (not safe)) - (cons _body16001_ + (cons _body15957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp17825 _bind16007_)))) + (foldr1 cons __tmp17781 _bind15963_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17824 - _check16006_)))) + __tmp17780 + _check15962_)))) (declare (not safe)) - (cons 'begin __tmp17823)))) + (cons 'begin __tmp17779)))) (declare (not safe)) - (__SRC__% __tmp17822 _stx15992_)))) - (_K1601216067_ - (lambda (_rest16031_ - _init16032_ - _len16033_ - _tmp16034_) - (let ((__tmp17834 - (let ((__tmp17835 - (let ((__tmp17836 - (let ((__tmp17837 - (let ((__tmp17838 + (__SRC__% __tmp17778 _stx15948_)))) + (_K1596816023_ + (lambda (_rest15987_ + _init15988_ + _len15989_ + _tmp15990_) + (let ((__tmp17790 + (let ((__tmp17791 + (let ((__tmp17792 + (let ((__tmp17793 + (let ((__tmp17794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16033_ '())))) + (cons _len15989_ '())))) (declare (not safe)) - (cons _tmp16034_ __tmp17838)))) + (cons _tmp15990_ __tmp17794)))) (declare (not safe)) - (cons '__check-values __tmp17837)))) + (cons '__check-values __tmp17793)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17836 - _stx15992_)))) + __tmp17792 + _stx15948_)))) (declare (not safe)) - (cons __tmp17835 _check16006_))) - (__tmp17826 - (let ((__tmp17827 - (lambda (_hd16036_ _r16037_) - (let* ((_hd1603816045_ - _hd16036_) - (_E1604016049_ + (cons __tmp17791 _check15962_))) + (__tmp17782 + (let ((__tmp17783 + (lambda (_hd15992_ _r15993_) + (let* ((_hd1599416001_ + _hd15992_) + (_E1599616005_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1603816045_))) - (_K1604116055_ - (lambda (_k16052_ _id16053_) - (let ((__tmp17828 - (let ((__tmp17829 - (let ((__tmp17830 - (let ((__tmp17831 - (let ((__tmp17832 - (let ((__tmp17833 + _hd1599416001_))) + (_K1599716011_ + (lambda (_k16008_ _id16009_) + (let ((__tmp17784 + (let ((__tmp17785 + (let ((__tmp17786 + (let ((__tmp17787 + (let ((__tmp17788 + (let ((__tmp17789 (let () (declare (not safe)) - (cons _k16052_ + (cons _k16008_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp16034_ __tmp17833)))) + (cons _tmp15990_ __tmp17789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp17832)))) + __tmp17788)))) (declare (not safe)) - (cons __tmp17831 '())))) + (cons __tmp17787 '())))) (declare (not safe)) - (cons _id16053_ __tmp17830)))) + (cons _id16009_ __tmp17786)))) (declare (not safe)) - (cons 'set! __tmp17829)))) + (cons 'set! __tmp17785)))) (declare (not safe)) - (cons __tmp17828 _r16037_))))) + (cons __tmp17784 _r15993_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1603816045_)) - (let ((_hd1604216058_ + (##pair? _hd1599416001_)) + (let ((_hd1599816014_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1603816045_))) - (_tl1604316060_ - (let () (declare (not safe)) (##cdr _hd1603816045_)))) - (let* ((_id16063_ _hd1604216058_) (_k16065_ _tl1604316060_)) + (##car _hd1599416001_))) + (_tl1599916016_ + (let () (declare (not safe)) (##cdr _hd1599416001_)))) + (let* ((_id16019_ _hd1599816014_) (_k16021_ _tl1599916016_)) (declare (not safe)) - (_K1604116055_ _k16065_ _id16063_))) - (let () (declare (not safe)) (_E1604016049_))))))) + (_K1599716011_ _k16021_ _id16019_))) + (let () (declare (not safe)) (_E1599616005_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17827 - _bind16007_ - _init16032_)))) + (foldr1 __tmp17783 + _bind15963_ + _init15988_)))) (declare (not safe)) - (_lp16003_ - _rest16031_ - __tmp17834 - __tmp17826))))) + (_lp15959_ + _rest15987_ + __tmp17790 + __tmp17782))))) (if (let () (declare (not safe)) - (##pair? _rest1600816020_)) - (let ((_hd1601316070_ + (##pair? _rest1596415976_)) + (let ((_hd1596916026_ (let () (declare (not safe)) - (##car _rest1600816020_))) - (_tl1601416072_ + (##car _rest1596415976_))) + (_tl1597016028_ (let () (declare (not safe)) - (##cdr _rest1600816020_)))) + (##cdr _rest1596415976_)))) (if (let () (declare (not safe)) - (##pair? _hd1601316070_)) - (let ((_hd1601516075_ + (##pair? _hd1596916026_)) + (let ((_hd1597116031_ (let () (declare (not safe)) - (##car _hd1601316070_))) - (_tl1601616077_ + (##car _hd1596916026_))) + (_tl1597216033_ (let () (declare (not safe)) - (##cdr _hd1601316070_)))) - (let ((_tmp16080_ _hd1601516075_)) + (##cdr _hd1596916026_)))) + (let ((_tmp16036_ _hd1597116031_)) (if (let () (declare (not safe)) - (##pair? _tl1601616077_)) - (let ((_hd1601716082_ + (##pair? _tl1597216033_)) + (let ((_hd1597316038_ (let () (declare (not safe)) - (##car _tl1601616077_))) - (_tl1601816084_ + (##car _tl1597216033_))) + (_tl1597416040_ (let () (declare (not safe)) - (##cdr _tl1601616077_)))) - (let* ((_len16087_ _hd1601716082_) - (_init16089_ _tl1601816084_) - (_rest16091_ - _tl1601416072_)) + (##cdr _tl1597216033_)))) + (let* ((_len16043_ _hd1597316038_) + (_init16045_ _tl1597416040_) + (_rest16047_ + _tl1597016028_)) (declare (not safe)) - (_K1601216067_ - _rest16091_ - _init16089_ - _len16087_ - _tmp16080_))) + (_K1596816023_ + _rest16047_ + _init16045_ + _len16043_ + _tmp16036_))) (let () (declare (not safe)) - (_else1601016028_))))) + (_else1596615984_))))) (let () (declare (not safe)) - (_else1601016028_)))) + (_else1596615984_)))) (let () (declare (not safe)) - (_else1601016028_)))))))) + (_else1596615984_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx15992_ - _compile-simple15994_ - _compile-values15995_))))) + _stx15948_ + _compile-simple15950_ + _compile-values15951_))))) (define __compile-letrec*-values% - (lambda (_stx15747_) - (letrec ((_compile-simple15749_ - (lambda (_hd-ids15988_ _exprs15989_ _body15990_) - (let ((__tmp17839 - (let ((__tmp17840 - (let ((__tmp17842 + (lambda (_stx15703_) + (letrec ((_compile-simple15705_ + (lambda (_hd-ids15944_ _exprs15945_ _body15946_) + (let ((__tmp17795 + (let ((__tmp17796 + (let ((__tmp17798 (map list (map __compile-head-id - _hd-ids15988_) - _exprs15989_)) - (__tmp17841 + _hd-ids15944_) + _exprs15945_)) + (__tmp17797 (let () (declare (not safe)) - (cons _body15990_ '())))) + (cons _body15946_ '())))) (declare (not safe)) - (cons __tmp17842 __tmp17841)))) + (cons __tmp17798 __tmp17797)))) (declare (not safe)) - (cons 'letrec* __tmp17840)))) + (cons 'letrec* __tmp17796)))) (declare (not safe)) - (__SRC__% __tmp17839 _stx15747_)))) - (_compile-values15750_ - (lambda (_hd-ids15899_ _exprs15900_ _body15901_) - (let _lp15903_ ((_rest15905_ _hd-ids15899_) - (_exprs15906_ _exprs15900_) - (_bind15907_ '()) - (_post15908_ '())) - (let* ((_rest1590915923_ _rest15905_) - (_else1591215931_ + (__SRC__% __tmp17795 _stx15703_)))) + (_compile-values15706_ + (lambda (_hd-ids15855_ _exprs15856_ _body15857_) + (let _lp15859_ ((_rest15861_ _hd-ids15855_) + (_exprs15862_ _exprs15856_) + (_bind15863_ '()) + (_post15864_ '())) + (let* ((_rest1586515879_ _rest15861_) + (_else1586815887_ (lambda () (let () (declare (not safe)) - (_compile-bind15751_ - _bind15907_ - _post15908_ - _body15901_))))) - (let ((_K1591715971_ - (lambda (_rest15966_ _hd15967_) + (_compile-bind15707_ + _bind15863_ + _post15864_ + _body15857_))))) + (let ((_K1587315927_ + (lambda (_rest15922_ _hd15923_) (if (let () (declare (not safe)) - (__AST-id? _hd15967_)) - (let ((_id15969_ + (__AST-id? _hd15923_)) + (let ((_id15925_ (let () (declare (not safe)) - (__SRC__0 _hd15967_)))) - (let ((__tmp17857 (cdr _exprs15906_)) - (__tmp17852 - (let ((__tmp17853 - (let ((__tmp17854 - (let ((__tmp17855 + (__SRC__0 _hd15923_)))) + (let ((__tmp17813 (cdr _exprs15862_)) + (__tmp17808 + (let ((__tmp17809 + (let ((__tmp17810 + (let ((__tmp17811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17856 + (let ((__tmp17812 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17856)))) + (cons 'quote __tmp17812)))) (declare (not safe)) - (cons __tmp17855 '())))) + (cons __tmp17811 '())))) (declare (not safe)) - (cons _id15969_ __tmp17854)))) + (cons _id15925_ __tmp17810)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17853 _bind15907_))) - (__tmp17848 - (let ((__tmp17849 - (let ((__tmp17850 - (let ((__tmp17851 + (cons __tmp17809 _bind15863_))) + (__tmp17804 + (let ((__tmp17805 + (let ((__tmp17806 + (let ((__tmp17807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15906_))) + (car _exprs15862_))) (declare (not safe)) - (cons __tmp17851 '())))) + (cons __tmp17807 '())))) (declare (not safe)) - (cons _id15969_ __tmp17850)))) + (cons _id15925_ __tmp17806)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17849 - _post15908_)))) + (cons __tmp17805 + _post15864_)))) (declare (not safe)) - (_lp15903_ - _rest15966_ - __tmp17857 - __tmp17852 - __tmp17848))) - (let ((__tmp17847 (cdr _exprs15906_)) - (__tmp17843 - (let ((__tmp17844 - (let ((__tmp17845 - (let ((__tmp17846 + (_lp15859_ + _rest15922_ + __tmp17813 + __tmp17808 + __tmp17804))) + (let ((__tmp17803 (cdr _exprs15862_)) + (__tmp17799 + (let ((__tmp17800 + (let ((__tmp17801 + (let ((__tmp17802 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15906_))) + (car _exprs15862_))) (declare (not safe)) - (cons __tmp17846 '())))) + (cons __tmp17802 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp17845)))) + (cons '#f __tmp17801)))) (declare (not safe)) - (cons __tmp17844 _post15908_)))) + (cons __tmp17800 _post15864_)))) (declare (not safe)) - (_lp15903_ - _rest15966_ - __tmp17847 - _bind15907_ - __tmp17843))))) - (_K1591415951_ - (lambda (_rest15935_ _hd15936_) + (_lp15859_ + _rest15922_ + __tmp17803 + _bind15863_ + __tmp17799))))) + (_K1587015907_ + (lambda (_rest15891_ _hd15892_) (if (let () (declare (not safe)) - (__AST-id? _hd15936_)) - (let ((_id15938_ + (__AST-id? _hd15892_)) + (let ((_id15894_ (let () (declare (not safe)) - (__SRC__0 _hd15936_)))) - (let ((__tmp17893 (cdr _exprs15906_)) - (__tmp17888 - (let ((__tmp17889 - (let ((__tmp17890 - (let ((__tmp17891 + (__SRC__0 _hd15892_)))) + (let ((__tmp17849 (cdr _exprs15862_)) + (__tmp17844 + (let ((__tmp17845 + (let ((__tmp17846 + (let ((__tmp17847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17892 + (let ((__tmp17848 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17892)))) + (cons 'quote __tmp17848)))) (declare (not safe)) - (cons __tmp17891 '())))) + (cons __tmp17847 '())))) (declare (not safe)) - (cons _id15938_ __tmp17890)))) + (cons _id15894_ __tmp17846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17889 _bind15907_))) - (__tmp17882 - (let ((__tmp17883 - (let ((__tmp17884 - (let ((__tmp17885 + (cons __tmp17845 _bind15863_))) + (__tmp17838 + (let ((__tmp17839 + (let ((__tmp17840 + (let ((__tmp17841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17886 - (let ((__tmp17887 (car _exprs15906_))) + (let ((__tmp17842 + (let ((__tmp17843 (car _exprs15862_))) (declare (not safe)) - (cons __tmp17887 '())))) + (cons __tmp17843 '())))) (declare (not safe)) - (cons 'values->list __tmp17886)))) + (cons 'values->list __tmp17842)))) (declare (not safe)) - (cons __tmp17885 '())))) + (cons __tmp17841 '())))) (declare (not safe)) - (cons _id15938_ __tmp17884)))) + (cons _id15894_ __tmp17840)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17883 - _post15908_)))) + (cons __tmp17839 + _post15864_)))) (declare (not safe)) - (_lp15903_ - _rest15935_ - __tmp17893 - __tmp17888 - __tmp17882))) - (if (let ((__tmp17881 + (_lp15859_ + _rest15891_ + __tmp17849 + __tmp17844 + __tmp17838))) + (if (let ((__tmp17837 (let () (declare (not safe)) - (__AST-e _hd15936_)))) + (__AST-e _hd15892_)))) (declare (not safe)) - (not __tmp17881)) - (let ((__tmp17880 (cdr _exprs15906_)) - (__tmp17876 - (let ((__tmp17877 - (let ((__tmp17878 - (let ((__tmp17879 + (not __tmp17837)) + (let ((__tmp17836 (cdr _exprs15862_)) + (__tmp17832 + (let ((__tmp17833 + (let ((__tmp17834 + (let ((__tmp17835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15906_))) + (car _exprs15862_))) (declare (not safe)) - (cons __tmp17879 '())))) + (cons __tmp17835 '())))) (declare (not safe)) - (cons '#f __tmp17878)))) + (cons '#f __tmp17834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17877 - _post15908_)))) + (cons __tmp17833 + _post15864_)))) (declare (not safe)) - (_lp15903_ - _rest15935_ - __tmp17880 - _bind15907_ - __tmp17876)) + (_lp15859_ + _rest15891_ + __tmp17836 + _bind15863_ + __tmp17832)) (if (let () (declare (not safe)) - (list? _hd15936_)) - (let* ((_len15940_ - (length _hd15936_)) - (_tmp15942_ - (let ((__tmp17858 + (list? _hd15892_)) + (let* ((_len15896_ + (length _hd15892_)) + (_tmp15898_ + (let ((__tmp17814 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17858)))) - (let ((__tmp17875 - (cdr _exprs15906_)) - (__tmp17868 - (let ((__tmp17869 - (lambda (_id15945_ + (__SRC__0 __tmp17814)))) + (let ((__tmp17831 + (cdr _exprs15862_)) + (__tmp17824 + (let ((__tmp17825 + (lambda (_id15901_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r15946_) - (if (let () (declare (not safe)) (__AST-e _id15945_)) - (let ((__tmp17870 - (let ((__tmp17874 + _r15902_) + (if (let () (declare (not safe)) (__AST-e _id15901_)) + (let ((__tmp17826 + (let ((__tmp17830 (let () (declare (not safe)) - (__SRC__0 _id15945_))) - (__tmp17871 - (let ((__tmp17872 - (let ((__tmp17873 + (__SRC__0 _id15901_))) + (__tmp17827 + (let ((__tmp17828 + (let ((__tmp17829 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17873)))) + (cons 'quote __tmp17829)))) (declare (not safe)) - (cons __tmp17872 '())))) + (cons __tmp17828 '())))) (declare (not safe)) - (cons __tmp17874 __tmp17871)))) + (cons __tmp17830 __tmp17827)))) (declare (not safe)) - (cons __tmp17870 _r15946_)) - _r15946_)))) + (cons __tmp17826 _r15902_)) + _r15902_)))) (declare (not safe)) - (foldl1 __tmp17869 _bind15907_ _hd15936_))) + (foldl1 __tmp17825 _bind15863_ _hd15892_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17859 - (let ((__tmp17860 - (let ((__tmp17861 + (__tmp17815 + (let ((__tmp17816 + (let ((__tmp17817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17867 (car _exprs15906_)) - (__tmp17862 - (let ((__tmp17863 - (let ((__tmp17865 - (lambda (_id15948_ _k15949_) + (let ((__tmp17823 (car _exprs15862_)) + (__tmp17818 + (let ((__tmp17819 + (let ((__tmp17821 + (lambda (_id15904_ _k15905_) (if (let () (declare (not safe)) - (__AST-e _id15948_)) - (let ((__tmp17866 + (__AST-e _id15904_)) + (let ((__tmp17822 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id15948_)))) + (__SRC__0 _id15904_)))) (declare (not safe)) - (cons __tmp17866 _k15949_)) + (cons __tmp17822 _k15905_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17864 + (__tmp17820 (let () (declare (not safe)) - (iota _len15940_)))) + (iota _len15896_)))) (declare (not safe)) (filter-map2 - __tmp17865 - _hd15936_ - __tmp17864)))) + __tmp17821 + _hd15892_ + __tmp17820)))) (declare (not safe)) - (cons _len15940_ __tmp17863)))) + (cons _len15896_ __tmp17819)))) (declare (not safe)) - (cons __tmp17867 __tmp17862)))) + (cons __tmp17823 __tmp17818)))) (declare (not safe)) - (cons _tmp15942_ __tmp17861)))) + (cons _tmp15898_ __tmp17817)))) (declare (not safe)) - (cons __tmp17860 _post15908_)))) + (cons __tmp17816 _post15864_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp15903_ - _rest15935_ - __tmp17875 - __tmp17868 - __tmp17859))) + (_lp15859_ + _rest15891_ + __tmp17831 + __tmp17824 + __tmp17815))) (let () (declare (not safe)) (__compile-error__% - _stx15747_ - _hd15936_)))))))) + _stx15703_ + _hd15892_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1590915923_)) - (let ((_tl1591915976_ + (##pair? _rest1586515879_)) + (let ((_tl1587515932_ (let () (declare (not safe)) - (##cdr _rest1590915923_))) - (_hd1591815974_ + (##cdr _rest1586515879_))) + (_hd1587415930_ (let () (declare (not safe)) - (##car _rest1590915923_)))) + (##car _rest1586515879_)))) (if (let () (declare (not safe)) - (##pair? _hd1591815974_)) - (let ((_tl1592115981_ + (##pair? _hd1587415930_)) + (let ((_tl1587715937_ (let () (declare (not safe)) - (##cdr _hd1591815974_))) - (_hd1592015979_ + (##cdr _hd1587415930_))) + (_hd1587615935_ (let () (declare (not safe)) - (##car _hd1591815974_)))) + (##car _hd1587415930_)))) (if (let () (declare (not safe)) - (##null? _tl1592115981_)) - (let ((_hd15984_ _hd1592015979_) - (_rest15986_ _tl1591915976_)) + (##null? _tl1587715937_)) + (let ((_hd15940_ _hd1587615935_) + (_rest15942_ _tl1587515932_)) (let () (declare (not safe)) - (_K1591715971_ - _rest15986_ - _hd15984_))) - (let ((_hd15959_ _hd1591815974_) - (_rest15961_ _tl1591915976_)) + (_K1587315927_ + _rest15942_ + _hd15940_))) + (let ((_hd15915_ _hd1587415930_) + (_rest15917_ _tl1587515932_)) (let () (declare (not safe)) - (_K1591415951_ - _rest15961_ - _hd15959_))))) - (let ((_hd15959_ _hd1591815974_) - (_rest15961_ _tl1591915976_)) + (_K1587015907_ + _rest15917_ + _hd15915_))))) + (let ((_hd15915_ _hd1587415930_) + (_rest15917_ _tl1587515932_)) (let () (declare (not safe)) - (_K1591415951_ - _rest15961_ - _hd15959_))))) + (_K1587015907_ + _rest15917_ + _hd15915_))))) (let () (declare (not safe)) - (_else1591215931_)))))))) - (_compile-bind15751_ - (lambda (_bind15895_ _post15896_ _body15897_) - (let ((__tmp17894 - (let ((__tmp17895 - (let ((__tmp17898 (reverse _bind15895_)) - (__tmp17896 - (let ((__tmp17897 + (_else1586815887_)))))))) + (_compile-bind15707_ + (lambda (_bind15851_ _post15852_ _body15853_) + (let ((__tmp17850 + (let ((__tmp17851 + (let ((__tmp17854 (reverse _bind15851_)) + (__tmp17852 + (let ((__tmp17853 (let () (declare (not safe)) - (_compile-post15752_ - _post15896_ - _body15897_)))) + (_compile-post15708_ + _post15852_ + _body15853_)))) (declare (not safe)) - (cons __tmp17897 '())))) + (cons __tmp17853 '())))) (declare (not safe)) - (cons __tmp17898 __tmp17896)))) + (cons __tmp17854 __tmp17852)))) (declare (not safe)) - (cons 'let __tmp17895)))) + (cons 'let __tmp17851)))) (declare (not safe)) - (__SRC__% __tmp17894 _stx15747_)))) - (_compile-post15752_ - (lambda (_post15754_ _body15755_) - (let ((__tmp17899 - (let ((__tmp17900 - (let ((__tmp17901 - (let ((__tmp17903 - (lambda (_hd15757_ _r15758_) - (let* ((_hd1575915782_ - _hd15757_) - (_E1576315786_ + (__SRC__% __tmp17850 _stx15703_)))) + (_compile-post15708_ + (lambda (_post15710_ _body15711_) + (let ((__tmp17855 + (let ((__tmp17856 + (let ((__tmp17857 + (let ((__tmp17859 + (lambda (_hd15713_ _r15714_) + (let* ((_hd1571515738_ + _hd15713_) + (_E1571915742_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1575915782_)))) + _hd1571515738_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K1577615880_ - (lambda (_expr15878_) + (let ((_K1573215836_ + (lambda (_expr15834_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr15878_ _r15758_)))) - (_K1577115858_ - (lambda (_expr15855_ _id15856_) - (let ((__tmp17904 - (let ((__tmp17905 - (let ((__tmp17906 - (let ((__tmp17907 + (cons _expr15834_ _r15714_)))) + (_K1572715814_ + (lambda (_expr15811_ _id15812_) + (let ((__tmp17860 + (let ((__tmp17861 + (let ((__tmp17862 + (let ((__tmp17863 (let () (declare (not safe)) - (cons _expr15855_ '())))) + (cons _expr15811_ '())))) (declare (not safe)) - (cons _id15856_ __tmp17907)))) + (cons _id15812_ __tmp17863)))) (declare (not safe)) - (cons 'set! __tmp17906)))) + (cons 'set! __tmp17862)))) (declare (not safe)) - (__SRC__% __tmp17905 _stx15747_)))) + (__SRC__% __tmp17861 _stx15703_)))) (declare (not safe)) - (cons __tmp17904 _r15758_)))) - (_K1576415825_ - (lambda (_init15790_ _len15791_ _expr15792_ _tmp15793_) - (let ((__tmp17908 - (let ((__tmp17909 - (let ((__tmp17910 - (let ((__tmp17924 - (let ((__tmp17925 - (let ((__tmp17926 + (cons __tmp17860 _r15714_)))) + (_K1572015781_ + (lambda (_init15746_ _len15747_ _expr15748_ _tmp15749_) + (let ((__tmp17864 + (let ((__tmp17865 + (let ((__tmp17866 + (let ((__tmp17880 + (let ((__tmp17881 + (let ((__tmp17882 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr15792_ '())))) + (cons _expr15748_ '())))) (declare (not safe)) - (cons _tmp15793_ __tmp17926)))) + (cons _tmp15749_ __tmp17882)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17925 '()))) - (__tmp17911 - (let ((__tmp17920 - (let ((__tmp17921 - (let ((__tmp17922 + (cons __tmp17881 '()))) + (__tmp17867 + (let ((__tmp17876 + (let ((__tmp17877 + (let ((__tmp17878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17923 + (let ((__tmp17879 (let () (declare (not safe)) - (cons _len15791_ '())))) + (cons _len15747_ '())))) (declare (not safe)) - (cons _tmp15793_ __tmp17923)))) + (cons _tmp15749_ __tmp17879)))) (declare (not safe)) - (cons '__check-values __tmp17922)))) + (cons '__check-values __tmp17878)))) (declare (not safe)) - (__SRC__% __tmp17921 _stx15747_))) - (__tmp17912 - (let ((__tmp17913 - (map (lambda (_hd15795_) - (let* ((_hd1579615803_ _hd15795_) - (_E1579815807_ + (__SRC__% __tmp17877 _stx15703_))) + (__tmp17868 + (let ((__tmp17869 + (map (lambda (_hd15751_) + (let* ((_hd1575215759_ _hd15751_) + (_E1575415763_ (lambda () (error '"No clause matching" - _hd1579615803_))) - (_K1579915813_ - (lambda (_k15810_ _id15811_) - (let ((__tmp17914 - (let ((__tmp17915 - (let ((__tmp17916 - (let ((__tmp17917 + _hd1575215759_))) + (_K1575515769_ + (lambda (_k15766_ _id15767_) + (let ((__tmp17870 + (let ((__tmp17871 + (let ((__tmp17872 + (let ((__tmp17873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17918 - (let ((__tmp17919 + (let ((__tmp17874 + (let ((__tmp17875 (let () (declare (not safe)) - (cons _k15810_ '())))) + (cons _k15766_ '())))) (declare (not safe)) - (cons _tmp15793_ __tmp17919)))) + (cons _tmp15749_ __tmp17875)))) (declare (not safe)) - (cons '##vector-ref __tmp17918)))) + (cons '##vector-ref __tmp17874)))) (declare (not safe)) - (cons __tmp17917 '())))) + (cons __tmp17873 '())))) (declare (not safe)) - (cons _id15811_ __tmp17916)))) + (cons _id15767_ __tmp17872)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp17915)))) + (cons 'set! __tmp17871)))) (declare (not safe)) - (__SRC__% __tmp17914 _stx15747_))))) + (__SRC__% __tmp17870 _stx15703_))))) (if (let () (declare (not safe)) - (##pair? _hd1579615803_)) - (let ((_hd1580015816_ + (##pair? _hd1575215759_)) + (let ((_hd1575615772_ (let () (declare (not safe)) - (##car _hd1579615803_))) - (_tl1580115818_ + (##car _hd1575215759_))) + (_tl1575715774_ (let () (declare (not safe)) - (##cdr _hd1579615803_)))) - (let* ((_id15821_ _hd1580015816_) - (_k15823_ _tl1580115818_)) + (##cdr _hd1575215759_)))) + (let* ((_id15777_ _hd1575615772_) + (_k15779_ _tl1575715774_)) (declare (not safe)) - (_K1579915813_ _k15823_ _id15821_))) + (_K1575515769_ _k15779_ _id15777_))) (let () (declare (not safe)) - (_E1579815807_))))) - _init15790_))) + (_E1575415763_))))) + _init15746_))) (declare (not safe)) - (foldr1 cons '() __tmp17913)))) + (foldr1 cons '() __tmp17869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17920 - __tmp17912)))) + (cons __tmp17876 + __tmp17868)))) (declare (not safe)) - (cons __tmp17924 __tmp17911)))) + (cons __tmp17880 __tmp17867)))) (declare (not safe)) - (cons 'let __tmp17910)))) + (cons 'let __tmp17866)))) (declare (not safe)) - (__SRC__% __tmp17909 _stx15747_)))) + (__SRC__% __tmp17865 _stx15703_)))) (declare (not safe)) - (cons __tmp17908 _r15758_))))) - (if (let () (declare (not safe)) (##pair? _hd1575915782_)) - (let ((_tl1577815885_ - (let () (declare (not safe)) (##cdr _hd1575915782_))) - (_hd1577715883_ - (let () (declare (not safe)) (##car _hd1575915782_)))) + (cons __tmp17864 _r15714_))))) + (if (let () (declare (not safe)) (##pair? _hd1571515738_)) + (let ((_tl1573415841_ + (let () (declare (not safe)) (##cdr _hd1571515738_))) + (_hd1573315839_ + (let () (declare (not safe)) (##car _hd1571515738_)))) (if (let () (declare (not safe)) - (##eq? _hd1577715883_ '#f)) + (##eq? _hd1573315839_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl1577815885_)) - (let ((_tl1578015890_ + (##pair? _tl1573415841_)) + (let ((_tl1573615846_ (let () (declare (not safe)) - (##cdr _tl1577815885_))) - (_hd1577915888_ + (##cdr _tl1573415841_))) + (_hd1573515844_ (let () (declare (not safe)) - (##car _tl1577815885_)))) + (##car _tl1573415841_)))) (if (let () (declare (not safe)) - (##null? _tl1578015890_)) - (let ((_expr15893_ _hd1577915888_)) + (##null? _tl1573615846_)) + (let ((_expr15849_ _hd1573515844_)) (declare (not safe)) - (_K1577615880_ _expr15893_)) + (_K1573215836_ _expr15849_)) (if (let () (declare (not safe)) - (##pair? _tl1578015890_)) - (let ((_tl1577015844_ + (##pair? _tl1573615846_)) + (let ((_tl1572615800_ (let () (declare (not safe)) - (##cdr _tl1578015890_))) - (_hd1576915842_ + (##cdr _tl1573615846_))) + (_hd1572515798_ (let () (declare (not safe)) - (##car _tl1578015890_)))) - (let ((_tmp15833_ _hd1577715883_) - (_expr15840_ _hd1577915888_) - (_len15847_ _hd1576915842_) - (_init15849_ _tl1577015844_)) + (##car _tl1573615846_)))) + (let ((_tmp15789_ _hd1573315839_) + (_expr15796_ _hd1573515844_) + (_len15803_ _hd1572515798_) + (_init15805_ _tl1572615800_)) (let () (declare (not safe)) - (_K1576415825_ - _init15849_ - _len15847_ - _expr15840_ - _tmp15833_)))) + (_K1572015781_ + _init15805_ + _len15803_ + _expr15796_ + _tmp15789_)))) (let () (declare (not safe)) - (_E1576315786_))))) - (let () (declare (not safe)) (_E1576315786_))) + (_E1571915742_))))) + (let () (declare (not safe)) (_E1571915742_))) (if (let () (declare (not safe)) - (##pair? _tl1577815885_)) - (let ((_tl1577515870_ + (##pair? _tl1573415841_)) + (let ((_tl1573115826_ (let () (declare (not safe)) - (##cdr _tl1577815885_))) - (_hd1577415868_ + (##cdr _tl1573415841_))) + (_hd1573015824_ (let () (declare (not safe)) - (##car _tl1577815885_)))) + (##car _tl1573415841_)))) (if (let () (declare (not safe)) - (##null? _tl1577515870_)) - (let ((_id15866_ _hd1577715883_) - (_expr15873_ _hd1577415868_)) + (##null? _tl1573115826_)) + (let ((_id15822_ _hd1573315839_) + (_expr15829_ _hd1573015824_)) (let () (declare (not safe)) - (_K1577115858_ _expr15873_ _id15866_))) + (_K1572715814_ _expr15829_ _id15822_))) (if (let () (declare (not safe)) - (##pair? _tl1577515870_)) - (let ((_tl1577015844_ + (##pair? _tl1573115826_)) + (let ((_tl1572615800_ (let () (declare (not safe)) - (##cdr _tl1577515870_))) - (_hd1576915842_ + (##cdr _tl1573115826_))) + (_hd1572515798_ (let () (declare (not safe)) - (##car _tl1577515870_)))) - (let ((_tmp15833_ _hd1577715883_) - (_expr15840_ _hd1577415868_) - (_len15847_ _hd1576915842_) - (_init15849_ _tl1577015844_)) + (##car _tl1573115826_)))) + (let ((_tmp15789_ _hd1573315839_) + (_expr15796_ _hd1573015824_) + (_len15803_ _hd1572515798_) + (_init15805_ _tl1572615800_)) (let () (declare (not safe)) - (_K1576415825_ - _init15849_ - _len15847_ - _expr15840_ - _tmp15833_)))) + (_K1572015781_ + _init15805_ + _len15803_ + _expr15796_ + _tmp15789_)))) (let () (declare (not safe)) - (_E1576315786_))))) - (let () (declare (not safe)) (_E1576315786_))))) - (let () (declare (not safe)) (_E1576315786_))))))) + (_E1571915742_))))) + (let () (declare (not safe)) (_E1571915742_))))) + (let () (declare (not safe)) (_E1571915742_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17902 (list _body15755_))) + (__tmp17858 (list _body15711_))) (declare (not safe)) - (foldl1 __tmp17903 - __tmp17902 - _post15754_)))) + (foldl1 __tmp17859 + __tmp17858 + _post15710_)))) (declare (not safe)) - (foldr1 cons '() __tmp17901)))) + (foldr1 cons '() __tmp17857)))) (declare (not safe)) - (cons 'begin __tmp17900)))) + (cons 'begin __tmp17856)))) (declare (not safe)) - (__SRC__% __tmp17899 _stx15747_))))) + (__SRC__% __tmp17855 _stx15703_))))) (let () (declare (not safe)) (__compile-let-form - _stx15747_ - _compile-simple15749_ - _compile-values15750_))))) + _stx15703_ + _compile-simple15705_ + _compile-values15706_))))) (define __compile-call% - (lambda (_stx15707_) - (let* ((_$e15709_ _stx15707_) - (_$E1571115720_ + (lambda (_stx15663_) + (let* ((_$e15665_ _stx15663_) + (_$E1566715676_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15709_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15709_)) - (let* ((_$tgt1571215723_ - (let () (declare (not safe)) (__AST-e _$e15709_))) - (_$hd1571315726_ - (let () (declare (not safe)) (##car _$tgt1571215723_))) - (_$tl1571415729_ - (let () (declare (not safe)) (##cdr _$tgt1571215723_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1571415729_)) - (let* ((_$tgt1571515733_ + _$e15665_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15665_)) + (let* ((_$tgt1566815679_ + (let () (declare (not safe)) (__AST-e _$e15665_))) + (_$hd1566915682_ + (let () (declare (not safe)) (##car _$tgt1566815679_))) + (_$tl1567015685_ + (let () (declare (not safe)) (##cdr _$tgt1566815679_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1567015685_)) + (let* ((_$tgt1567115689_ (let () (declare (not safe)) - (__AST-e _$tl1571415729_))) - (_$hd1571615736_ + (__AST-e _$tl1567015685_))) + (_$hd1567215692_ (let () (declare (not safe)) - (##car _$tgt1571515733_))) - (_$tl1571715739_ + (##car _$tgt1567115689_))) + (_$tl1567315695_ (let () (declare (not safe)) - (##cdr _$tgt1571515733_)))) - (let* ((_rator15743_ _$hd1571615736_) - (_rands15745_ _$tl1571715739_) - (__tmp17927 - (let ((__tmp17929 + (##cdr _$tgt1567115689_)))) + (let* ((_rator15699_ _$hd1567215692_) + (_rands15701_ _$tl1567315695_) + (__tmp17883 + (let ((__tmp17885 (let () (declare (not safe)) - (__compile _rator15743_))) - (__tmp17928 (map __compile _rands15745_))) + (__compile _rator15699_))) + (__tmp17884 (map __compile _rands15701_))) (declare (not safe)) - (cons __tmp17929 __tmp17928)))) + (cons __tmp17885 __tmp17884)))) (declare (not safe)) - (__SRC__% __tmp17927 _stx15707_))) - (let () (declare (not safe)) (_$E1571115720_)))) - (let () (declare (not safe)) (_$E1571115720_)))))) + (__SRC__% __tmp17883 _stx15663_))) + (let () (declare (not safe)) (_$E1566715676_)))) + (let () (declare (not safe)) (_$E1566715676_)))))) (define __compile-ref% - (lambda (_stx15669_) - (let* ((_$e15671_ _stx15669_) - (_$E1567315682_ + (lambda (_stx15625_) + (let* ((_$e15627_ _stx15625_) + (_$E1562915638_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15671_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15671_)) - (let* ((_$tgt1567415685_ - (let () (declare (not safe)) (__AST-e _$e15671_))) - (_$hd1567515688_ - (let () (declare (not safe)) (##car _$tgt1567415685_))) - (_$tl1567615691_ - (let () (declare (not safe)) (##cdr _$tgt1567415685_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1567615691_)) - (let* ((_$tgt1567715695_ + _$e15627_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15627_)) + (let* ((_$tgt1563015641_ + (let () (declare (not safe)) (__AST-e _$e15627_))) + (_$hd1563115644_ + (let () (declare (not safe)) (##car _$tgt1563015641_))) + (_$tl1563215647_ + (let () (declare (not safe)) (##cdr _$tgt1563015641_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1563215647_)) + (let* ((_$tgt1563315651_ (let () (declare (not safe)) - (__AST-e _$tl1567615691_))) - (_$hd1567815698_ + (__AST-e _$tl1563215647_))) + (_$hd1563415654_ (let () (declare (not safe)) - (##car _$tgt1567715695_))) - (_$tl1567915701_ + (##car _$tgt1563315651_))) + (_$tl1563515657_ (let () (declare (not safe)) - (##cdr _$tgt1567715695_)))) - (let ((_id15705_ _$hd1567815698_)) - (if (let ((__tmp17930 + (##cdr _$tgt1563315651_)))) + (let ((_id15661_ _$hd1563415654_)) + (if (let ((__tmp17886 (let () (declare (not safe)) - (__AST-e _$tl1567915701_)))) + (__AST-e _$tl1563515657_)))) (declare (not safe)) - (equal? __tmp17930 '())) + (equal? __tmp17886 '())) (let () (declare (not safe)) - (__SRC__% _id15705_ _stx15669_)) - (let () (declare (not safe)) (_$E1567315682_))))) - (let () (declare (not safe)) (_$E1567315682_)))) - (let () (declare (not safe)) (_$E1567315682_)))))) + (__SRC__% _id15661_ _stx15625_)) + (let () (declare (not safe)) (_$E1562915638_))))) + (let () (declare (not safe)) (_$E1562915638_)))) + (let () (declare (not safe)) (_$E1562915638_)))))) (define __compile-setq% - (lambda (_stx15616_) - (let* ((_$e15618_ _stx15616_) - (_$E1562015632_ + (lambda (_stx15572_) + (let* ((_$e15574_ _stx15572_) + (_$E1557615588_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15618_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15618_)) - (let* ((_$tgt1562115635_ - (let () (declare (not safe)) (__AST-e _$e15618_))) - (_$hd1562215638_ - (let () (declare (not safe)) (##car _$tgt1562115635_))) - (_$tl1562315641_ - (let () (declare (not safe)) (##cdr _$tgt1562115635_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1562315641_)) - (let* ((_$tgt1562415645_ + _$e15574_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15574_)) + (let* ((_$tgt1557715591_ + (let () (declare (not safe)) (__AST-e _$e15574_))) + (_$hd1557815594_ + (let () (declare (not safe)) (##car _$tgt1557715591_))) + (_$tl1557915597_ + (let () (declare (not safe)) (##cdr _$tgt1557715591_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1557915597_)) + (let* ((_$tgt1558015601_ (let () (declare (not safe)) - (__AST-e _$tl1562315641_))) - (_$hd1562515648_ + (__AST-e _$tl1557915597_))) + (_$hd1558115604_ (let () (declare (not safe)) - (##car _$tgt1562415645_))) - (_$tl1562615651_ + (##car _$tgt1558015601_))) + (_$tl1558215607_ (let () (declare (not safe)) - (##cdr _$tgt1562415645_)))) - (let ((_id15655_ _$hd1562515648_)) + (##cdr _$tgt1558015601_)))) + (let ((_id15611_ _$hd1558115604_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1562615651_)) - (let* ((_$tgt1562715657_ + (__AST-pair? _$tl1558215607_)) + (let* ((_$tgt1558315613_ (let () (declare (not safe)) - (__AST-e _$tl1562615651_))) - (_$hd1562815660_ + (__AST-e _$tl1558215607_))) + (_$hd1558415616_ (let () (declare (not safe)) - (##car _$tgt1562715657_))) - (_$tl1562915663_ + (##car _$tgt1558315613_))) + (_$tl1558515619_ (let () (declare (not safe)) - (##cdr _$tgt1562715657_)))) - (let ((_expr15667_ _$hd1562815660_)) - (if (let ((__tmp17936 + (##cdr _$tgt1558315613_)))) + (let ((_expr15623_ _$hd1558415616_)) + (if (let ((__tmp17892 (let () (declare (not safe)) - (__AST-e _$tl1562915663_)))) + (__AST-e _$tl1558515619_)))) (declare (not safe)) - (equal? __tmp17936 '())) - (let ((__tmp17931 - (let ((__tmp17932 - (let ((__tmp17935 + (equal? __tmp17892 '())) + (let ((__tmp17887 + (let ((__tmp17888 + (let ((__tmp17891 (let () (declare (not safe)) (__SRC__% - _id15655_ - _stx15616_))) - (__tmp17933 - (let ((__tmp17934 + _id15611_ + _stx15572_))) + (__tmp17889 + (let ((__tmp17890 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr15667_)))) + (__compile _expr15623_)))) (declare (not safe)) - (cons __tmp17934 '())))) + (cons __tmp17890 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17935 - __tmp17933)))) + (cons __tmp17891 + __tmp17889)))) (declare (not safe)) - (cons 'set! __tmp17932)))) + (cons 'set! __tmp17888)))) (declare (not safe)) - (__SRC__% __tmp17931 _stx15616_)) + (__SRC__% __tmp17887 _stx15572_)) (let () (declare (not safe)) - (_$E1562015632_))))) - (let () (declare (not safe)) (_$E1562015632_))))) - (let () (declare (not safe)) (_$E1562015632_)))) - (let () (declare (not safe)) (_$E1562015632_)))))) + (_$E1557615588_))))) + (let () (declare (not safe)) (_$E1557615588_))))) + (let () (declare (not safe)) (_$E1557615588_)))) + (let () (declare (not safe)) (_$E1557615588_)))))) (define __compile-if% - (lambda (_stx15548_) - (let* ((_$e15550_ _stx15548_) - (_$E1555215567_ + (lambda (_stx15504_) + (let* ((_$e15506_ _stx15504_) + (_$E1550815523_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15550_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15550_)) - (let* ((_$tgt1555315570_ - (let () (declare (not safe)) (__AST-e _$e15550_))) - (_$hd1555415573_ - (let () (declare (not safe)) (##car _$tgt1555315570_))) - (_$tl1555515576_ - (let () (declare (not safe)) (##cdr _$tgt1555315570_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1555515576_)) - (let* ((_$tgt1555615580_ + _$e15506_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15506_)) + (let* ((_$tgt1550915526_ + (let () (declare (not safe)) (__AST-e _$e15506_))) + (_$hd1551015529_ + (let () (declare (not safe)) (##car _$tgt1550915526_))) + (_$tl1551115532_ + (let () (declare (not safe)) (##cdr _$tgt1550915526_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1551115532_)) + (let* ((_$tgt1551215536_ (let () (declare (not safe)) - (__AST-e _$tl1555515576_))) - (_$hd1555715583_ + (__AST-e _$tl1551115532_))) + (_$hd1551315539_ (let () (declare (not safe)) - (##car _$tgt1555615580_))) - (_$tl1555815586_ + (##car _$tgt1551215536_))) + (_$tl1551415542_ (let () (declare (not safe)) - (##cdr _$tgt1555615580_)))) - (let ((_p15590_ _$hd1555715583_)) + (##cdr _$tgt1551215536_)))) + (let ((_p15546_ _$hd1551315539_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1555815586_)) - (let* ((_$tgt1555915592_ + (__AST-pair? _$tl1551415542_)) + (let* ((_$tgt1551515548_ (let () (declare (not safe)) - (__AST-e _$tl1555815586_))) - (_$hd1556015595_ + (__AST-e _$tl1551415542_))) + (_$hd1551615551_ (let () (declare (not safe)) - (##car _$tgt1555915592_))) - (_$tl1556115598_ + (##car _$tgt1551515548_))) + (_$tl1551715554_ (let () (declare (not safe)) - (##cdr _$tgt1555915592_)))) - (let ((_t15602_ _$hd1556015595_)) + (##cdr _$tgt1551515548_)))) + (let ((_t15558_ _$hd1551615551_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1556115598_)) - (let* ((_$tgt1556215604_ + (__AST-pair? _$tl1551715554_)) + (let* ((_$tgt1551815560_ (let () (declare (not safe)) - (__AST-e _$tl1556115598_))) - (_$hd1556315607_ + (__AST-e _$tl1551715554_))) + (_$hd1551915563_ (let () (declare (not safe)) - (##car _$tgt1556215604_))) - (_$tl1556415610_ + (##car _$tgt1551815560_))) + (_$tl1552015566_ (let () (declare (not safe)) - (##cdr _$tgt1556215604_)))) - (let ((_f15614_ _$hd1556315607_)) - (if (let ((__tmp17944 + (##cdr _$tgt1551815560_)))) + (let ((_f15570_ _$hd1551915563_)) + (if (let ((__tmp17900 (let () (declare (not safe)) - (__AST-e _$tl1556415610_)))) + (__AST-e _$tl1552015566_)))) (declare (not safe)) - (equal? __tmp17944 '())) - (let ((__tmp17937 - (let ((__tmp17938 - (let ((__tmp17943 + (equal? __tmp17900 '())) + (let ((__tmp17893 + (let ((__tmp17894 + (let ((__tmp17899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p15590_))) - (__tmp17939 - (let ((__tmp17942 + (let () (declare (not safe)) (__compile _p15546_))) + (__tmp17895 + (let ((__tmp17898 (let () (declare (not safe)) - (__compile _t15602_))) - (__tmp17940 - (let ((__tmp17941 + (__compile _t15558_))) + (__tmp17896 + (let ((__tmp17897 (let () (declare (not safe)) - (__compile _f15614_)))) + (__compile _f15570_)))) (declare (not safe)) - (cons __tmp17941 '())))) + (cons __tmp17897 '())))) (declare (not safe)) - (cons __tmp17942 __tmp17940)))) + (cons __tmp17898 __tmp17896)))) (declare (not safe)) - (cons __tmp17943 __tmp17939)))) + (cons __tmp17899 __tmp17895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp17938)))) + (cons 'if __tmp17894)))) (declare (not safe)) - (__SRC__% __tmp17937 _stx15548_)) + (__SRC__% __tmp17893 _stx15504_)) (let () (declare (not safe)) - (_$E1555215567_))))) + (_$E1550815523_))))) (let () (declare (not safe)) - (_$E1555215567_))))) - (let () (declare (not safe)) (_$E1555215567_))))) - (let () (declare (not safe)) (_$E1555215567_)))) - (let () (declare (not safe)) (_$E1555215567_)))))) + (_$E1550815523_))))) + (let () (declare (not safe)) (_$E1550815523_))))) + (let () (declare (not safe)) (_$E1550815523_)))) + (let () (declare (not safe)) (_$E1550815523_)))))) (define __compile-quote% - (lambda (_stx15510_) - (let* ((_$e15512_ _stx15510_) - (_$E1551415523_ + (lambda (_stx15466_) + (let* ((_$e15468_ _stx15466_) + (_$E1547015479_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15512_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15512_)) - (let* ((_$tgt1551515526_ - (let () (declare (not safe)) (__AST-e _$e15512_))) - (_$hd1551615529_ - (let () (declare (not safe)) (##car _$tgt1551515526_))) - (_$tl1551715532_ - (let () (declare (not safe)) (##cdr _$tgt1551515526_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1551715532_)) - (let* ((_$tgt1551815536_ + _$e15468_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15468_)) + (let* ((_$tgt1547115482_ + (let () (declare (not safe)) (__AST-e _$e15468_))) + (_$hd1547215485_ + (let () (declare (not safe)) (##car _$tgt1547115482_))) + (_$tl1547315488_ + (let () (declare (not safe)) (##cdr _$tgt1547115482_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1547315488_)) + (let* ((_$tgt1547415492_ (let () (declare (not safe)) - (__AST-e _$tl1551715532_))) - (_$hd1551915539_ + (__AST-e _$tl1547315488_))) + (_$hd1547515495_ (let () (declare (not safe)) - (##car _$tgt1551815536_))) - (_$tl1552015542_ + (##car _$tgt1547415492_))) + (_$tl1547615498_ (let () (declare (not safe)) - (##cdr _$tgt1551815536_)))) - (let ((_e15546_ _$hd1551915539_)) - (if (let ((__tmp17948 + (##cdr _$tgt1547415492_)))) + (let ((_e15502_ _$hd1547515495_)) + (if (let ((__tmp17904 (let () (declare (not safe)) - (__AST-e _$tl1552015542_)))) + (__AST-e _$tl1547615498_)))) (declare (not safe)) - (equal? __tmp17948 '())) - (let ((__tmp17945 - (let ((__tmp17946 - (let ((__tmp17947 + (equal? __tmp17904 '())) + (let ((__tmp17901 + (let ((__tmp17902 + (let ((__tmp17903 (let () (declare (not safe)) - (__AST->datum _e15546_)))) + (__AST->datum _e15502_)))) (declare (not safe)) - (cons __tmp17947 '())))) + (cons __tmp17903 '())))) (declare (not safe)) - (cons 'quote __tmp17946)))) + (cons 'quote __tmp17902)))) (declare (not safe)) - (__SRC__% __tmp17945 _stx15510_)) - (let () (declare (not safe)) (_$E1551415523_))))) - (let () (declare (not safe)) (_$E1551415523_)))) - (let () (declare (not safe)) (_$E1551415523_)))))) + (__SRC__% __tmp17901 _stx15466_)) + (let () (declare (not safe)) (_$E1547015479_))))) + (let () (declare (not safe)) (_$E1547015479_)))) + (let () (declare (not safe)) (_$E1547015479_)))))) (define __compile-quote-syntax% - (lambda (_stx15472_) - (let* ((_$e15474_ _stx15472_) - (_$E1547615485_ + (lambda (_stx15428_) + (let* ((_$e15430_ _stx15428_) + (_$E1543215441_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15474_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15474_)) - (let* ((_$tgt1547715488_ - (let () (declare (not safe)) (__AST-e _$e15474_))) - (_$hd1547815491_ - (let () (declare (not safe)) (##car _$tgt1547715488_))) - (_$tl1547915494_ - (let () (declare (not safe)) (##cdr _$tgt1547715488_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1547915494_)) - (let* ((_$tgt1548015498_ + _$e15430_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15430_)) + (let* ((_$tgt1543315444_ + (let () (declare (not safe)) (__AST-e _$e15430_))) + (_$hd1543415447_ + (let () (declare (not safe)) (##car _$tgt1543315444_))) + (_$tl1543515450_ + (let () (declare (not safe)) (##cdr _$tgt1543315444_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1543515450_)) + (let* ((_$tgt1543615454_ (let () (declare (not safe)) - (__AST-e _$tl1547915494_))) - (_$hd1548115501_ + (__AST-e _$tl1543515450_))) + (_$hd1543715457_ (let () (declare (not safe)) - (##car _$tgt1548015498_))) - (_$tl1548215504_ + (##car _$tgt1543615454_))) + (_$tl1543815460_ (let () (declare (not safe)) - (##cdr _$tgt1548015498_)))) - (let ((_e15508_ _$hd1548115501_)) - (if (let ((__tmp17951 + (##cdr _$tgt1543615454_)))) + (let ((_e15464_ _$hd1543715457_)) + (if (let ((__tmp17907 (let () (declare (not safe)) - (__AST-e _$tl1548215504_)))) + (__AST-e _$tl1543815460_)))) (declare (not safe)) - (equal? __tmp17951 '())) - (let ((__tmp17949 - (let ((__tmp17950 + (equal? __tmp17907 '())) + (let ((__tmp17905 + (let ((__tmp17906 (let () (declare (not safe)) - (cons _e15508_ '())))) + (cons _e15464_ '())))) (declare (not safe)) - (cons 'quote __tmp17950)))) + (cons 'quote __tmp17906)))) (declare (not safe)) - (__SRC__% __tmp17949 _stx15472_)) - (let () (declare (not safe)) (_$E1547615485_))))) - (let () (declare (not safe)) (_$E1547615485_)))) - (let () (declare (not safe)) (_$E1547615485_)))))) + (__SRC__% __tmp17905 _stx15428_)) + (let () (declare (not safe)) (_$E1543215441_))))) + (let () (declare (not safe)) (_$E1543215441_)))) + (let () (declare (not safe)) (_$E1543215441_)))))) (let () (declare (not safe)) (__core-bind-syntax!__% diff --git a/src/bootstrap/gerbil/runtime/eval__1.scm b/src/bootstrap/gerbil/runtime/eval__1.scm index 5c818875..96fbba63 100644 --- a/src/bootstrap/gerbil/runtime/eval__1.scm +++ b/src/bootstrap/gerbil/runtime/eval__1.scm @@ -1,412 +1,412 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g17952_| + (define |[1]#_g17908_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g17963_| + (define |[1]#_g17919_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g17965_| + (define |[1]#_g17921_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g17967_| + (define |[1]#_g17923_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g17969_| + (define |[1]#_g17925_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g17975_| + (define |[1]#_g17931_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g17977_| + (define |[1]#_g17933_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g17979_| + (define |[1]#_g17935_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g17981_| + (define |[1]#_g17937_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g17983_| + (define |[1]#_g17939_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g17985_| + (define |[1]#_g17941_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g17987_| + (define |[1]#_g17943_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g17995_| + (define |[1]#_g17951_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g17998_| + (define |[1]#_g17954_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g18000_| + (define |[1]#_g17956_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g18002_| + (define |[1]#_g17958_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g18004_| + (define |[1]#_g17960_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g18013_| + (define |[1]#_g17969_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18015_| + (define |[1]#_g17971_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18019_| + (define |[1]#_g17975_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g18021_| + (define |[1]#_g17977_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g18023_| + (define |[1]#_g17979_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g18025_| + (define |[1]#_g17981_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18027_| + (define |[1]#_g17983_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g18034_| + (define |[1]#_g17990_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g18036_| + (define |[1]#_g17992_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18039_| + (define |[1]#_g17995_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18040_| + (define |[1]#_g17996_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18047_| + (define |[1]#_g18003_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18049_| + (define |[1]#_g18005_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18052_| + (define |[1]#_g18008_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18053_| + (define |[1]#_g18009_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18060_| + (define |[1]#_g18016_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18062_| + (define |[1]#_g18018_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18065_| + (define |[1]#_g18021_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g18072_| + (define |[1]#_g18028_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g18074_| + (define |[1]#_g18030_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g18077_| + (define |[1]#_g18033_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18078_| + (define |[1]#_g18034_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18085_| + (define |[1]#_g18041_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18087_| + (define |[1]#_g18043_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18090_| + (define |[1]#_g18046_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g18097_| + (define |[1]#_g18053_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g18099_| + (define |[1]#_g18055_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g18102_| + (define |[1]#_g18058_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g18109_| + (define |[1]#_g18065_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g18111_| + (define |[1]#_g18067_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g18114_| + (define |[1]#_g18070_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g18125_| + (define |[1]#_g18081_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18127_| + (define |[1]#_g18083_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18129_| + (define |[1]#_g18085_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18131_| + (define |[1]#_g18087_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18137_| + (define |[1]#_g18093_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g18139_| + (define |[1]#_g18095_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g18141_| + (define |[1]#_g18097_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g18143_| + (define |[1]#_g18099_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g18145_| + (define |[1]#_g18101_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g18147_| + (define |[1]#_g18103_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g18150_| + (define |[1]#_g18106_| (##structure gx#syntax-quote::t '__context @@ -417,72 +417,72 @@ (define |[:0:]#__context| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g17952_| + |[1]#_g17908_| 'expander-identifiers: - (let ((__tmp17953 - (let ((__tmp17986 |[1]#_g17952_|) - (__tmp17954 - (let ((__tmp17984 |[1]#_g17985_|) - (__tmp17955 - (let ((__tmp17982 |[1]#_g17983_|) - (__tmp17956 - (let ((__tmp17970 - (let ((__tmp17980 |[1]#_g17981_|) - (__tmp17971 - (let ((__tmp17978 - |[1]#_g17979_|) - (__tmp17972 - (let ((__tmp17976 - |[1]#_g17977_|) - (__tmp17973 - (let ((__tmp17974 + (let ((__tmp17909 + (let ((__tmp17942 |[1]#_g17908_|) + (__tmp17910 + (let ((__tmp17940 |[1]#_g17941_|) + (__tmp17911 + (let ((__tmp17938 |[1]#_g17939_|) + (__tmp17912 + (let ((__tmp17926 + (let ((__tmp17936 |[1]#_g17937_|) + (__tmp17927 + (let ((__tmp17934 + |[1]#_g17935_|) + (__tmp17928 + (let ((__tmp17932 + |[1]#_g17933_|) + (__tmp17929 + (let ((__tmp17930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g17975_|)) + |[1]#_g17931_|)) (declare (not safe)) - (cons __tmp17974 '())))) + (cons __tmp17930 '())))) (declare (not safe)) - (cons __tmp17976 __tmp17973)))) + (cons __tmp17932 __tmp17929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17978 - __tmp17972)))) + (cons __tmp17934 + __tmp17928)))) (declare (not safe)) - (cons __tmp17980 __tmp17971))) - (__tmp17957 - (let ((__tmp17958 - (let ((__tmp17968 - |[1]#_g17969_|) - (__tmp17959 - (let ((__tmp17966 - |[1]#_g17967_|) - (__tmp17960 - (let ((__tmp17964 + (cons __tmp17936 __tmp17927))) + (__tmp17913 + (let ((__tmp17914 + (let ((__tmp17924 + |[1]#_g17925_|) + (__tmp17915 + (let ((__tmp17922 + |[1]#_g17923_|) + (__tmp17916 + (let ((__tmp17920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g17965_|) - (__tmp17961 - (let ((__tmp17962 |[1]#_g17963_|)) + |[1]#_g17921_|) + (__tmp17917 + (let ((__tmp17918 |[1]#_g17919_|)) (declare (not safe)) - (cons __tmp17962 '())))) + (cons __tmp17918 '())))) (declare (not safe)) - (cons __tmp17964 __tmp17961)))) + (cons __tmp17920 __tmp17917)))) (declare (not safe)) - (cons __tmp17966 __tmp17960)))) + (cons __tmp17922 __tmp17916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17968 - __tmp17959)))) + (cons __tmp17924 + __tmp17915)))) (declare (not safe)) - (cons __tmp17958 '())))) + (cons __tmp17914 '())))) (declare (not safe)) - (cons __tmp17970 __tmp17957)))) + (cons __tmp17926 __tmp17913)))) (declare (not safe)) - (cons __tmp17982 __tmp17956)))) + (cons __tmp17938 __tmp17912)))) (declare (not safe)) - (cons __tmp17984 __tmp17955)))) + (cons __tmp17940 __tmp17911)))) (declare (not safe)) - (cons __tmp17986 __tmp17954)))) + (cons __tmp17942 __tmp17910)))) (declare (not safe)) - (cons '#f __tmp17953)) + (cons '#f __tmp17909)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f @@ -494,37 +494,37 @@ (define |[:0:]#__runtime| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g17987_| + |[1]#_g17943_| 'expander-identifiers: - (let ((__tmp17988 - (let ((__tmp18003 |[1]#_g17987_|) - (__tmp17989 - (let ((__tmp18001 |[1]#_g18002_|) - (__tmp17990 - (let ((__tmp17999 |[1]#_g18000_|) - (__tmp17991 - (let ((__tmp17996 - (let ((__tmp17997 |[1]#_g17998_|)) + (let ((__tmp17944 + (let ((__tmp17959 |[1]#_g17943_|) + (__tmp17945 + (let ((__tmp17957 |[1]#_g17958_|) + (__tmp17946 + (let ((__tmp17955 |[1]#_g17956_|) + (__tmp17947 + (let ((__tmp17952 + (let ((__tmp17953 |[1]#_g17954_|)) (declare (not safe)) - (cons __tmp17997 '()))) - (__tmp17992 - (let ((__tmp17993 - (let ((__tmp17994 - |[1]#_g17995_|)) + (cons __tmp17953 '()))) + (__tmp17948 + (let ((__tmp17949 + (let ((__tmp17950 + |[1]#_g17951_|)) (declare (not safe)) - (cons __tmp17994 '())))) + (cons __tmp17950 '())))) (declare (not safe)) - (cons __tmp17993 '())))) + (cons __tmp17949 '())))) (declare (not safe)) - (cons __tmp17996 __tmp17992)))) + (cons __tmp17952 __tmp17948)))) (declare (not safe)) - (cons __tmp17999 __tmp17991)))) + (cons __tmp17955 __tmp17947)))) (declare (not safe)) - (cons __tmp18001 __tmp17990)))) + (cons __tmp17957 __tmp17946)))) (declare (not safe)) - (cons __tmp18003 __tmp17989)))) + (cons __tmp17959 __tmp17945)))) (declare (not safe)) - (cons '#f __tmp17988)) + (cons '#f __tmp17944)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f @@ -536,49 +536,49 @@ (define |[:0:]#__syntax| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18004_| + |[1]#_g17960_| 'expander-identifiers: - (let ((__tmp18005 - (let ((__tmp18026 |[1]#_g18004_|) - (__tmp18006 - (let ((__tmp18024 |[1]#_g18025_|) - (__tmp18007 - (let ((__tmp18022 |[1]#_g18023_|) - (__tmp18008 - (let ((__tmp18016 - (let ((__tmp18020 |[1]#_g18021_|) - (__tmp18017 - (let ((__tmp18018 - |[1]#_g18019_|)) + (let ((__tmp17961 + (let ((__tmp17982 |[1]#_g17960_|) + (__tmp17962 + (let ((__tmp17980 |[1]#_g17981_|) + (__tmp17963 + (let ((__tmp17978 |[1]#_g17979_|) + (__tmp17964 + (let ((__tmp17972 + (let ((__tmp17976 |[1]#_g17977_|) + (__tmp17973 + (let ((__tmp17974 + |[1]#_g17975_|)) (declare (not safe)) - (cons __tmp18018 '())))) + (cons __tmp17974 '())))) (declare (not safe)) - (cons __tmp18020 __tmp18017))) - (__tmp18009 - (let ((__tmp18010 - (let ((__tmp18014 - |[1]#_g18015_|) - (__tmp18011 - (let ((__tmp18012 - |[1]#_g18013_|)) + (cons __tmp17976 __tmp17973))) + (__tmp17965 + (let ((__tmp17966 + (let ((__tmp17970 + |[1]#_g17971_|) + (__tmp17967 + (let ((__tmp17968 + |[1]#_g17969_|)) (declare (not safe)) - (cons __tmp18012 + (cons __tmp17968 '())))) (declare (not safe)) - (cons __tmp18014 - __tmp18011)))) + (cons __tmp17970 + __tmp17967)))) (declare (not safe)) - (cons __tmp18010 '())))) + (cons __tmp17966 '())))) (declare (not safe)) - (cons __tmp18016 __tmp18009)))) + (cons __tmp17972 __tmp17965)))) (declare (not safe)) - (cons __tmp18022 __tmp18008)))) + (cons __tmp17978 __tmp17964)))) (declare (not safe)) - (cons __tmp18024 __tmp18007)))) + (cons __tmp17980 __tmp17963)))) (declare (not safe)) - (cons __tmp18026 __tmp18006)))) + (cons __tmp17982 __tmp17962)))) (declare (not safe)) - (cons '#f __tmp18005)) + (cons '#f __tmp17961)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f @@ -590,34 +590,34 @@ (define |[:0:]#__macro| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18027_| + |[1]#_g17983_| 'expander-identifiers: - (let ((__tmp18038 |[1]#_g18004_|) - (__tmp18028 - (let ((__tmp18037 |[1]#_g18027_|) - (__tmp18029 - (let ((__tmp18035 |[1]#_g18036_|) - (__tmp18030 - (let ((__tmp18033 |[1]#_g18034_|) - (__tmp18031 - (let ((__tmp18032 + (let ((__tmp17994 |[1]#_g17960_|) + (__tmp17984 + (let ((__tmp17993 |[1]#_g17983_|) + (__tmp17985 + (let ((__tmp17991 |[1]#_g17992_|) + (__tmp17986 + (let ((__tmp17989 |[1]#_g17990_|) + (__tmp17987 + (let ((__tmp17988 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18032)))) + (cons '() __tmp17988)))) (declare (not safe)) - (cons __tmp18033 __tmp18031)))) + (cons __tmp17989 __tmp17987)))) (declare (not safe)) - (cons __tmp18035 __tmp18030)))) + (cons __tmp17991 __tmp17986)))) (declare (not safe)) - (cons __tmp18037 __tmp18029)))) + (cons __tmp17993 __tmp17985)))) (declare (not safe)) - (cons __tmp18038 __tmp18028)) + (cons __tmp17994 __tmp17984)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18039_| + |[1]#_g17995_| '__macro '#f '() @@ -625,34 +625,34 @@ (define |[:0:]#__special-form| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18040_| + |[1]#_g17996_| 'expander-identifiers: - (let ((__tmp18051 |[1]#_g18027_|) - (__tmp18041 - (let ((__tmp18050 |[1]#_g18040_|) - (__tmp18042 - (let ((__tmp18048 |[1]#_g18049_|) - (__tmp18043 - (let ((__tmp18046 |[1]#_g18047_|) - (__tmp18044 - (let ((__tmp18045 + (let ((__tmp18007 |[1]#_g17983_|) + (__tmp17997 + (let ((__tmp18006 |[1]#_g17996_|) + (__tmp17998 + (let ((__tmp18004 |[1]#_g18005_|) + (__tmp17999 + (let ((__tmp18002 |[1]#_g18003_|) + (__tmp18000 + (let ((__tmp18001 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18045)))) + (cons '() __tmp18001)))) (declare (not safe)) - (cons __tmp18046 __tmp18044)))) + (cons __tmp18002 __tmp18000)))) (declare (not safe)) - (cons __tmp18048 __tmp18043)))) + (cons __tmp18004 __tmp17999)))) (declare (not safe)) - (cons __tmp18050 __tmp18042)))) + (cons __tmp18006 __tmp17998)))) (declare (not safe)) - (cons __tmp18051 __tmp18041)) + (cons __tmp18007 __tmp17997)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18052_| + |[1]#_g18008_| '__special-form '#f '() @@ -660,34 +660,34 @@ (define |[:0:]#__core-form| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18053_| + |[1]#_g18009_| 'expander-identifiers: - (let ((__tmp18064 |[1]#_g18004_|) - (__tmp18054 - (let ((__tmp18063 |[1]#_g18053_|) - (__tmp18055 - (let ((__tmp18061 |[1]#_g18062_|) - (__tmp18056 - (let ((__tmp18059 |[1]#_g18060_|) - (__tmp18057 - (let ((__tmp18058 + (let ((__tmp18020 |[1]#_g17960_|) + (__tmp18010 + (let ((__tmp18019 |[1]#_g18009_|) + (__tmp18011 + (let ((__tmp18017 |[1]#_g18018_|) + (__tmp18012 + (let ((__tmp18015 |[1]#_g18016_|) + (__tmp18013 + (let ((__tmp18014 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18058)))) + (cons '() __tmp18014)))) (declare (not safe)) - (cons __tmp18059 __tmp18057)))) + (cons __tmp18015 __tmp18013)))) (declare (not safe)) - (cons __tmp18061 __tmp18056)))) + (cons __tmp18017 __tmp18012)))) (declare (not safe)) - (cons __tmp18063 __tmp18055)))) + (cons __tmp18019 __tmp18011)))) (declare (not safe)) - (cons __tmp18064 __tmp18054)) + (cons __tmp18020 __tmp18010)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18039_| + |[1]#_g17995_| '__core-form '#f '() @@ -695,34 +695,34 @@ (define |[:0:]#__core-expression| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18065_| + |[1]#_g18021_| 'expander-identifiers: - (let ((__tmp18076 |[1]#_g18053_|) - (__tmp18066 - (let ((__tmp18075 |[1]#_g18065_|) - (__tmp18067 - (let ((__tmp18073 |[1]#_g18074_|) - (__tmp18068 - (let ((__tmp18071 |[1]#_g18072_|) - (__tmp18069 - (let ((__tmp18070 + (let ((__tmp18032 |[1]#_g18009_|) + (__tmp18022 + (let ((__tmp18031 |[1]#_g18021_|) + (__tmp18023 + (let ((__tmp18029 |[1]#_g18030_|) + (__tmp18024 + (let ((__tmp18027 |[1]#_g18028_|) + (__tmp18025 + (let ((__tmp18026 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18070)))) + (cons '() __tmp18026)))) (declare (not safe)) - (cons __tmp18071 __tmp18069)))) + (cons __tmp18027 __tmp18025)))) (declare (not safe)) - (cons __tmp18073 __tmp18068)))) + (cons __tmp18029 __tmp18024)))) (declare (not safe)) - (cons __tmp18075 __tmp18067)))) + (cons __tmp18031 __tmp18023)))) (declare (not safe)) - (cons __tmp18076 __tmp18066)) + (cons __tmp18032 __tmp18022)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18077_| + |[1]#_g18033_| '__core-expression '#f '() @@ -730,34 +730,34 @@ (define |[:0:]#__core-special-form| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18078_| + |[1]#_g18034_| 'expander-identifiers: - (let ((__tmp18089 |[1]#_g18053_|) - (__tmp18079 - (let ((__tmp18088 |[1]#_g18078_|) - (__tmp18080 - (let ((__tmp18086 |[1]#_g18087_|) - (__tmp18081 - (let ((__tmp18084 |[1]#_g18085_|) - (__tmp18082 - (let ((__tmp18083 + (let ((__tmp18045 |[1]#_g18009_|) + (__tmp18035 + (let ((__tmp18044 |[1]#_g18034_|) + (__tmp18036 + (let ((__tmp18042 |[1]#_g18043_|) + (__tmp18037 + (let ((__tmp18040 |[1]#_g18041_|) + (__tmp18038 + (let ((__tmp18039 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18083)))) + (cons '() __tmp18039)))) (declare (not safe)) - (cons __tmp18084 __tmp18082)))) + (cons __tmp18040 __tmp18038)))) (declare (not safe)) - (cons __tmp18086 __tmp18081)))) + (cons __tmp18042 __tmp18037)))) (declare (not safe)) - (cons __tmp18088 __tmp18080)))) + (cons __tmp18044 __tmp18036)))) (declare (not safe)) - (cons __tmp18089 __tmp18079)) + (cons __tmp18045 __tmp18035)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18077_| + |[1]#_g18033_| '__core-special-form '#f '() @@ -765,34 +765,34 @@ (define |[:0:]#__struct-info| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18090_| + |[1]#_g18046_| 'expander-identifiers: - (let ((__tmp18101 |[1]#_g18004_|) - (__tmp18091 - (let ((__tmp18100 |[1]#_g18090_|) - (__tmp18092 - (let ((__tmp18098 |[1]#_g18099_|) - (__tmp18093 - (let ((__tmp18096 |[1]#_g18097_|) - (__tmp18094 - (let ((__tmp18095 + (let ((__tmp18057 |[1]#_g17960_|) + (__tmp18047 + (let ((__tmp18056 |[1]#_g18046_|) + (__tmp18048 + (let ((__tmp18054 |[1]#_g18055_|) + (__tmp18049 + (let ((__tmp18052 |[1]#_g18053_|) + (__tmp18050 + (let ((__tmp18051 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18095)))) + (cons '() __tmp18051)))) (declare (not safe)) - (cons __tmp18096 __tmp18094)))) + (cons __tmp18052 __tmp18050)))) (declare (not safe)) - (cons __tmp18098 __tmp18093)))) + (cons __tmp18054 __tmp18049)))) (declare (not safe)) - (cons __tmp18100 __tmp18092)))) + (cons __tmp18056 __tmp18048)))) (declare (not safe)) - (cons __tmp18101 __tmp18091)) + (cons __tmp18057 __tmp18047)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18039_| + |[1]#_g17995_| '__struct-info '#f '() @@ -800,34 +800,34 @@ (define |[:0:]#__feature| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18102_| + |[1]#_g18058_| 'expander-identifiers: - (let ((__tmp18113 |[1]#_g18004_|) - (__tmp18103 - (let ((__tmp18112 |[1]#_g18102_|) - (__tmp18104 - (let ((__tmp18110 |[1]#_g18111_|) - (__tmp18105 - (let ((__tmp18108 |[1]#_g18109_|) - (__tmp18106 - (let ((__tmp18107 + (let ((__tmp18069 |[1]#_g17960_|) + (__tmp18059 + (let ((__tmp18068 |[1]#_g18058_|) + (__tmp18060 + (let ((__tmp18066 |[1]#_g18067_|) + (__tmp18061 + (let ((__tmp18064 |[1]#_g18065_|) + (__tmp18062 + (let ((__tmp18063 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18107)))) + (cons '() __tmp18063)))) (declare (not safe)) - (cons __tmp18108 __tmp18106)))) + (cons __tmp18064 __tmp18062)))) (declare (not safe)) - (cons __tmp18110 __tmp18105)))) + (cons __tmp18066 __tmp18061)))) (declare (not safe)) - (cons __tmp18112 __tmp18104)))) + (cons __tmp18068 __tmp18060)))) (declare (not safe)) - (cons __tmp18113 __tmp18103)) + (cons __tmp18069 __tmp18059)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18039_| + |[1]#_g17995_| '__feature '#f '() @@ -835,288 +835,288 @@ (define |[:0:]#__module| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18114_| + |[1]#_g18070_| 'expander-identifiers: - (let ((__tmp18149 |[1]#_g17952_|) - (__tmp18115 - (let ((__tmp18148 |[1]#_g18114_|) - (__tmp18116 - (let ((__tmp18146 |[1]#_g18147_|) - (__tmp18117 - (let ((__tmp18144 |[1]#_g18145_|) - (__tmp18118 - (let ((__tmp18132 - (let ((__tmp18142 |[1]#_g18143_|) - (__tmp18133 - (let ((__tmp18140 - |[1]#_g18141_|) - (__tmp18134 - (let ((__tmp18138 - |[1]#_g18139_|) - (__tmp18135 - (let ((__tmp18136 + (let ((__tmp18105 |[1]#_g17908_|) + (__tmp18071 + (let ((__tmp18104 |[1]#_g18070_|) + (__tmp18072 + (let ((__tmp18102 |[1]#_g18103_|) + (__tmp18073 + (let ((__tmp18100 |[1]#_g18101_|) + (__tmp18074 + (let ((__tmp18088 + (let ((__tmp18098 |[1]#_g18099_|) + (__tmp18089 + (let ((__tmp18096 + |[1]#_g18097_|) + (__tmp18090 + (let ((__tmp18094 + |[1]#_g18095_|) + (__tmp18091 + (let ((__tmp18092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18137_|)) + |[1]#_g18093_|)) (declare (not safe)) - (cons __tmp18136 '())))) + (cons __tmp18092 '())))) (declare (not safe)) - (cons __tmp18138 __tmp18135)))) + (cons __tmp18094 __tmp18091)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18140 - __tmp18134)))) + (cons __tmp18096 + __tmp18090)))) (declare (not safe)) - (cons __tmp18142 __tmp18133))) - (__tmp18119 - (let ((__tmp18120 - (let ((__tmp18130 - |[1]#_g18131_|) - (__tmp18121 - (let ((__tmp18128 - |[1]#_g18129_|) - (__tmp18122 - (let ((__tmp18126 + (cons __tmp18098 __tmp18089))) + (__tmp18075 + (let ((__tmp18076 + (let ((__tmp18086 + |[1]#_g18087_|) + (__tmp18077 + (let ((__tmp18084 + |[1]#_g18085_|) + (__tmp18078 + (let ((__tmp18082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18127_|) - (__tmp18123 - (let ((__tmp18124 |[1]#_g18125_|)) + |[1]#_g18083_|) + (__tmp18079 + (let ((__tmp18080 |[1]#_g18081_|)) (declare (not safe)) - (cons __tmp18124 '())))) + (cons __tmp18080 '())))) (declare (not safe)) - (cons __tmp18126 __tmp18123)))) + (cons __tmp18082 __tmp18079)))) (declare (not safe)) - (cons __tmp18128 __tmp18122)))) + (cons __tmp18084 __tmp18078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18130 - __tmp18121)))) + (cons __tmp18086 + __tmp18077)))) (declare (not safe)) - (cons __tmp18120 '())))) + (cons __tmp18076 '())))) (declare (not safe)) - (cons __tmp18132 __tmp18119)))) + (cons __tmp18088 __tmp18075)))) (declare (not safe)) - (cons __tmp18144 __tmp18118)))) + (cons __tmp18100 __tmp18074)))) (declare (not safe)) - (cons __tmp18146 __tmp18117)))) + (cons __tmp18102 __tmp18073)))) (declare (not safe)) - (cons __tmp18148 __tmp18116)))) + (cons __tmp18104 __tmp18072)))) (declare (not safe)) - (cons __tmp18149 __tmp18115)) + (cons __tmp18105 __tmp18071)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18150_| + |[1]#_g18106_| '__module '#f '() '(id path import export)))) (define |[:0:]#defcore-forms| - (lambda (_stx15017_) - (letrec ((_generate15020_ - (lambda (_id15384_ _compile15386_ _make15387_) - (let* ((_g1538915408_ - (lambda (_g1539015404_) + (lambda (_stx14973_) + (letrec ((_generate14976_ + (lambda (_id15340_ _compile15342_ _make15343_) + (let* ((_g1534515364_ + (lambda (_g1534615360_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1539015404_))) - (_g1538815467_ - (lambda (_g1539015412_) - (if (gx#stx-pair? _g1539015412_) - (let ((_e1539615415_ - (gx#syntax-e _g1539015412_))) - (let ((_hd1539515419_ + _g1534615360_))) + (_g1534415423_ + (lambda (_g1534615368_) + (if (gx#stx-pair? _g1534615368_) + (let ((_e1535215371_ + (gx#syntax-e _g1534615368_))) + (let ((_hd1535115375_ (let () (declare (not safe)) - (##car _e1539615415_))) - (_tl1539415422_ + (##car _e1535215371_))) + (_tl1535015378_ (let () (declare (not safe)) - (##cdr _e1539615415_)))) - (if (gx#stx-pair? _tl1539415422_) - (let ((_e1539915425_ - (gx#syntax-e _tl1539415422_))) - (let ((_hd1539815429_ + (##cdr _e1535215371_)))) + (if (gx#stx-pair? _tl1535015378_) + (let ((_e1535515381_ + (gx#syntax-e _tl1535015378_))) + (let ((_hd1535415385_ (let () (declare (not safe)) - (##car _e1539915425_))) - (_tl1539715432_ + (##car _e1535515381_))) + (_tl1535315388_ (let () (declare (not safe)) - (##cdr _e1539915425_)))) - (if (gx#stx-pair? _tl1539715432_) - (let ((_e1540215435_ + (##cdr _e1535515381_)))) + (if (gx#stx-pair? _tl1535315388_) + (let ((_e1535815391_ (gx#syntax-e - _tl1539715432_))) - (let ((_hd1540115439_ + _tl1535315388_))) + (let ((_hd1535715395_ (let () (declare (not safe)) - (##car _e1540215435_))) - (_tl1540015442_ + (##car _e1535815391_))) + (_tl1535615398_ (let () (declare (not safe)) - (##cdr _e1540215435_)))) + (##cdr _e1535815391_)))) (if (gx#stx-null? - _tl1540015442_) - ((lambda (_L15445_ + _tl1535615398_) + ((lambda (_L15401_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15447_ - _L15448_) + _L15403_ + _L15404_) (let () - (let ((__tmp18157 + (let ((__tmp18113 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp18151 - (let ((__tmp18154 - (let ((__tmp18156 + (__tmp18107 + (let ((__tmp18110 + (let ((__tmp18112 (gx#datum->syntax '#f 'quote)) - (__tmp18155 + (__tmp18111 (let () (declare (not safe)) - (cons _L15448_ '())))) + (cons _L15404_ '())))) (declare (not safe)) - (cons __tmp18156 __tmp18155))) - (__tmp18152 - (let ((__tmp18153 + (cons __tmp18112 __tmp18111))) + (__tmp18108 + (let ((__tmp18109 (let () (declare (not safe)) - (cons _L15445_ '())))) + (cons _L15401_ '())))) (declare (not safe)) - (cons _L15447_ __tmp18153)))) + (cons _L15403_ __tmp18109)))) (declare (not safe)) - (cons __tmp18154 __tmp18152)))) + (cons __tmp18110 __tmp18108)))) (declare (not safe)) - (cons __tmp18157 __tmp18151)))) - _hd1540115439_ - _hd1539815429_ - _hd1539515419_) - (_g1538915408_ _g1539015412_)))) + (cons __tmp18113 __tmp18107)))) + _hd1535715395_ + _hd1535415385_ + _hd1535115375_) + (_g1534515364_ _g1534615368_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1538915408_ - _g1539015412_)))) - (_g1538915408_ _g1539015412_)))) - (_g1538915408_ _g1539015412_))))) - (_g1538815467_ - (list _id15384_ - (gx#stx-identifier _id15384_ '"__" _compile15386_) - _make15387_)))))) - (let* ((_g1502315043_ - (lambda (_g1502415039_) + (_g1534515364_ + _g1534615368_)))) + (_g1534515364_ _g1534615368_)))) + (_g1534515364_ _g1534615368_))))) + (_g1534415423_ + (list _id15340_ + (gx#stx-identifier _id15340_ '"__" _compile15342_) + _make15343_)))))) + (let* ((_g1497914999_ + (lambda (_g1498014995_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1502415039_))) - (_g1502215380_ - (lambda (_g1502415047_) - (if (gx#stx-pair? _g1502415047_) - (let ((_e1502815050_ (gx#syntax-e _g1502415047_))) - (let ((_hd1502715054_ + _g1498014995_))) + (_g1497815336_ + (lambda (_g1498015003_) + (if (gx#stx-pair? _g1498015003_) + (let ((_e1498415006_ (gx#syntax-e _g1498015003_))) + (let ((_hd1498315010_ (let () (declare (not safe)) - (##car _e1502815050_))) - (_tl1502615057_ + (##car _e1498415006_))) + (_tl1498215013_ (let () (declare (not safe)) - (##cdr _e1502815050_)))) - (if (gx#stx-pair/null? _tl1502615057_) - (let ((_g18158_ + (##cdr _e1498415006_)))) + (if (gx#stx-pair/null? _tl1498215013_) + (let ((_g18114_ (gx#syntax-split-splice - _tl1502615057_ + _tl1498215013_ '0))) (begin - (let ((_g18159_ + (let ((_g18115_ (let () (declare (not safe)) - (if (##values? _g18158_) - (##vector-length _g18158_) + (if (##values? _g18114_) + (##vector-length _g18114_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g18159_ 2))) + (##fx= _g18115_ 2))) (error "Context expects 2 values" - _g18159_))) - (let ((_target1502915060_ + _g18115_))) + (let ((_target1498515016_ (let () (declare (not safe)) - (##vector-ref _g18158_ 0))) - (_tl1503115063_ + (##vector-ref _g18114_ 0))) + (_tl1498715019_ (let () (declare (not safe)) - (##vector-ref _g18158_ 1)))) - (if (gx#stx-null? _tl1503115063_) - (letrec ((_loop1503215066_ - (lambda (_hd1503015070_ - _form1503615073_) + (##vector-ref _g18114_ 1)))) + (if (gx#stx-null? _tl1498715019_) + (letrec ((_loop1498815022_ + (lambda (_hd1498615026_ + _form1499215029_) (if (gx#stx-pair? - _hd1503015070_) - (let ((_e1503315076_ + _hd1498615026_) + (let ((_e1498915032_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1503015070_))) - (let ((_lp-hd1503415080_ - (let () (declare (not safe)) (##car _e1503315076_))) - (_lp-tl1503515083_ + (gx#syntax-e _hd1498615026_))) + (let ((_lp-hd1499015036_ + (let () (declare (not safe)) (##car _e1498915032_))) + (_lp-tl1499115039_ (let () (declare (not safe)) - (##cdr _e1503315076_)))) - (_loop1503215066_ - _lp-tl1503515083_ + (##cdr _e1498915032_)))) + (_loop1498815022_ + _lp-tl1499115039_ (let () (declare (not safe)) - (cons _lp-hd1503415080_ _form1503615073_))))) - (let ((_form1503715086_ (reverse _form1503615073_))) - ((lambda (_L15090_) - (let _lp15108_ ((_rest15111_ - (let ((__tmp18164 - (lambda (_g1537115374_ - _g1537215377_) + (cons _lp-hd1499015036_ _form1499215029_))))) + (let ((_form1499315042_ (reverse _form1499215029_))) + ((lambda (_L15046_) + (let _lp15064_ ((_rest15067_ + (let ((__tmp18120 + (lambda (_g1532715330_ + _g1532815333_) (let () (declare (not safe)) - (cons _g1537115374_ - _g1537215377_))))) + (cons _g1532715330_ + _g1532815333_))))) (declare (not safe)) - (foldr1 __tmp18164 '() _L15090_))) - (_body15113_ '())) - (let* ((___stx1749317494_ _rest15111_) - (_g1511815165_ + (foldr1 __tmp18120 '() _L15046_))) + (_body15069_ '())) + (let* ((___stx1744917450_ _rest15067_) + (_g1507415121_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1749317494_)))) - (let ((___kont1749617497_ - (lambda (_L15346_ _L15348_ _L15349_) - (_lp15108_ - _L15346_ - (let ((__tmp18160 - (_generate15020_ - _L15349_ - _L15348_ + ___stx1744917450_)))) + (let ((___kont1745217453_ + (lambda (_L15302_ _L15304_ _L15305_) + (_lp15064_ + _L15302_ + (let ((__tmp18116 + (_generate14976_ + _L15305_ + _L15304_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp18160 _body15113_))))) - (___kont1749817499_ - (lambda (_L15273_ _L15275_ _L15276_) - (_lp15108_ - _L15273_ - (let ((__tmp18161 - (_generate15020_ - _L15276_ - _L15275_ + (cons __tmp18116 _body15069_))))) + (___kont1745417455_ + (lambda (_L15229_ _L15231_ _L15232_) + (_lp15064_ + _L15229_ + (let ((__tmp18117 + (_generate14976_ + _L15232_ + _L15231_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp18161 _body15113_))))) - (___kont1750017501_ - (lambda (_L15203_ _L15205_) - (_lp15108_ - _L15203_ - (let ((__tmp18162 - (_generate15020_ - _L15205_ + (cons __tmp18117 _body15069_))))) + (___kont1745617457_ + (lambda (_L15159_ _L15161_) + (_lp15064_ + _L15159_ + (let ((__tmp18118 + (_generate14976_ + _L15161_ (gx#datum->syntax '#f 'compile-error) @@ -1124,131 +1124,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp18162 _body15113_))))) - (___kont1750217503_ + (cons __tmp18118 _body15069_))))) + (___kont1745817459_ (lambda () - (let ((__tmp18163 (reverse _body15113_))) + (let ((__tmp18119 (reverse _body15069_))) (declare (not safe)) - (cons 'begin __tmp18163))))) - (let ((_g1511715176_ + (cons 'begin __tmp18119))))) + (let ((_g1507315132_ (lambda () - (if (gx#stx-null? ___stx1749317494_) - (___kont1750217503_) + (if (gx#stx-null? ___stx1744917450_) + (___kont1745817459_) (let () (declare (not safe)) - (_g1511815165_)))))) - (if (gx#stx-pair? ___stx1749317494_) - (let ((_e1512515302_ - (gx#syntax-e ___stx1749317494_))) - (let ((_tl1512315309_ + (_g1507415121_)))))) + (if (gx#stx-pair? ___stx1744917450_) + (let ((_e1508115258_ + (gx#syntax-e ___stx1744917450_))) + (let ((_tl1507915265_ (let () (declare (not safe)) - (##cdr _e1512515302_))) - (_hd1512415306_ + (##cdr _e1508115258_))) + (_hd1508015262_ (let () (declare (not safe)) - (##car _e1512515302_)))) - (if (gx#stx-pair? _hd1512415306_) - (let ((_e1512815312_ + (##car _e1508115258_)))) + (if (gx#stx-pair? _hd1508015262_) + (let ((_e1508415268_ (gx#syntax-e - _hd1512415306_))) - (let ((_tl1512615319_ + _hd1508015262_))) + (let ((_tl1508215275_ (let () (declare (not safe)) - (##cdr _e1512815312_))) - (_hd1512715316_ + (##cdr _e1508415268_))) + (_hd1508315272_ (let () (declare (not safe)) - (##car _e1512815312_)))) + (##car _e1508415268_)))) (if (gx#stx-pair? - _tl1512615319_) - (let ((_e1513115322_ + _tl1508215275_) + (let ((_e1508715278_ (gx#syntax-e - _tl1512615319_))) - (let ((_tl1512915329_ + _tl1508215275_))) + (let ((_tl1508515285_ (let () (declare (not safe)) - (##cdr _e1513115322_))) - (_hd1513015326_ + (##cdr _e1508715278_))) + (_hd1508615282_ (let () (declare (not safe)) - (##car _e1513115322_)))) + (##car _e1508715278_)))) (if (gx#stx-datum? - _hd1513015326_) - (let ((_e1513215332_ + _hd1508615282_) + (let ((_e1508815288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1513015326_))) + (gx#stx-e _hd1508615282_))) (if (let () (declare (not safe)) - (equal? _e1513215332_ 'expr:)) - (if (gx#stx-pair? _tl1512915329_) - (let ((_e1513515336_ - (gx#syntax-e _tl1512915329_))) - (let ((_tl1513315343_ + (equal? _e1508815288_ 'expr:)) + (if (gx#stx-pair? _tl1508515285_) + (let ((_e1509115292_ + (gx#syntax-e _tl1508515285_))) + (let ((_tl1508915299_ (let () (declare (not safe)) - (##cdr _e1513515336_))) - (_hd1513415340_ + (##cdr _e1509115292_))) + (_hd1509015296_ (let () (declare (not safe)) - (##car _e1513515336_)))) - (if (gx#stx-null? _tl1513315343_) - (___kont1749617497_ - _tl1512315309_ - _hd1513415340_ - _hd1512715316_) + (##car _e1509115292_)))) + (if (gx#stx-null? _tl1508915299_) + (___kont1745217453_ + _tl1507915265_ + _hd1509015296_ + _hd1508315272_) (let () (declare (not safe)) - (_g1511815165_))))) - (let () (declare (not safe)) (_g1511815165_))) + (_g1507415121_))))) + (let () (declare (not safe)) (_g1507415121_))) (if (let () (declare (not safe)) - (equal? _e1513215332_ 'special:)) - (if (gx#stx-pair? _tl1512915329_) - (let ((_e1515115263_ - (gx#syntax-e _tl1512915329_))) - (let ((_tl1514915270_ + (equal? _e1508815288_ 'special:)) + (if (gx#stx-pair? _tl1508515285_) + (let ((_e1510715219_ + (gx#syntax-e _tl1508515285_))) + (let ((_tl1510515226_ (let () (declare (not safe)) - (##cdr _e1515115263_))) - (_hd1515015267_ + (##cdr _e1510715219_))) + (_hd1510615223_ (let () (declare (not safe)) - (##car _e1515115263_)))) - (if (gx#stx-null? _tl1514915270_) - (___kont1749817499_ - _tl1512315309_ - _hd1515015267_ - _hd1512715316_) + (##car _e1510715219_)))) + (if (gx#stx-null? _tl1510515226_) + (___kont1745417455_ + _tl1507915265_ + _hd1510615223_ + _hd1508315272_) (let () (declare (not safe)) - (_g1511815165_))))) - (let () (declare (not safe)) (_g1511815165_))) - (let () (declare (not safe)) (_g1511815165_))))) - (let () (declare (not safe)) (_g1511815165_))))) + (_g1507415121_))))) + (let () (declare (not safe)) (_g1507415121_))) + (let () (declare (not safe)) (_g1507415121_))))) + (let () (declare (not safe)) (_g1507415121_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1512615319_) - (___kont1750017501_ - _tl1512315309_ - _hd1512715316_) + _tl1508215275_) + (___kont1745617457_ + _tl1507915265_ + _hd1508315272_) (let () (declare (not safe)) - (_g1511815165_)))))) + (_g1507415121_)))))) (let () (declare (not safe)) - (_g1511815165_))))) + (_g1507415121_))))) (let () (declare (not safe)) - (_g1511715176_)))))))) - _form1503715086_)))))) + (_g1507315132_)))))))) + _form1499315042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1503215066_ - _target1502915060_ + (_loop1498815022_ + _target1498515016_ '())) - (_g1502315043_ _g1502415047_))))) - (_g1502315043_ _g1502415047_)))) - (_g1502315043_ _g1502415047_))))) - (_g1502215380_ _stx15017_))))))) + (_g1497914999_ _g1498015003_))))) + (_g1497914999_ _g1498015003_)))) + (_g1497914999_ _g1498015003_))))) + (_g1497815336_ _stx14973_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 545b66c5..92c11cbc 100644 --- a/src/bootstrap/gerbil/runtime/gambit__0.scm +++ b/src/bootstrap/gerbil/runtime/gambit__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime/gambit::timestamp 1701931847) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1704735466) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index f55be137..1c5c3675 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 1701931848) + (define gerbil/runtime/init::timestamp 1704735467) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! @@ -22,42 +22,42 @@ (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+18375_ __*readtable*)) + (letrec* ((_+readtable+18331_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core18377_ (gx#import-module ':gerbil/core)) - (_pre18379_ (gx#make-prelude-context _core18377_))) - (gx#current-expander-module-prelude _pre18379_) - (gx#core-bind-root-syntax! ':<core> _pre18379_ '#t) + (let* ((_core18333_ (gx#import-module ':gerbil/core)) + (_pre18335_ (gx#make-prelude-context _core18333_))) + (gx#current-expander-module-prelude _pre18335_) + (gx#core-bind-root-syntax! ':<core> _pre18335_ '#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*)) (for-each - (lambda (_port18382_) - (input-port-readtable-set! _port18382_ _+readtable+18375_)) + (lambda (_port18338_) + (input-port-readtable-set! _port18338_ _+readtable+18331_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port18384_) + (lambda (_port18340_) (output-port-readtable-set! - _port18384_ + _port18340_ (readtable-sharing-allowed?-set - (output-port-readtable _port18384_) + (output-port-readtable _port18340_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline18372_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline18328_) '#!void)) (define load-scheme - (lambda (_path18367_) - (let ((__tmp18386 + (lambda (_path18323_) + (let ((__tmp18342 (lambda () - (let ((__tmp18387 (lambda _args18370_ '#f))) + (let ((__tmp18343 (lambda _args18326_ '#f))) (declare (not safe)) - (##load _path18367_ __tmp18387 '#t '#t '#f))))) + (##load _path18323_ __tmp18343 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp18386 + __tmp18342 __loading-scheme-source - _path18367_)))) + _path18323_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -68,431 +68,431 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths18362_ - (apply add-library-load-path _paths18362_) - (apply add-expander-load-path _paths18362_))) + (lambda _paths18318_ + (apply add-library-load-path _paths18318_) + (apply add-expander-load-path _paths18318_))) (define add-library-load-path - (lambda _paths18351_ - (let* ((_current18353_ (current-module-library-path)) - (_paths18355_ (map path-expand _paths18351_)) - (_paths18359_ - (let ((__tmp18388 - (lambda (_x18357_) - (let ((__tmp18389 (member _x18357_ _current18353_))) + (lambda _paths18307_ + (let* ((_current18309_ (current-module-library-path)) + (_paths18311_ (map path-expand _paths18307_)) + (_paths18315_ + (let ((__tmp18344 + (lambda (_x18313_) + (let ((__tmp18345 (member _x18313_ _current18309_))) (declare (not safe)) - (not __tmp18389))))) + (not __tmp18345))))) (declare (not safe)) - (filter __tmp18388 _paths18355_)))) - (current-module-library-path (append _current18353_ _paths18359_))))) + (filter __tmp18344 _paths18311_)))) + (current-module-library-path (append _current18309_ _paths18315_))))) (define add-expander-load-path - (lambda _paths18340_ - (let* ((_current18342_ (gx#current-expander-module-library-path)) - (_paths18344_ (map path-expand _paths18340_)) - (_paths18348_ - (let ((__tmp18390 - (lambda (_x18346_) - (let ((__tmp18391 (member _x18346_ _current18342_))) + (lambda _paths18296_ + (let* ((_current18298_ (gx#current-expander-module-library-path)) + (_paths18300_ (map path-expand _paths18296_)) + (_paths18304_ + (let ((__tmp18346 + (lambda (_x18302_) + (let ((__tmp18347 (member _x18302_ _current18298_))) (declare (not safe)) - (not __tmp18391))))) + (not __tmp18347))))) (declare (not safe)) - (filter __tmp18390 _paths18344_)))) + (filter __tmp18346 _paths18300_)))) (gx#current-expander-module-library-path - (append _current18342_ _paths18348_))))) + (append _current18298_ _paths18304_))))) (define cons-load-path - (lambda _paths18338_ - (apply cons-library-load-path _paths18338_) - (apply cons-expander-load-path _paths18338_))) + (lambda _paths18294_ + (apply cons-library-load-path _paths18294_) + (apply cons-expander-load-path _paths18294_))) (define cons-library-load-path - (lambda _paths18333_ - (let ((_current18335_ (current-module-library-path)) - (_paths18336_ (map path-expand _paths18333_))) - (current-module-library-path (append _paths18336_ _current18335_))))) + (lambda _paths18289_ + (let ((_current18291_ (current-module-library-path)) + (_paths18292_ (map path-expand _paths18289_))) + (current-module-library-path (append _paths18292_ _current18291_))))) (define cons-expander-load-path - (lambda _paths18328_ - (let ((_current18330_ (gx#current-expander-module-library-path)) - (_paths18331_ (map path-expand _paths18328_))) + (lambda _paths18284_ + (let ((_current18286_ (gx#current-expander-module-library-path)) + (_paths18287_ (map path-expand _paths18284_))) (gx#current-expander-module-library-path - (append _paths18331_ _current18330_))))) + (append _paths18287_ _current18286_))))) (define with-cons-load-path - (lambda (_thunk18324_ . _paths18325_) + (lambda (_thunk18280_ . _paths18281_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk18324_ - _paths18325_)) - _paths18325_))) + _thunk18280_ + _paths18281_)) + _paths18281_))) (define with-cons-library-load-path - (lambda (_thunk18317_ . _paths18318_) - (let ((_current18320_ (current-module-library-path)) - (_paths18321_ (map path-expand _paths18318_))) - (let ((__tmp18393 (lambda () (_thunk18317_))) - (__tmp18392 (append _paths18321_ _current18320_))) + (lambda (_thunk18273_ . _paths18274_) + (let ((_current18276_ (current-module-library-path)) + (_paths18277_ (map path-expand _paths18274_))) + (let ((__tmp18349 (lambda () (_thunk18273_))) + (__tmp18348 (append _paths18277_ _current18276_))) (declare (not safe)) (call-with-parameters - __tmp18393 + __tmp18349 current-module-library-path - __tmp18392))))) + __tmp18348))))) (define with-cons-expander-load-path - (lambda (_thunk18310_ . _paths18311_) - (let ((_current18313_ (gx#current-expander-module-library-path)) - (_paths18314_ (map path-expand _paths18311_))) - (let ((__tmp18395 (lambda () (_thunk18310_))) - (__tmp18394 (append _paths18314_ _current18313_))) + (lambda (_thunk18266_ . _paths18267_) + (let ((_current18269_ (gx#current-expander-module-library-path)) + (_paths18270_ (map path-expand _paths18267_))) + (let ((__tmp18351 (lambda () (_thunk18266_))) + (__tmp18350 (append _paths18270_ _current18269_))) (declare (not safe)) (call-with-parameters - __tmp18395 + __tmp18351 gx#current-expander-module-library-path - __tmp18394))))) + __tmp18350))))) (define __expand-source - (lambda (_src18296_) - (letrec ((_expand18298_ - (lambda (_src18308_) - (let ((__tmp18396 + (lambda (_src18252_) + (letrec ((_expand18254_ + (lambda (_src18264_) + (let ((__tmp18352 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src18308_))))) + (__source->syntax _src18264_))))) (declare (not safe)) - (__compile-top __tmp18396)))) - (_no-expand18299_ - (lambda (_src18304_) + (__compile-top __tmp18352)))) + (_no-expand18255_ + (lambda (_src18260_) (if (__loading-scheme-source) - _src18304_ + _src18260_ (if (let () (declare (not safe)) - (##source? _src18304_)) - (let ((_code18306_ + (##source? _src18260_)) + (let ((_code18262_ (let () (declare (not safe)) - (##source-code _src18304_)))) + (##source-code _src18260_)))) (if (let () (declare (not safe)) - (pair? _code18306_)) - (if (let ((__tmp18397 + (pair? _code18262_)) + (if (let ((__tmp18353 (let () (declare (not safe)) - (##car _code18306_)))) + (##car _code18262_)))) (declare (not safe)) - (eq? '__noexpand: __tmp18397)) + (eq? '__noexpand: __tmp18353)) (let () (declare (not safe)) - (##cdr _code18306_)) + (##cdr _code18262_)) '#f) '#f)) '#f))))) - (let ((_$e18301_ - (let () (declare (not safe)) (_no-expand18299_ _src18296_)))) - (if _$e18301_ - _$e18301_ - (let () (declare (not safe)) (_expand18298_ _src18296_))))))) + (let ((_$e18257_ + (let () (declare (not safe)) (_no-expand18255_ _src18252_)))) + (if _$e18257_ + _$e18257_ + (let () (declare (not safe)) (_expand18254_ _src18252_))))))) (define __macro-descr - (lambda (_src18282_ _def-syntax?18283_) - (letrec ((_fail!18285_ + (lambda (_src18238_ _def-syntax?18239_) + (letrec ((_fail!18241_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src18282_)))) - (_make-descr18286_ - (lambda (_size18290_) - (let ((_expander18293_ - (let ((__tmp18398 + _src18238_)))) + (_make-descr18242_ + (lambda (_size18246_) + (let ((_expander18249_ + (let ((__tmp18354 (lambda () (let () (declare (not safe)) (##eval-top - _src18282_ + _src18238_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp18398 + __tmp18354 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander18293_)) + (procedure? _expander18249_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?18283_ - _size18290_ - _expander18293_ - _src18282_)) - (let () (declare (not safe)) (_fail!18285_))))))) - (if _def-syntax?18283_ - (let () (declare (not safe)) (_make-descr18286_ '-1)) - (let ((_code18288_ - (let () (declare (not safe)) (##source-code _src18282_)))) - (if (and (let () (declare (not safe)) (##pair? _code18288_)) - (let ((__tmp18402 - (let ((__tmp18403 - (let ((__tmp18404 + _def-syntax?18239_ + _size18246_ + _expander18249_ + _src18238_)) + (let () (declare (not safe)) (_fail!18241_))))))) + (if _def-syntax?18239_ + (let () (declare (not safe)) (_make-descr18242_ '-1)) + (let ((_code18244_ + (let () (declare (not safe)) (##source-code _src18238_)))) + (if (and (let () (declare (not safe)) (##pair? _code18244_)) + (let ((__tmp18358 + (let ((__tmp18359 + (let ((__tmp18360 (let () (declare (not safe)) - (##car _code18288_)))) + (##car _code18244_)))) (declare (not safe)) - (##sourcify __tmp18404 _src18282_)))) + (##sourcify __tmp18360 _src18238_)))) (declare (not safe)) - (##source-code __tmp18403)))) + (##source-code __tmp18359)))) (declare (not safe)) - (##memq __tmp18402 '(##lambda lambda)))) + (##memq __tmp18358 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src18282_ _src18282_ '-3)) - (let ((__tmp18399 - (let ((__tmp18400 - (let ((__tmp18401 + (##shape _src18238_ _src18238_ '-3)) + (let ((__tmp18355 + (let ((__tmp18356 + (let ((__tmp18357 (let () (declare (not safe)) - (##cadr _code18288_)))) + (##cadr _code18244_)))) (declare (not safe)) - (##sourcify __tmp18401 _src18282_)))) + (##sourcify __tmp18357 _src18238_)))) (declare (not safe)) - (##form-size __tmp18400)))) + (##form-size __tmp18356)))) (declare (not safe)) - (_make-descr18286_ __tmp18399))) - (let () (declare (not safe)) (_fail!18285_)))))))) + (_make-descr18242_ __tmp18355))) + (let () (declare (not safe)) (_fail!18241_)))))))) (define __source->syntax - (lambda (_src18276_) - (let _recur18278_ ((_e18280_ _src18276_)) - (if (let () (declare (not safe)) (##source? _e18280_)) - (let ((__tmp18412 - (let ((__tmp18413 + (lambda (_src18232_) + (let _recur18234_ ((_e18236_ _src18232_)) + (if (let () (declare (not safe)) (##source? _e18236_)) + (let ((__tmp18368 + (let ((__tmp18369 (let () (declare (not safe)) - (##source-code _e18280_)))) + (##source-code _e18236_)))) (declare (not safe)) - (_recur18278_ __tmp18413))) - (__tmp18411 - (let () (declare (not safe)) (##source-locat _e18280_)))) + (_recur18234_ __tmp18369))) + (__tmp18367 + (let () (declare (not safe)) (##source-locat _e18236_)))) (declare (not safe)) - (##structure AST::t __tmp18412 __tmp18411)) - (if (let () (declare (not safe)) (pair? _e18280_)) - (let ((__tmp18409 - (let ((__tmp18410 + (##structure AST::t __tmp18368 __tmp18367)) + (if (let () (declare (not safe)) (pair? _e18236_)) + (let ((__tmp18365 + (let ((__tmp18366 (let () (declare (not safe)) - (##car _e18280_)))) + (##car _e18236_)))) (declare (not safe)) - (_recur18278_ __tmp18410))) - (__tmp18407 - (let ((__tmp18408 + (_recur18234_ __tmp18366))) + (__tmp18363 + (let ((__tmp18364 (let () (declare (not safe)) - (##cdr _e18280_)))) + (##cdr _e18236_)))) (declare (not safe)) - (_recur18278_ __tmp18408)))) + (_recur18234_ __tmp18364)))) (declare (not safe)) - (cons __tmp18409 __tmp18407)) - (if (let () (declare (not safe)) (vector? _e18280_)) - (vector-map _recur18278_ _e18280_) - (if (let () (declare (not safe)) (box? _e18280_)) - (let ((__tmp18405 - (let ((__tmp18406 (unbox _e18280_))) + (cons __tmp18365 __tmp18363)) + (if (let () (declare (not safe)) (vector? _e18236_)) + (vector-map _recur18234_ _e18236_) + (if (let () (declare (not safe)) (box? _e18236_)) + (let ((__tmp18361 + (let ((__tmp18362 (unbox _e18236_))) (declare (not safe)) - (_recur18278_ __tmp18406)))) + (_recur18234_ __tmp18362)))) (declare (not safe)) - (box __tmp18405)) - _e18280_))))))) + (box __tmp18361)) + _e18236_))))))) (define __compile-top-source - (lambda (_stx18274_) - (let ((__tmp18414 - (let () (declare (not safe)) (__compile-top _stx18274_)))) + (lambda (_stx18230_) + (let ((__tmp18370 + (let () (declare (not safe)) (__compile-top _stx18230_)))) (declare (not safe)) - (cons '__noexpand: __tmp18414)))) + (cons '__noexpand: __tmp18370)))) (define __compile-top - (lambda (_stx18272_) - (let ((__tmp18415 (gx#core-compile-top-syntax _stx18272_))) + (lambda (_stx18228_) + (let ((__tmp18371 (gx#core-compile-top-syntax _stx18228_))) (declare (not safe)) - (__compile __tmp18415)))) + (__compile __tmp18371)))) (define __eval-import - (lambda (_in18253_) - (letrec* ((_mods18255_ + (lambda (_in18209_) + (letrec* ((_mods18211_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import118256_ - (lambda (_in18263_ _phi18264_) - (if (gx#module-import? _in18263_) - (let ((_iphi18266_ - (fx+ _phi18264_ - (gx#module-import-phi _in18263_)))) + (_import118212_ + (lambda (_in18219_ _phi18220_) + (if (gx#module-import? _in18219_) + (let ((_iphi18222_ + (fx+ _phi18220_ + (gx#module-import-phi _in18219_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18266_)) - (let ((__tmp18417 + (fxzero? _iphi18222_)) + (let ((__tmp18373 (gx#module-export-context - (gx#module-import-source _in18263_)))) + (gx#module-import-source _in18219_)))) (declare (not safe)) - (_eval118257_ __tmp18417)) + (_eval118213_ __tmp18373)) '#!void)) - (if (gx#module-context? _in18263_) + (if (gx#module-context? _in18219_) (if (let () (declare (not safe)) - (fxzero? _phi18264_)) + (fxzero? _phi18220_)) (let () (declare (not safe)) - (_eval118257_ _in18263_)) + (_eval118213_ _in18219_)) '#!void) - (if (gx#import-set? _in18263_) - (let ((_iphi18268_ - (fx+ _phi18264_ - (gx#import-set-phi _in18263_)))) + (if (gx#import-set? _in18219_) + (let ((_iphi18224_ + (fx+ _phi18220_ + (gx#import-set-phi _in18219_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18268_)) - (let ((__tmp18416 + (fxzero? _iphi18224_)) + (let ((__tmp18372 (gx#import-set-source - _in18263_))) + _in18219_))) (declare (not safe)) - (_eval118257_ __tmp18416)) - (if (fxpositive? _iphi18268_) + (_eval118213_ __tmp18372)) + (if (fxpositive? _iphi18224_) (for-each - (lambda (_in18270_) + (lambda (_in18226_) (let () (declare (not safe)) - (_import118256_ - _in18270_ - _iphi18268_))) + (_import118212_ + _in18226_ + _iphi18224_))) (gx#module-context-import - (gx#import-set-source _in18263_))) + (gx#import-set-source _in18219_))) '#!void))) - (error '"Unexpected import" _in18263_)))))) - (_eval118257_ - (lambda (_ctx18261_) + (error '"Unexpected import" _in18219_)))))) + (_eval118213_ + (lambda (_ctx18217_) (if (let () (declare (not safe)) - (table-ref _mods18255_ _ctx18261_ '#f)) + (table-ref _mods18211_ _ctx18217_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods18255_ _ctx18261_ '#t)) - (__eval-module _ctx18261_)))))) - (if (let () (declare (not safe)) (pair? _in18253_)) + (table-set! _mods18211_ _ctx18217_ '#t)) + (__eval-module _ctx18217_)))))) + (if (let () (declare (not safe)) (pair? _in18209_)) (for-each - (lambda (_in18259_) - (let () (declare (not safe)) (_import118256_ _in18259_ '0))) - _in18253_) - (let () (declare (not safe)) (_import118256_ _in18253_ '0)))))) + (lambda (_in18215_) + (let () (declare (not safe)) (_import118212_ _in18215_ '0))) + _in18209_) + (let () (declare (not safe)) (_import118212_ _in18209_ '0)))))) (define __eval-module - (lambda (_obj18246_) - (let* ((_key18248_ - (if (gx#module-context? _obj18246_) - (gx#module-context-path _obj18246_) - _obj18246_)) - (_$e18250_ + (lambda (_obj18202_) + (let* ((_key18204_ + (if (gx#module-context? _obj18202_) + (gx#module-context-path _obj18202_) + _obj18202_)) + (_$e18206_ (let () (declare (not safe)) - (table-ref __*modules* _key18248_ '#f)))) - (if _$e18250_ (values _$e18250_) (gx#core-eval-module _obj18246_))))) + (table-ref __*modules* _key18204_ '#f)))) + (if _$e18206_ (values _$e18206_) (gx#core-eval-module _obj18202_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules18181_) + (lambda (_builtin-modules18137_) (if __runtime-initialized '#!void (begin - (let* ((_home18183_ (let () (declare (not safe)) (gerbil-home))) - (_libdir18185_ (path-expand '"lib" _home18183_)) - (_userpath18187_ + (let* ((_home18139_ (let () (declare (not safe)) (gerbil-home))) + (_libdir18141_ (path-expand '"lib" _home18139_)) + (_userpath18143_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath18189_ + (_loadpath18145_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir18185_ '())) - (let ((__tmp18418 + (cons _libdir18141_ '())) + (let ((__tmp18374 (let () (declare (not safe)) - (cons _libdir18185_ '())))) + (cons _libdir18141_ '())))) (declare (not safe)) - (cons _userpath18187_ __tmp18418)))) - (_loadpath18198_ - (let ((_$e18191_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e18191_ - ((lambda (_envvar18194_) - (append (let ((__tmp18420 - (lambda (_x18196_) - (let ((__tmp18421 + (cons _userpath18143_ __tmp18374)))) + (_loadpath18154_ + (let ((_$e18147_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e18147_ + ((lambda (_envvar18150_) + (append (let ((__tmp18376 + (lambda (_x18152_) + (let ((__tmp18377 (let () (declare (not safe)) (string-empty? - _x18196_)))) + _x18152_)))) (declare (not safe)) - (not __tmp18421)))) - (__tmp18419 + (not __tmp18377)))) + (__tmp18375 (let () (declare (not safe)) (string-split - _envvar18194_ + _envvar18150_ '#\:)))) (declare (not safe)) - (filter __tmp18420 __tmp18419)) - _loadpath18189_)) - _$e18191_) - _loadpath18189_)))) - (current-module-library-path _loadpath18198_)) - (let* ((_registry-entry18203_ - (lambda (_m18201_) + (filter __tmp18376 __tmp18375)) + _loadpath18145_)) + _$e18147_) + _loadpath18145_)))) + (current-module-library-path _loadpath18154_)) + (let* ((_registry-entry18159_ + (lambda (_m18157_) (let () (declare (not safe)) - (cons _m18201_ 'builtin)))) - (_module-registry18243_ - (let _lp18205_ ((_rest18207_ _builtin-modules18181_) - (_registry18208_ '())) - (let* ((_rest1820918217_ _rest18207_) - (_else1821118225_ + (cons _m18157_ 'builtin)))) + (_module-registry18199_ + (let _lp18161_ ((_rest18163_ _builtin-modules18137_) + (_registry18164_ '())) + (let* ((_rest1816518173_ _rest18163_) + (_else1816718181_ (lambda () (let () (declare (not safe)) - (list->table _registry18208_)))) - (_K1821318231_ - (lambda (_rest18228_ _mod18229_) - (let ((__tmp18422 - (let ((__tmp18426 - (let ((__tmp18427 + (list->table _registry18164_)))) + (_K1816918187_ + (lambda (_rest18184_ _mod18185_) + (let ((__tmp18378 + (let ((__tmp18382 + (let ((__tmp18383 (string-append - _mod18229_ + _mod18185_ '"__0"))) (declare (not safe)) - (_registry-entry18203_ - __tmp18427))) - (__tmp18423 - (let ((__tmp18424 - (let ((__tmp18425 + (_registry-entry18159_ + __tmp18383))) + (__tmp18379 + (let ((__tmp18380 + (let ((__tmp18381 (string-append - _mod18229_ + _mod18185_ '"__rt"))) (declare (not safe)) - (_registry-entry18203_ - __tmp18425)))) + (_registry-entry18159_ + __tmp18381)))) (declare (not safe)) - (cons __tmp18424 - _registry18208_)))) + (cons __tmp18380 + _registry18164_)))) (declare (not safe)) - (cons __tmp18426 __tmp18423)))) + (cons __tmp18382 __tmp18379)))) (declare (not safe)) - (_lp18205_ _rest18228_ __tmp18422))))) + (_lp18161_ _rest18184_ __tmp18378))))) (if (let () (declare (not safe)) - (##pair? _rest1820918217_)) - (let ((_hd1821418234_ + (##pair? _rest1816518173_)) + (let ((_hd1817018190_ (let () (declare (not safe)) - (##car _rest1820918217_))) - (_tl1821518236_ + (##car _rest1816518173_))) + (_tl1817118192_ (let () (declare (not safe)) - (##cdr _rest1820918217_)))) - (let* ((_mod18239_ _hd1821418234_) - (_rest18241_ _tl1821518236_)) + (##cdr _rest1816518173_)))) + (let* ((_mod18195_ _hd1817018190_) + (_rest18197_ _tl1817118192_)) (declare (not safe)) - (_K1821318231_ _rest18241_ _mod18239_))) + (_K1816918187_ _rest18197_ _mod18195_))) (let () (declare (not safe)) - (_else1821118225_))))))) - (current-module-registry _module-registry18243_)) + (_else1816718181_))))))) + (current-module-registry _module-registry18199_)) (current-readtable __*readtable*) (random-source-randomize! default-random-source) (set! __runtime-initialized '#t))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 05b6e302..6dffd977 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 1701931847) + (define gerbil/runtime/loader::timestamp 1704735467) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 51a9b4d4..d8707c54 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -14,7 +14,7 @@ namespace: #f (%#define-runtime type-final? type-final?) (%#define-runtime struct-type? struct-type?) (%#define-runtime class-type? class-type?) - (%#define-runtime alist-form alist-form) + (%#define-runtime properties-form properties-form) (%#define-runtime make-type-descriptor make-type-descriptor) (%#define-runtime make-type-descriptor* make-type-descriptor*) (%#define-runtime @@ -24,7 +24,9 @@ namespace: #f (%#define-runtime type-descriptor-slot-table type-descriptor-slot-table) - (%#define-runtime type-descriptor-alist type-descriptor-alist) + (%#define-runtime + type-descriptor-properties + type-descriptor-properties) (%#define-runtime type-descriptor-constructor type-descriptor-constructor) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 56073644..df774fd7 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -9,13 +9,13 @@ package: gerbil/runtime (declare-type type-final? (@lambda 1 #f)) (declare-type struct-type? (@lambda 1 #f)) (declare-type class-type? (@lambda 1 #f)) - (declare-type alist-form (@lambda 1 #f)) + (declare-type properties-form (@lambda 1 #f)) (declare-type make-type-descriptor (@lambda 9 make-type-descriptor*)) (declare-type make-type-descriptor* (@lambda 9 #f)) (declare-type type-descriptor-precedence-list (@lambda 1 #f)) (declare-type type-descriptor-all-slots (@lambda 1 #f)) (declare-type type-descriptor-slot-table (@lambda 1 #f)) - (declare-type type-descriptor-alist (@lambda 1 #f)) + (declare-type type-descriptor-properties (@lambda 1 #f)) (declare-type type-descriptor-constructor (@lambda 1 #f)) (declare-type type-descriptor-methods (@lambda 1 #f)) (declare-type type-descriptor-methods-set! (@lambda 2 #f)) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 65bc546b..733c98e0 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2210 +1,2224 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1701931848) + (define gerbil/runtime/mop::timestamp 1704735467) (begin (define type-id - (lambda (_klass10672_) - (if (let () (declare (not safe)) (type-descriptor? _klass10672_)) - (let () (declare (not safe)) (##type-id _klass10672_)) - (if (let () (declare (not safe)) (not _klass10672_)) + (lambda (_klass10625_) + (if (let () (declare (not safe)) (type-descriptor? _klass10625_)) + (let () (declare (not safe)) (##type-id _klass10625_)) + (if (let () (declare (not safe)) (not _klass10625_)) '#f - (error '"Not a class or #f" _klass10672_))))) + (error '"Not a class or #f" _klass10625_))))) (define type=? - (lambda (_x10669_ _y10670_) - (let ((__tmp10697 (let () (declare (not safe)) (type-id _x10669_))) - (__tmp10696 (let () (declare (not safe)) (type-id _y10670_)))) + (lambda (_x10622_ _y10623_) + (let ((__tmp10650 (let () (declare (not safe)) (type-id _x10622_))) + (__tmp10649 (let () (declare (not safe)) (type-id _y10623_)))) (declare (not safe)) - (eq? __tmp10697 __tmp10696)))) + (eq? __tmp10650 __tmp10649)))) (define type-descriptor? - (lambda (_klass10667_) - (if (let () (declare (not safe)) (##type? _klass10667_)) - (let ((__tmp10698 + (lambda (_klass10620_) + (if (let () (declare (not safe)) (##type? _klass10620_)) + (let ((__tmp10651 (let () (declare (not safe)) - (##structure-length _klass10667_)))) + (##structure-length _klass10620_)))) (declare (not safe)) - (eq? __tmp10698 '12)) + (eq? __tmp10651 '12)) '#f))) (define type-struct? - (lambda (_klass10665_) - (let ((__tmp10699 + (lambda (_klass10618_) + (let ((__tmp10652 (let () (declare (not safe)) - (type-descriptor-alist _klass10665_)))) + (type-descriptor-properties _klass10618_)))) (declare (not safe)) - (assgetq 'struct: __tmp10699)))) + (assgetq 'struct: __tmp10652)))) (define type-final? - (lambda (_klass10663_) - (let ((__tmp10700 + (lambda (_klass10616_) + (let ((__tmp10653 (let () (declare (not safe)) - (type-descriptor-alist _klass10663_)))) + (type-descriptor-properties _klass10616_)))) (declare (not safe)) - (assgetq 'final: __tmp10700)))) + (assgetq 'final: __tmp10653)))) (define struct-type? - (lambda (_klass10661_) - (if (let () (declare (not safe)) (type-descriptor? _klass10661_)) - (let () (declare (not safe)) (type-struct? _klass10661_)) + (lambda (_klass10614_) + (if (let () (declare (not safe)) (type-descriptor? _klass10614_)) + (let () (declare (not safe)) (type-struct? _klass10614_)) '#f))) (define class-type? - (lambda (_klass10659_) - (if (let () (declare (not safe)) (type-descriptor? _klass10659_)) - (let ((__tmp10701 - (let () (declare (not safe)) (type-struct? _klass10659_)))) + (lambda (_klass10612_) + (if (let () (declare (not safe)) (type-descriptor? _klass10612_)) + (let ((__tmp10654 + (let () (declare (not safe)) (type-struct? _klass10612_)))) (declare (not safe)) - (not __tmp10701)) + (not __tmp10654)) '#f))) - (define alist-form - (lambda (_alist10625_) - (map (lambda (_e1062610628_) - (let* ((_g1063010637_ _e1062610628_) - (_E1063210641_ - (lambda () (error '"No clause matching" _g1063010637_))) - (_K1063310647_ - (lambda (_val10644_ _key10645_) + (define properties-form + (lambda (_properties10578_) + (map (lambda (_e1057910581_) + (let* ((_g1058310590_ _e1057910581_) + (_E1058510594_ + (lambda () (error '"No clause matching" _g1058310590_))) + (_K1058610600_ + (lambda (_val10597_ _key10598_) (if (let () (declare (not safe)) - (eq? _key10645_ 'direct-supers:)) - (let ((__tmp10702 (map type-id _val10644_))) + (eq? _key10598_ 'direct-supers:)) + (let ((__tmp10655 (map type-id _val10597_))) (declare (not safe)) - (cons _key10645_ __tmp10702)) + (cons _key10598_ __tmp10655)) (let () (declare (not safe)) - (cons _key10645_ _val10644_)))))) - (if (let () (declare (not safe)) (##pair? _g1063010637_)) - (let ((_hd1063410650_ + (cons _key10598_ _val10597_)))))) + (if (let () (declare (not safe)) (##pair? _g1058310590_)) + (let ((_hd1058710603_ (let () (declare (not safe)) - (##car _g1063010637_))) - (_tl1063510652_ + (##car _g1058310590_))) + (_tl1058810605_ (let () (declare (not safe)) - (##cdr _g1063010637_)))) - (let* ((_key10655_ _hd1063410650_) - (_val10657_ _tl1063510652_)) + (##cdr _g1058310590_)))) + (let* ((_key10608_ _hd1058710603_) + (_val10610_ _tl1058810605_)) (declare (not safe)) - (_K1063310647_ _val10657_ _key10655_))) - (let () (declare (not safe)) (_E1063210641_))))) - _alist10625_))) + (_K1058610600_ _val10610_ _key10608_))) + (let () (declare (not safe)) (_E1058510594_))))) + _properties10578_))) (define make-type-descriptor - (lambda (_type-id10615_ - _type-name10616_ - _type-super10617_ - _rtd-mixin10618_ - _rtd-fields10619_ - _rtd-plist10620_ - _rtd-ctor10621_ - _rtd-slots10622_ - _rtd-methods10623_) + (lambda (_type-id10568_ + _type-name10569_ + _type-super10570_ + _rtd-mixin10571_ + _rtd-fields10572_ + _rtd-plist10573_ + _rtd-ctor10574_ + _rtd-slots10575_ + _rtd-methods10576_) (let () (declare (not safe)) (make-type-descriptor* - _type-id10615_ - _type-name10616_ - _type-super10617_ - _rtd-mixin10618_ - _rtd-fields10619_ - _rtd-plist10620_ - _rtd-ctor10621_ - _rtd-slots10622_ - _rtd-methods10623_)))) + _type-id10568_ + _type-name10569_ + _type-super10570_ + _rtd-mixin10571_ + _rtd-fields10572_ + _rtd-plist10573_ + _rtd-ctor10574_ + _rtd-slots10575_ + _rtd-methods10576_)))) (define make-type-descriptor* - (lambda (_type-id10527_ - _type-name10528_ - _type-super10529_ - _precedence-list10530_ - _all-slots10531_ - _alist10532_ - _constructor10533_ - _slot-table10534_ - _methods10535_) - (letrec ((_put-props!10537_ - (lambda (_ht10587_ _key10588_) - (letrec ((_put-slots!10590_ - (lambda (_ht10608_ _slots10609_) - (for-each - (lambda (_g1061010612_) - (let () - (declare (not safe)) - (table-set! _ht10608_ _g1061010612_ '#t))) - _slots10609_))) - (_put-alist!10591_ - (lambda (_ht10597_ _key10598_ _alist10599_) - (let ((_$e10601_ - (let () - (declare (not safe)) - (assgetq _key10598_ _alist10599_)))) - (if _$e10601_ - ((lambda (_g1060310605_) - (let () - (declare (not safe)) - (_put-slots!10590_ - _ht10597_ - _g1060310605_))) - _$e10601_) - '#!void))))) + (lambda (_type-id10481_ + _type-name10482_ + _type-super10483_ + _precedence-list10484_ + _all-slots10485_ + _properties10486_ + _constructor10487_ + _slot-table10488_ + _methods10489_) + (letrec ((_make-props!10491_ + (lambda (_key10537_) + (letrec* ((_ht10539_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_put-slots!10540_ + (lambda (_ht10561_ _slots10562_) + (for-each + (lambda (_g1056310565_) + (let () + (declare (not safe)) + (table-set! + _ht10561_ + _g1056310565_ + '#t))) + _slots10562_))) + (_put-alist!10541_ + (lambda (_ht10550_ _key10551_ _alist10552_) + (let ((_$e10554_ + (let () + (declare (not safe)) + (assgetq _key10551_ _alist10552_)))) + (if _$e10554_ + ((lambda (_g1055610558_) + (let () + (declare (not safe)) + (_put-slots!10540_ + _ht10550_ + _g1055610558_))) + _$e10554_) + '#!void))))) (let () (declare (not safe)) - (_put-alist!10591_ _ht10587_ _key10588_ _alist10532_)) + (_put-alist!10541_ + _ht10539_ + _key10537_ + _properties10486_)) (for-each - (lambda (_mixin10593_) - (let ((_alist10595_ + (lambda (_mixin10543_) + (let ((_alist10545_ (let () (declare (not safe)) - (type-descriptor-alist _mixin10593_)))) - (if (let () - (declare (not safe)) - (assgetq 'transparent: _alist10595_)) - (let ((__tmp10703 + (type-descriptor-properties _mixin10543_)))) + (if (or (let () + (declare (not safe)) + (assgetq 'transparent: _alist10545_)) + (let ((__tmp10657 + (let () + (declare (not safe)) + (assgetq _key10537_ + _alist10545_)))) + (declare (not safe)) + (eq? '#t __tmp10657))) + (let ((__tmp10656 (cdr (vector->list (let () (declare (not safe)) (type-descriptor-all-slots - _mixin10593_)))))) + _mixin10543_)))))) (declare (not safe)) - (_put-slots!10590_ _ht10587_ __tmp10703)) + (_put-slots!10540_ _ht10539_ __tmp10656)) (let () (declare (not safe)) - (_put-alist!10591_ - _ht10587_ - _key10588_ - _alist10595_))))) - _precedence-list10530_))))) - (let* ((_transparent?10539_ + (_put-alist!10541_ + _ht10539_ + _key10537_ + _alist10545_))))) + _precedence-list10484_) + _ht10539_)))) + (let* ((_transparent?10493_ (let () (declare (not safe)) - (assgetq 'transparent: _alist10532_))) - (_all-slots-printable?10544_ - (let ((_$e10541_ _transparent?10539_)) - (if _$e10541_ - _$e10541_ - (let () - (declare (not safe)) - (assgetq 'print: _alist10532_))))) - (_printable10548_ - (if _all-slots-printable?10544_ - '#f - (let ((_ht10546_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) - (let () - (declare (not safe)) - (_put-props!10537_ _ht10546_ 'print:)) - _ht10546_))) - (_all-slots-equalable?10553_ - (let ((_$e10550_ _transparent?10539_)) - (if _$e10550_ - _$e10550_ - (let () + (assgetq 'transparent: _properties10486_))) + (_all-slots-printable?10498_ + (let ((_$e10495_ _transparent?10493_)) + (if _$e10495_ + _$e10495_ + (let ((__tmp10658 + (let () + (declare (not safe)) + (assgetq 'print: _properties10486_)))) (declare (not safe)) - (assgetq 'equal: _alist10532_))))) - (_equalable10557_ - (if _all-slots-equalable?10553_ - '#f - (let ((_ht10555_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) - (let () + (eq? '#t __tmp10658))))) + (_printable10500_ + (if (let () + (declare (not safe)) + (not _all-slots-printable?10498_)) + (let () + (declare (not safe)) + (_make-props!10491_ 'print:)) + '#f)) + (_all-slots-equalable?10505_ + (let ((_$e10502_ _transparent?10493_)) + (if _$e10502_ + _$e10502_ + (let ((__tmp10659 + (let () + (declare (not safe)) + (assgetq 'equal: _properties10486_)))) (declare (not safe)) - (_put-props!10537_ _ht10555_ 'equal:)) - _ht10555_))) - (_first-new-field10559_ - (if _type-super10529_ + (eq? '#t __tmp10659))))) + (_equalable10507_ + (if (let () + (declare (not safe)) + (not _all-slots-equalable?10505_)) + (let () + (declare (not safe)) + (_make-props!10491_ 'equal:)) + '#f)) + (_first-new-field10509_ + (if _type-super10483_ (vector-length (let () (declare (not safe)) - (type-descriptor-all-slots _type-super10529_))) + (type-descriptor-all-slots _type-super10483_))) '1)) - (_field-info-length10561_ + (_field-info-length10511_ (* '3 - (- (vector-length _all-slots10531_) - _first-new-field10559_))) - (_field-info10563_ (make-vector _field-info-length10561_ '#f)) - (_opaque?10568_ - (let ((_$e10565_ + (- (vector-length _all-slots10485_) + _first-new-field10509_))) + (_field-info10513_ (make-vector _field-info-length10511_ '#f)) + (_opaque?10518_ + (let ((_$e10515_ (let () (declare (not safe)) - (not _all-slots-equalable?10553_)))) - (if _$e10565_ - _$e10565_ - (if _type-super10529_ - (let ((__tmp10704 - (let ((__tmp10705 + (not _all-slots-equalable?10505_)))) + (if _$e10515_ + _$e10515_ + (if _type-super10483_ + (let ((__tmp10660 + (let ((__tmp10661 (let () (declare (not safe)) - (##type-flags _type-super10529_)))) + (##type-flags _type-super10483_)))) (declare (not safe)) - (##fxand __tmp10705 '1)))) + (##fxand __tmp10661 '1)))) (declare (not safe)) - (##fx= __tmp10704 '1)) + (##fx= __tmp10660 '1)) '#f))))) - (let _loop10571_ ((_i10573_ _first-new-field10559_) (_j10574_ '0)) - (if (< _j10574_ _field-info-length10561_) - (let* ((_slot10576_ (vector-ref _all-slots10531_ _i10573_)) - (_flags10584_ - (if _transparent?10539_ + (let _loop10521_ ((_i10523_ _first-new-field10509_) (_j10524_ '0)) + (if (< _j10524_ _field-info-length10511_) + (let* ((_slot10526_ (vector-ref _all-slots10485_ _i10523_)) + (_flags10534_ + (if _transparent?10493_ '0 - (let ((__tmp10707 - (if (or _all-slots-printable?10544_ + (let ((__tmp10663 + (if (or _all-slots-printable?10498_ (let () (declare (not safe)) (table-ref - _printable10548_ - _slot10576_ + _printable10500_ + _slot10526_ '#f))) '0 '1)) - (__tmp10706 - (if (or _all-slots-equalable?10553_ + (__tmp10662 + (if (or _all-slots-equalable?10505_ (let () (declare (not safe)) (table-ref - _equalable10557_ - _slot10576_ + _equalable10507_ + _slot10526_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp10707 __tmp10706))))) - (vector-set! _field-info10563_ _j10574_ _slot10576_) + (##fxior __tmp10663 __tmp10662))))) + (vector-set! _field-info10513_ _j10524_ _slot10526_) (vector-set! - _field-info10563_ - (let () (declare (not safe)) (fx+ _j10574_ '1)) - _flags10584_) - (let ((__tmp10709 - (let () (declare (not safe)) (fx+ _i10573_ '1))) - (__tmp10708 - (let () (declare (not safe)) (##fx+ _j10574_ '3)))) + _field-info10513_ + (let () (declare (not safe)) (fx+ _j10524_ '1)) + _flags10534_) + (let ((__tmp10665 + (let () (declare (not safe)) (fx+ _i10523_ '1))) + (__tmp10664 + (let () (declare (not safe)) (##fx+ _j10524_ '3)))) (declare (not safe)) - (_loop10571_ __tmp10709 __tmp10708))) + (_loop10521_ __tmp10665 __tmp10664))) '#!void)) - (let ((__tmp10710 (if _opaque?10568_ '25 '24))) + (let ((__tmp10666 (if _opaque?10518_ '25 '24))) (declare (not safe)) (##structure ##type-type - _type-id10527_ - _type-name10528_ - __tmp10710 - _type-super10529_ - _field-info10563_ - _precedence-list10530_ - _all-slots10531_ - _slot-table10534_ - _alist10532_ - _constructor10533_ - _methods10535_)))))) + _type-id10481_ + _type-name10482_ + __tmp10666 + _type-super10483_ + _field-info10513_ + _precedence-list10484_ + _all-slots10485_ + _slot-table10488_ + _properties10486_ + _constructor10487_ + _methods10489_)))))) (define type-descriptor-precedence-list - (lambda (_klass10525_) - (let () (declare (not safe)) (##vector-ref _klass10525_ '6)))) + (lambda (_klass10479_) + (let () (declare (not safe)) (##vector-ref _klass10479_ '6)))) (define type-descriptor-all-slots - (lambda (_klass10523_) - (let () (declare (not safe)) (##vector-ref _klass10523_ '7)))) + (lambda (_klass10477_) + (let () (declare (not safe)) (##vector-ref _klass10477_ '7)))) (define type-descriptor-slot-table - (lambda (_klass10521_) - (let () (declare (not safe)) (##vector-ref _klass10521_ '8)))) - (define type-descriptor-alist - (lambda (_klass10519_) - (let () (declare (not safe)) (##vector-ref _klass10519_ '9)))) + (lambda (_klass10475_) + (let () (declare (not safe)) (##vector-ref _klass10475_ '8)))) + (define type-descriptor-properties + (lambda (_klass10473_) + (let () (declare (not safe)) (##vector-ref _klass10473_ '9)))) (define type-descriptor-constructor - (lambda (_klass10517_) - (let () (declare (not safe)) (##vector-ref _klass10517_ '10)))) + (lambda (_klass10471_) + (let () (declare (not safe)) (##vector-ref _klass10471_ '10)))) (define type-descriptor-methods - (lambda (_klass10515_) - (let () (declare (not safe)) (##vector-ref _klass10515_ '11)))) + (lambda (_klass10469_) + (let () (declare (not safe)) (##vector-ref _klass10469_ '11)))) (define type-descriptor-methods-set! - (lambda (_klass10512_ _ht10513_) + (lambda (_klass10466_ _ht10467_) (let () (declare (not safe)) - (##vector-set! _klass10512_ '11 _ht10513_)))) + (##vector-set! _klass10466_ '11 _ht10467_)))) (define type-descriptor-mixin type-descriptor-precedence-list) - (define type-descriptor-plist type-descriptor-alist) + (define type-descriptor-plist type-descriptor-properties) (define type-descriptor-ctor type-descriptor-constructor) (define type-descriptor-fields - (lambda (_klass10510_) - (let ((__tmp10711 + (lambda (_klass10464_) + (let ((__tmp10667 (vector-length (let () (declare (not safe)) - (type-descriptor-all-slots _klass10510_))))) + (type-descriptor-all-slots _klass10464_))))) (declare (not safe)) - (fx- __tmp10711 '1)))) + (##fx- __tmp10667 '1)))) (define type-descriptor-slots - (lambda (_klass10503_) - (let ((_h10505_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp10713 - (lambda (_k10507_ _v10508_) - (let ((__tmp10714 - (let () (declare (not safe)) (fx+ _v10508_ '1)))) + (lambda (_klass10457_) + (let ((_h10459_ (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp10669 + (lambda (_k10461_ _v10462_) + (let ((__tmp10670 + (let () (declare (not safe)) (fx+ _v10462_ '1)))) (declare (not safe)) - (table-set! _h10505_ _k10507_ __tmp10714)))) - (__tmp10712 + (table-set! _h10459_ _k10461_ __tmp10670)))) + (__tmp10668 (let () (declare (not safe)) - (type-descriptor-slot-table _klass10503_)))) + (type-descriptor-slot-table _klass10457_)))) (declare (not safe)) - (table-for-each __tmp10713 __tmp10712)) - _h10505_))) + (table-for-each __tmp10669 __tmp10668)) + _h10459_))) (define type-descriptor-sealed? - (lambda (_klass10501_) - (let ((__tmp10715 - (let () (declare (not safe)) (##type-flags _klass10501_)))) + (lambda (_klass10455_) + (let ((__tmp10671 + (let () (declare (not safe)) (##type-flags _klass10455_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp10715)))) + (##fxbit-set? '20 __tmp10671)))) (define type-descriptor-seal! - (lambda (_klass10499_) - (let ((__tmp10716 - (let ((__tmp10718 + (lambda (_klass10453_) + (let ((__tmp10672 + (let ((__tmp10674 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp10717 + (__tmp10673 (let () (declare (not safe)) - (##type-flags _klass10499_)))) + (##type-flags _klass10453_)))) (declare (not safe)) - (##fxior __tmp10718 __tmp10717)))) + (##fxior __tmp10674 __tmp10673)))) (declare (not safe)) - (##vector-set! _klass10499_ '3 __tmp10716)))) + (##vector-set! _klass10453_ '3 __tmp10672)))) (define make-struct-type__% - (lambda (_id10464_ - _super10465_ - _n-direct-slots10466_ - _name10467_ - _alist10468_ - _constructor10469_ - _direct-slots10470_) - (let ((__tmp10719 - (let ((_$e10472_ _direct-slots10470_)) - (if _$e10472_ - _$e10472_ - (map (lambda (_g1047410476_) + (lambda (_id10418_ + _super10419_ + _n-direct-slots10420_ + _name10421_ + _properties10422_ + _constructor10423_ + _direct-slots10424_) + (let ((__tmp10675 + (let ((_$e10426_ _direct-slots10424_)) + (if _$e10426_ + _$e10426_ + (map (lambda (_g1042810430_) (let () (declare (not safe)) - (make-symbol__1 '"_" _g1047410476_))) - (let ((__tmp10720 - (if _super10465_ + (make-symbol__1 '"_" _g1042810430_))) + (let ((__tmp10676 + (if _super10419_ (vector-length (let () (declare (not safe)) (type-descriptor-all-slots - _super10465_))) + _super10419_))) '1))) (declare (not safe)) - (iota _n-direct-slots10466_ __tmp10720))))))) + (iota _n-direct-slots10420_ __tmp10676))))))) (declare (not safe)) (make-struct-type* - _id10464_ - _name10467_ - _super10465_ - __tmp10719 - _alist10468_ - _constructor10469_)))) + _id10418_ + _name10421_ + _super10419_ + __tmp10675 + _properties10422_ + _constructor10423_)))) (define make-struct-type__0 - (lambda (_id10482_ - _super10483_ - _n-direct-slots10484_ - _name10485_ - _alist10486_ - _constructor10487_) - (let ((_direct-slots10489_ '#f)) + (lambda (_id10436_ + _super10437_ + _n-direct-slots10438_ + _name10439_ + _properties10440_ + _constructor10441_) + (let ((_direct-slots10443_ '#f)) (declare (not safe)) (make-struct-type__% - _id10482_ - _super10483_ - _n-direct-slots10484_ - _name10485_ - _alist10486_ - _constructor10487_ - _direct-slots10489_)))) + _id10436_ + _super10437_ + _n-direct-slots10438_ + _name10439_ + _properties10440_ + _constructor10441_ + _direct-slots10443_)))) (define make-struct-type - (lambda _g10722_ - (let ((_g10721_ (let () (declare (not safe)) (##length _g10722_)))) - (cond ((let () (declare (not safe)) (##fx= _g10721_ 6)) - (apply (lambda (_id10482_ - _super10483_ - _n-direct-slots10484_ - _name10485_ - _alist10486_ - _constructor10487_) + (lambda _g10678_ + (let ((_g10677_ (let () (declare (not safe)) (##length _g10678_)))) + (cond ((let () (declare (not safe)) (##fx= _g10677_ 6)) + (apply (lambda (_id10436_ + _super10437_ + _n-direct-slots10438_ + _name10439_ + _properties10440_ + _constructor10441_) (let () (declare (not safe)) (make-struct-type__0 - _id10482_ - _super10483_ - _n-direct-slots10484_ - _name10485_ - _alist10486_ - _constructor10487_))) - _g10722_)) - ((let () (declare (not safe)) (##fx= _g10721_ 7)) - (apply (lambda (_id10491_ - _super10492_ - _n-direct-slots10493_ - _name10494_ - _alist10495_ - _constructor10496_ - _direct-slots10497_) + _id10436_ + _super10437_ + _n-direct-slots10438_ + _name10439_ + _properties10440_ + _constructor10441_))) + _g10678_)) + ((let () (declare (not safe)) (##fx= _g10677_ 7)) + (apply (lambda (_id10445_ + _super10446_ + _n-direct-slots10447_ + _name10448_ + _properties10449_ + _constructor10450_ + _direct-slots10451_) (let () (declare (not safe)) (make-struct-type__% - _id10491_ - _super10492_ - _n-direct-slots10493_ - _name10494_ - _alist10495_ - _constructor10496_ - _direct-slots10497_))) - _g10722_)) + _id10445_ + _super10446_ + _n-direct-slots10447_ + _name10448_ + _properties10449_ + _constructor10450_ + _direct-slots10451_))) + _g10678_)) (else (##raise-wrong-number-of-arguments-exception make-struct-type - _g10722_)))))) + _g10678_)))))) (define make-struct-type* - (lambda (_id10444_ - _name10445_ - _super10446_ - _direct-slots10447_ - _alist10448_ - _constructor10449_) - (if (and _super10446_ - (let ((__tmp10723 + (lambda (_id10398_ + _name10399_ + _super10400_ + _direct-slots10401_ + _properties10402_ + _constructor10403_) + (if (and _super10400_ + (let ((__tmp10679 (let () (declare (not safe)) - (struct-type? _super10446_)))) + (struct-type? _super10400_)))) (declare (not safe)) - (not __tmp10723))) - (error '"Illegal super type; not a struct-type" _super10446_) + (not __tmp10679))) + (error '"Illegal super type; not a struct-type" _super10400_) '#!void) - (let* ((_type10451_ - (let ((__tmp10726 - (if _super10446_ + (let* ((_type10405_ + (let ((__tmp10682 + (if _super10400_ (let () (declare (not safe)) - (cons _super10446_ '())) + (cons _super10400_ '())) '())) - (__tmp10724 - (let ((__tmp10725 + (__tmp10680 + (let ((__tmp10681 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp10725 _alist10448_)))) + (cons __tmp10681 _properties10402_)))) (declare (not safe)) (make-class-type* - _id10444_ - _name10445_ - __tmp10726 - _direct-slots10447_ - __tmp10724 - _constructor10449_))) - (_all-slots10453_ + _id10398_ + _name10399_ + __tmp10682 + _direct-slots10401_ + __tmp10680 + _constructor10403_))) + (_all-slots10407_ (let () (declare (not safe)) - (type-descriptor-all-slots _type10451_))) - (_len10455_ (length _direct-slots10447_)) - (_start10457_ (- (vector-length _all-slots10453_) _len10455_))) - (if (let ((__tmp10728 - (lambda (_slot10460_ _i10461_) - (let ((__tmp10729 - (vector-ref _all-slots10453_ _i10461_))) + (type-descriptor-all-slots _type10405_))) + (_len10409_ (length _direct-slots10401_)) + (_start10411_ (- (vector-length _all-slots10407_) _len10409_))) + (if (let ((__tmp10684 + (lambda (_slot10414_ _i10415_) + (let ((__tmp10685 + (vector-ref _all-slots10407_ _i10415_))) (declare (not safe)) - (eq? _slot10460_ __tmp10729)))) - (__tmp10727 + (eq? _slot10414_ __tmp10685)))) + (__tmp10683 (let () (declare (not safe)) - (iota _len10455_ _start10457_)))) + (iota _len10409_ _start10411_)))) (declare (not safe)) - (andmap2 __tmp10728 _direct-slots10447_ __tmp10727)) + (andmap2 __tmp10684 _direct-slots10401_ __tmp10683)) '#!void (error '"Non-unique slots in struct" - _name10445_ - _direct-slots10447_)) - _type10451_))) + _name10399_ + _direct-slots10401_)) + _type10405_))) (define make-struct-predicate - (lambda (_klass10436_) - (let ((_tid10438_ - (let () (declare (not safe)) (##type-id _klass10436_)))) - (if (let () (declare (not safe)) (type-final? _klass10436_)) - (lambda (_obj10440_) + (lambda (_klass10390_) + (let ((_tid10392_ + (let () (declare (not safe)) (##type-id _klass10390_)))) + (if (let () (declare (not safe)) (type-final? _klass10390_)) + (lambda (_obj10394_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj10440_ _tid10438_))) - (lambda (_obj10442_) + (##structure-direct-instance-of? _obj10394_ _tid10392_))) + (lambda (_obj10396_) (let () (declare (not safe)) - (##structure-instance-of? _obj10442_ _tid10438_))))))) + (##structure-instance-of? _obj10396_ _tid10392_))))))) (define make-struct-field-accessor - (lambda (_klass10433_ _field10434_) - (let ((__tmp10730 + (lambda (_klass10387_ _field10388_) + (let ((__tmp10686 (let () (declare (not safe)) - (struct-field-offset* _klass10433_ _field10434_)))) + (struct-field-offset* _klass10387_ _field10388_)))) (declare (not safe)) - (make-struct-field-accessor* _klass10433_ __tmp10730)))) + (make-struct-field-accessor* _klass10387_ __tmp10686)))) (define make-struct-field-accessor* - (lambda (_klass10428_ _field10429_) - (lambda (_obj10431_) + (lambda (_klass10382_ _field10383_) + (lambda (_obj10385_) (let () (declare (not safe)) - (##structure-ref _obj10431_ _field10429_ _klass10428_ '#f))))) + (##structure-ref _obj10385_ _field10383_ _klass10382_ '#f))))) (define make-struct-field-mutator - (lambda (_klass10425_ _field10426_) - (let ((__tmp10731 + (lambda (_klass10379_ _field10380_) + (let ((__tmp10687 (let () (declare (not safe)) - (struct-field-offset* _klass10425_ _field10426_)))) + (struct-field-offset* _klass10379_ _field10380_)))) (declare (not safe)) - (make-struct-field-mutator* _klass10425_ __tmp10731)))) + (make-struct-field-mutator* _klass10379_ __tmp10687)))) (define make-struct-field-mutator* - (lambda (_klass10419_ _field10420_) - (lambda (_obj10422_ _val10423_) + (lambda (_klass10373_ _field10374_) + (lambda (_obj10376_ _val10377_) (let () (declare (not safe)) (##structure-set! - _obj10422_ - _val10423_ - _field10420_ - _klass10419_ + _obj10376_ + _val10377_ + _field10374_ + _klass10373_ '#f))))) (define make-struct-field-unchecked-accessor - (lambda (_klass10416_ _field10417_) - (let ((__tmp10732 + (lambda (_klass10370_ _field10371_) + (let ((__tmp10688 (let () (declare (not safe)) - (struct-field-offset* _klass10416_ _field10417_)))) + (struct-field-offset* _klass10370_ _field10371_)))) (declare (not safe)) - (make-struct-field-unchecked-accessor* _klass10416_ __tmp10732)))) + (make-struct-field-unchecked-accessor* _klass10370_ __tmp10688)))) (define make-struct-field-unchecked-accessor* - (lambda (_klass10411_ _field10412_) - (lambda (_obj10414_) + (lambda (_klass10365_ _field10366_) + (lambda (_obj10368_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj10414_ - _field10412_ - _klass10411_ + _obj10368_ + _field10366_ + _klass10365_ '#f))))) (define make-struct-field-unchecked-mutator - (lambda (_klass10408_ _field10409_) - (let ((__tmp10733 + (lambda (_klass10362_ _field10363_) + (let ((__tmp10689 (let () (declare (not safe)) - (struct-field-offset* _klass10408_ _field10409_)))) + (struct-field-offset* _klass10362_ _field10363_)))) (declare (not safe)) - (make-struct-field-unchecked-mutator* _klass10408_ __tmp10733)))) + (make-struct-field-unchecked-mutator* _klass10362_ __tmp10689)))) (define make-struct-field-unchecked-mutator* - (lambda (_klass10402_ _field10403_) - (lambda (_obj10405_ _val10406_) + (lambda (_klass10356_ _field10357_) + (lambda (_obj10359_ _val10360_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj10405_ - _val10406_ - _field10403_ - _klass10402_ + _obj10359_ + _val10360_ + _field10357_ + _klass10356_ '#f))))) (define struct-field-offset* - (lambda (_klass10396_ _field10397_) - (let ((__tmp10734 - (let ((_$e10399_ + (lambda (_klass10350_ _field10351_) + (let ((__tmp10690 + (let ((_$e10353_ (let () (declare (not safe)) - (##type-super _klass10396_)))) - (if _$e10399_ + (##type-super _klass10350_)))) + (if _$e10353_ (let () (declare (not safe)) - (type-descriptor-fields _$e10399_)) + (type-descriptor-fields _$e10353_)) '0)))) (declare (not safe)) - (##fx+ _field10397_ __tmp10734 '1)))) + (##fx+ _field10351_ __tmp10690 '1)))) (define struct-field-ref - (lambda (_klass10392_ _obj10393_ _field10394_) + (lambda (_klass10346_ _obj10347_ _field10348_) (let () (declare (not safe)) - (##structure-ref _obj10393_ _field10394_ _klass10392_ '#f)))) + (##structure-ref _obj10347_ _field10348_ _klass10346_ '#f)))) (define struct-field-set! - (lambda (_klass10387_ _obj10388_ _field10389_ _val10390_) + (lambda (_klass10341_ _obj10342_ _field10343_ _val10344_) (let () (declare (not safe)) (##structure-set! - _obj10388_ - _val10390_ - _field10389_ - _klass10387_ + _obj10342_ + _val10344_ + _field10343_ + _klass10341_ '#f)))) (define substruct? - (lambda (_maybe-sub-struct10378_ _maybe-super-struct10379_) - (let ((_maybe-super-struct-id10381_ + (lambda (_maybe-sub-struct10332_ _maybe-super-struct10333_) + (let ((_maybe-super-struct-id10335_ (let () (declare (not safe)) - (##type-id _maybe-super-struct10379_)))) - (let _lp10383_ ((_super-struct10385_ _maybe-sub-struct10378_)) - (if (let () (declare (not safe)) (not _super-struct10385_)) + (##type-id _maybe-super-struct10333_)))) + (let _lp10337_ ((_super-struct10339_ _maybe-sub-struct10332_)) + (if (let () (declare (not safe)) (not _super-struct10339_)) '#f - (if (let ((__tmp10736 + (if (let ((__tmp10692 (let () (declare (not safe)) - (type-id _super-struct10385_)))) + (type-id _super-struct10339_)))) (declare (not safe)) - (eq? _maybe-super-struct-id10381_ __tmp10736)) + (eq? _maybe-super-struct-id10335_ __tmp10692)) '#t - (let ((__tmp10735 + (let ((__tmp10691 (let () (declare (not safe)) - (##type-super _super-struct10385_)))) + (##type-super _super-struct10339_)))) (declare (not safe)) - (_lp10383_ __tmp10735)))))))) + (_lp10337_ __tmp10691)))))))) (define struct-subtype? - (lambda (_maybe-super-struct10375_ _maybe-sub-struct10376_) + (lambda (_maybe-super-struct10329_ _maybe-sub-struct10330_) (let () (declare (not safe)) - (substruct? _maybe-sub-struct10376_ _maybe-super-struct10375_)))) + (substruct? _maybe-sub-struct10330_ _maybe-super-struct10329_)))) (define base-struct/1 - (lambda (_klass10373_) - (if (let () (declare (not safe)) (struct-type? _klass10373_)) - _klass10373_ - (if (let () (declare (not safe)) (class-type? _klass10373_)) - (let () (declare (not safe)) (##type-super _klass10373_)) - (if (let () (declare (not safe)) (not _klass10373_)) + (lambda (_klass10327_) + (if (let () (declare (not safe)) (struct-type? _klass10327_)) + _klass10327_ + (if (let () (declare (not safe)) (class-type? _klass10327_)) + (let () (declare (not safe)) (##type-super _klass10327_)) + (if (let () (declare (not safe)) (not _klass10327_)) '#f - (error '"Not a class or false" _klass10373_)))))) + (error '"Not a class or false" _klass10327_)))))) (define base-struct/2 - (lambda (_klass110361_ _klass210362_) - (letrec* ((_s110364_ - (let () (declare (not safe)) (base-struct/1 _klass110361_))) - (_s210365_ + (lambda (_klass110315_ _klass210316_) + (letrec* ((_s110318_ + (let () (declare (not safe)) (base-struct/1 _klass110315_))) + (_s210319_ (let () (declare (not safe)) - (base-struct/1 _klass210362_)))) - (if (or (let () (declare (not safe)) (not _s110364_)) - (and _s210365_ + (base-struct/1 _klass210316_)))) + (if (or (let () (declare (not safe)) (not _s110318_)) + (and _s210319_ (let () (declare (not safe)) - (substruct? _s110364_ _s210365_)))) - _s210365_ - (if (or (let () (declare (not safe)) (not _s210365_)) - (and _s110364_ + (substruct? _s110318_ _s210319_)))) + _s210319_ + (if (or (let () (declare (not safe)) (not _s210319_)) + (and _s110318_ (let () (declare (not safe)) - (substruct? _s210365_ _s110364_)))) - _s110364_ + (substruct? _s210319_ _s110318_)))) + _s110318_ (error '"Bad mixin: incompatible struct bases" - _klass110361_ - _klass210362_ - _s110364_ - _s210365_)))))) + _klass110315_ + _klass210316_ + _s110318_ + _s210319_)))))) (define base-struct/list - (lambda (_all-supers10245_) - (let* ((_all-supers1024610271_ _all-supers10245_) - (_E1025110275_ + (lambda (_all-supers10199_) + (let* ((_all-supers1020010225_ _all-supers10199_) + (_E1020510229_ (lambda () - (error '"No clause matching" _all-supers1024610271_)))) - (let ((_K1026910358_ (lambda () '#f)) - (_K1026610344_ - (lambda (_x10342_) - (let () (declare (not safe)) (base-struct/1 _x10342_)))) - (_K1026110321_ - (lambda (_y10318_ _x10319_) + (error '"No clause matching" _all-supers1020010225_)))) + (let ((_K1022310312_ (lambda () '#f)) + (_K1022010298_ + (lambda (_x10296_) + (let () (declare (not safe)) (base-struct/1 _x10296_)))) + (_K1021510275_ + (lambda (_y10272_ _x10273_) (let () (declare (not safe)) - (base-struct/2 _x10319_ _y10318_)))) - (_K1025210282_ - (lambda (_y10279_ _x10280_) + (base-struct/2 _x10273_ _y10272_)))) + (_K1020610236_ + (lambda (_y10233_ _x10234_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x10280_ _y10279_))))) - (let* ((___match1069410695_ - (lambda (_hd1025310285_ _tl1025410287_) - (let ((_x10290_ _hd1025310285_)) - (letrec ((_splice-rest1025610292_ - (lambda (_rest1026010299_ _y10301_) + (foldr1 base-struct/2 _x10234_ _y10233_))))) + (let* ((___match1064710648_ + (lambda (_hd1020710239_ _tl1020810241_) + (let ((_x10244_ _hd1020710239_)) + (letrec ((_splice-rest1021010246_ + (lambda (_rest1021410253_ _y10255_) (if (let () (declare (not safe)) - (##null? _rest1026010299_)) + (##null? _rest1021410253_)) (let () (declare (not safe)) - (_K1025210282_ _y10301_ _x10290_)) + (_K1020610236_ _y10255_ _x10244_)) (let () (declare (not safe)) - (_E1025110275_))))) - (_splice-try1025810294_ - (lambda (_hd1025910303_ - _rest1026010305_ - _y1025510306_) - (let ((_y10309_ _hd1025910303_)) - (let ((__tmp10738 + (_E1020510229_))))) + (_splice-try1021210248_ + (lambda (_hd1021310257_ + _rest1021410259_ + _y1020910260_) + (let ((_y10263_ _hd1021310257_)) + (let ((__tmp10694 (let () (declare (not safe)) - (##cdr _rest1026010305_))) - (__tmp10737 + (##cdr _rest1021410259_))) + (__tmp10693 (let () (declare (not safe)) - (cons _y10309_ _y1025510306_)))) + (cons _y10263_ _y1020910260_)))) (declare (not safe)) - (_splice-loop1025710296_ - __tmp10738 - __tmp10737))))) - (_splice-loop1025710296_ - (lambda (_rest1026010311_ _y1025510312_) + (_splice-loop1021110250_ + __tmp10694 + __tmp10693))))) + (_splice-loop1021110250_ + (lambda (_rest1021410265_ _y1020910266_) (if (let () (declare (not safe)) - (pair? _rest1026010311_)) - (let ((__tmp10740 + (pair? _rest1021410265_)) + (let ((__tmp10696 (let () (declare (not safe)) - (##car _rest1026010311_)))) + (##car _rest1021410265_)))) (declare (not safe)) - (_splice-try1025810294_ - __tmp10740 - _rest1026010311_ - _y1025510312_)) - (let ((__tmp10739 - (reverse _y1025510312_))) + (_splice-try1021210248_ + __tmp10696 + _rest1021410265_ + _y1020910266_)) + (let ((__tmp10695 + (reverse _y1020910266_))) (declare (not safe)) - (_splice-rest1025610292_ - _rest1026010311_ - __tmp10739)))))) + (_splice-rest1021010246_ + _rest1021410265_ + __tmp10695)))))) (let () (declare (not safe)) - (_splice-loop1025710296_ _tl1025410287_ '())))))) - (_try-match1024810354_ + (_splice-loop1021110250_ _tl1020810241_ '())))))) + (_try-match1020210308_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers1024610271_)) - (let ((_tl1026810349_ + (##pair? _all-supers1020010225_)) + (let ((_tl1022210303_ (let () (declare (not safe)) - (##cdr _all-supers1024610271_))) - (_hd1026710347_ + (##cdr _all-supers1020010225_))) + (_hd1022110301_ (let () (declare (not safe)) - (##car _all-supers1024610271_)))) + (##car _all-supers1020010225_)))) (if (let () (declare (not safe)) - (##null? _tl1026810349_)) - (let ((_x10352_ _hd1026710347_)) + (##null? _tl1022210303_)) + (let ((_x10306_ _hd1022110301_)) (declare (not safe)) - (base-struct/1 _x10352_)) + (base-struct/1 _x10306_)) (if (let () (declare (not safe)) - (##pair? _tl1026810349_)) - (let ((_tl1026510333_ + (##pair? _tl1022210303_)) + (let ((_tl1021910287_ (let () (declare (not safe)) - (##cdr _tl1026810349_))) - (_hd1026410331_ + (##cdr _tl1022210303_))) + (_hd1021810285_ (let () (declare (not safe)) - (##car _tl1026810349_)))) + (##car _tl1022210303_)))) (if (let () (declare (not safe)) - (##null? _tl1026510333_)) - (let ((_x10329_ _hd1026710347_) - (_y10336_ _hd1026410331_)) + (##null? _tl1021910287_)) + (let ((_x10283_ _hd1022110301_) + (_y10290_ _hd1021810285_)) (let () (declare (not safe)) - (_K1026110321_ - _y10336_ - _x10329_))) - (___match1069410695_ - _hd1026710347_ - _tl1026810349_))) - (___match1069410695_ - _hd1026710347_ - _tl1026810349_)))) - (let () (declare (not safe)) (_E1025110275_)))))) + (_K1021510275_ + _y10290_ + _x10283_))) + (___match1064710648_ + _hd1022110301_ + _tl1022210303_))) + (___match1064710648_ + _hd1022110301_ + _tl1022210303_)))) + (let () (declare (not safe)) (_E1020510229_)))))) (if (let () (declare (not safe)) - (##null? _all-supers1024610271_)) - (let () (declare (not safe)) (_K1026910358_)) - (let () (declare (not safe)) (_try-match1024810354_)))))))) + (##null? _all-supers1020010225_)) + (let () (declare (not safe)) (_K1022310312_)) + (let () (declare (not safe)) (_try-match1020210308_)))))))) (define base-struct* - (lambda _all-supers10243_ - (let () (declare (not safe)) (base-struct/list _all-supers10243_)))) + (lambda _all-supers10197_ + (let () (declare (not safe)) (base-struct/list _all-supers10197_)))) (define base-struct - (lambda _all-supers10241_ (apply base-struct/list _all-supers10241_))) + (lambda _all-supers10195_ (apply base-struct/list _all-supers10195_))) (define find-super-ctor - (lambda (_super10239_) - (let () (declare (not safe)) (find-super-constructor _super10239_)))) + (lambda (_super10193_) + (let () (declare (not safe)) (find-super-constructor _super10193_)))) (define find-super-constructor - (lambda (_super10191_) - (let _lp10193_ ((_rest10195_ _super10191_) (_constructor10196_ '#f)) - (let* ((_rest1019710205_ _rest10195_) - (_else1019910213_ (lambda () _constructor10196_)) - (_K1020110227_ - (lambda (_rest10216_ _hd10217_) - (let ((_$e10219_ + (lambda (_super10145_) + (let _lp10147_ ((_rest10149_ _super10145_) (_constructor10150_ '#f)) + (let* ((_rest1015110159_ _rest10149_) + (_else1015310167_ (lambda () _constructor10150_)) + (_K1015510181_ + (lambda (_rest10170_ _hd10171_) + (let ((_$e10173_ (let () (declare (not safe)) - (type-descriptor-constructor _hd10217_)))) - (if _$e10219_ - ((lambda (_xconstructor10222_) + (type-descriptor-constructor _hd10171_)))) + (if _$e10173_ + ((lambda (_xconstructor10176_) (if (or (let () (declare (not safe)) - (not _constructor10196_)) + (not _constructor10150_)) (let () (declare (not safe)) - (eq? _constructor10196_ - _xconstructor10222_))) + (eq? _constructor10150_ + _xconstructor10176_))) (let () (declare (not safe)) - (_lp10193_ _rest10216_ _xconstructor10222_)) + (_lp10147_ _rest10170_ _xconstructor10176_)) (error '"Conflicting implicit constructors" - _constructor10196_ - _xconstructor10222_))) - _$e10219_) + _constructor10150_ + _xconstructor10176_))) + _$e10173_) (let () (declare (not safe)) - (_lp10193_ _rest10216_ _constructor10196_))))))) - (if (let () (declare (not safe)) (##pair? _rest1019710205_)) - (let ((_hd1020210230_ - (let () (declare (not safe)) (##car _rest1019710205_))) - (_tl1020310232_ - (let () (declare (not safe)) (##cdr _rest1019710205_)))) - (let* ((_hd10235_ _hd1020210230_) - (_rest10237_ _tl1020310232_)) + (_lp10147_ _rest10170_ _constructor10150_))))))) + (if (let () (declare (not safe)) (##pair? _rest1015110159_)) + (let ((_hd1015610184_ + (let () (declare (not safe)) (##car _rest1015110159_))) + (_tl1015710186_ + (let () (declare (not safe)) (##cdr _rest1015110159_)))) + (let* ((_hd10189_ _hd1015610184_) + (_rest10191_ _tl1015710186_)) (declare (not safe)) - (_K1020110227_ _rest10237_ _hd10235_))) - (let () (declare (not safe)) (_else1019910213_))))))) + (_K1015510181_ _rest10191_ _hd10189_))) + (let () (declare (not safe)) (_else1015310167_))))))) (define compute-class-slots - (lambda (_super-struct10162_ - _class-precedence-list10163_ - _direct-slots10164_) - (let* ((_previous-slots10166_ - (if _super-struct10162_ + (lambda (_super-struct10116_ + _class-precedence-list10117_ + _direct-slots10118_) + (let* ((_previous-slots10120_ + (if _super-struct10116_ (let () (declare (not safe)) - (type-descriptor-all-slots _super-struct10162_)) + (type-descriptor-all-slots _super-struct10116_)) '#(#f))) - (_next-slot10168_ (vector-length _previous-slots10166_)) - (_slot-table10170_ - (if _super-struct10162_ - (let ((__tmp10741 + (_next-slot10122_ (vector-length _previous-slots10120_)) + (_slot-table10124_ + (if _super-struct10116_ + (let ((__tmp10697 (let () (declare (not safe)) (type-descriptor-slot-table - _super-struct10162_)))) + _super-struct10116_)))) (declare (not safe)) - (hash-copy __tmp10741)) + (hash-copy __tmp10697)) (let () (declare (not safe)) (make-table 'test: eq?)))) - (_r-slots10172_ '()) - (_process-slot10176_ - (lambda (_slot10174_) - (if (let () (declare (not safe)) (symbol? _slot10174_)) + (_r-slots10126_ '()) + (_process-slot10130_ + (lambda (_slot10128_) + (if (let () (declare (not safe)) (symbol? _slot10128_)) '#!void - (error '"invalid slot name" _slot10174_)) + (error '"invalid slot name" _slot10128_)) (if (let () (declare (not safe)) - (hash-key? _slot-table10170_ _slot10174_)) + (hash-key? _slot-table10124_ _slot10128_)) '#!void (begin (let () (declare (not safe)) (table-set! - _slot-table10170_ - _slot10174_ - _next-slot10168_)) - (let ((__tmp10742 (symbol->keyword _slot10174_))) + _slot-table10124_ + _slot10128_ + _next-slot10122_)) + (let ((__tmp10698 (symbol->keyword _slot10128_))) (declare (not safe)) (table-set! - _slot-table10170_ - __tmp10742 - _next-slot10168_)) - (set! _r-slots10172_ + _slot-table10124_ + __tmp10698 + _next-slot10122_)) + (set! _r-slots10126_ (let () (declare (not safe)) - (cons _slot10174_ _r-slots10172_))) - (set! _next-slot10168_ + (cons _slot10128_ _r-slots10126_))) + (set! _next-slot10122_ (let () (declare (not safe)) - (fx+ _next-slot10168_ '1))))))) - (_process-slots10182_ - (lambda (_g1017710179_) - (for-each _process-slot10176_ _g1017710179_)))) + (fx+ _next-slot10122_ '1))))))) + (_process-slots10136_ + (lambda (_g1013110133_) + (for-each _process-slot10130_ _g1013110133_)))) (for-each - (lambda (_mixin10185_) - (if (let () (declare (not safe)) (type-struct? _mixin10185_)) + (lambda (_mixin10139_) + (if (let () (declare (not safe)) (type-struct? _mixin10139_)) '#!void - (let ((__tmp10743 - (let ((__tmp10744 + (let ((__tmp10699 + (let ((__tmp10700 (let () (declare (not safe)) - (type-descriptor-alist _mixin10185_)))) + (type-descriptor-properties _mixin10139_)))) (declare (not safe)) - (assgetq 'direct-slots: __tmp10744 '())))) + (assgetq 'direct-slots: __tmp10700 '())))) (declare (not safe)) - (_process-slots10182_ __tmp10743)))) - (reverse _class-precedence-list10163_)) + (_process-slots10136_ __tmp10699)))) + (reverse _class-precedence-list10117_)) (let () (declare (not safe)) - (_process-slots10182_ _direct-slots10164_)) - (let ((_all-slots10187_ (make-vector _next-slot10168_ '#f))) - (vector-copy! _all-slots10187_ '0 _previous-slots10166_) + (_process-slots10136_ _direct-slots10118_)) + (let ((_all-slots10141_ (make-vector _next-slot10122_ '#f))) + (vector-copy! _all-slots10141_ '0 _previous-slots10120_) (for-each - (lambda (_slot10189_) - (set! _next-slot10168_ - (let () (declare (not safe)) (fx- _next-slot10168_ '1))) - (vector-set! _all-slots10187_ _next-slot10168_ _slot10189_)) - _r-slots10172_) - (values _all-slots10187_ _slot-table10170_))))) + (lambda (_slot10143_) + (set! _next-slot10122_ + (let () (declare (not safe)) (##fx- _next-slot10122_ '1))) + (vector-set! _all-slots10141_ _next-slot10122_ _slot10143_)) + _r-slots10126_) + (values _all-slots10141_ _slot-table10124_))))) (define make-class-type - (lambda (_id10155_ - _direct-supers10156_ - _direct-slots10157_ - _name10158_ - _alist10159_ - _constructor10160_) + (lambda (_id10109_ + _direct-supers10110_ + _direct-slots10111_ + _name10112_ + _properties10113_ + _constructor10114_) (let () (declare (not safe)) (make-class-type* - _id10155_ - _name10158_ - _direct-supers10156_ - _direct-slots10157_ - _alist10159_ - _constructor10160_)))) + _id10109_ + _name10112_ + _direct-supers10110_ + _direct-slots10111_ + _properties10113_ + _constructor10114_)))) (define make-class-type* - (lambda (_id10117_ - _name10118_ - _direct-supers10119_ - _direct-slots10120_ - _alist10121_ - _constructor10122_) - (let ((_$e10126_ - (let ((__tmp10745 - (lambda (_klass10124_) - (let ((__tmp10746 + (lambda (_id10071_ + _name10072_ + _direct-supers10073_ + _direct-slots10074_ + _properties10075_ + _constructor10076_) + (let ((_$e10080_ + (let ((__tmp10701 + (lambda (_klass10078_) + (let ((__tmp10702 (let () (declare (not safe)) - (type-descriptor? _klass10124_)))) + (type-descriptor? _klass10078_)))) (declare (not safe)) - (not __tmp10746))))) + (not __tmp10702))))) (declare (not safe)) - (find __tmp10745 _direct-supers10119_)))) - (if _$e10126_ - ((lambda (_g1012810130_) + (find __tmp10701 _direct-supers10073_)))) + (if _$e10080_ + ((lambda (_g1008210084_) (error '"Illegal super class; not a type descriptor" - _g1012810130_)) - _$e10126_) - (let ((_$e10133_ + _g1008210084_)) + _$e10080_) + (let ((_$e10087_ (let () (declare (not safe)) - (find type-final? _direct-supers10119_)))) - (if _$e10133_ - ((lambda (_g1013510137_) - (error '"Cannot extend final class" _g1013510137_)) - _$e10133_) + (find type-final? _direct-supers10073_)))) + (if _$e10087_ + ((lambda (_g1008910091_) + (error '"Cannot extend final class" _g1008910091_)) + _$e10087_) '#!void)))) - (let* ((_struct-super10140_ + (let* ((_struct-super10094_ (let () (declare (not safe)) - (base-struct/list _direct-supers10119_))) - (_precedence-list10142_ + (base-struct/list _direct-supers10073_))) + (_precedence-list10096_ (let () (declare (not safe)) - (class-linearize-mixins _direct-supers10119_))) - (_g10747_ + (class-linearize-mixins _direct-supers10073_))) + (_g10703_ (let () (declare (not safe)) (compute-class-slots - _struct-super10140_ - _precedence-list10142_ - _direct-slots10120_)))) + _struct-super10094_ + _precedence-list10096_ + _direct-slots10074_)))) (begin - (let ((_g10748_ + (let ((_g10704_ (let () (declare (not safe)) - (if (##values? _g10747_) (##vector-length _g10747_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g10748_ 2))) - (error "Context expects 2 values" _g10748_))) - (let ((_all-slots10144_ - (let () (declare (not safe)) (##vector-ref _g10747_ 0))) - (_slot-table10145_ - (let () (declare (not safe)) (##vector-ref _g10747_ 1)))) - (let* ((_alist10147_ - (let ((__tmp10751 + (if (##values? _g10703_) (##vector-length _g10703_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g10704_ 2))) + (error "Context expects 2 values" _g10704_))) + (let ((_all-slots10098_ + (let () (declare (not safe)) (##vector-ref _g10703_ 0))) + (_slot-table10099_ + (let () (declare (not safe)) (##vector-ref _g10703_ 1)))) + (let* ((_properties10101_ + (let ((__tmp10707 (let () (declare (not safe)) - (cons 'direct-slots: _direct-slots10120_))) - (__tmp10749 - (let ((__tmp10750 + (cons 'direct-slots: _direct-slots10074_))) + (__tmp10705 + (let ((__tmp10706 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers10119_)))) + _direct-supers10073_)))) (declare (not safe)) - (cons __tmp10750 _alist10121_)))) + (cons __tmp10706 _properties10075_)))) (declare (not safe)) - (cons __tmp10751 __tmp10749))) - (_constructor*10152_ - (let ((_$e10149_ _constructor10122_)) - (if _$e10149_ - _$e10149_ + (cons __tmp10707 __tmp10705))) + (_constructor*10106_ + (let ((_$e10103_ _constructor10076_)) + (if _$e10103_ + _$e10103_ (let () (declare (not safe)) (find-super-constructor - _direct-supers10119_)))))) + _direct-supers10073_)))))) (let () (declare (not safe)) (make-type-descriptor* - _id10117_ - _name10118_ - _struct-super10140_ - _precedence-list10142_ - _all-slots10144_ - _alist10147_ - _constructor*10152_ - _slot-table10145_ + _id10071_ + _name10072_ + _struct-super10094_ + _precedence-list10096_ + _all-slots10098_ + _properties10101_ + _constructor*10106_ + _slot-table10099_ '#f)))))))) (define class-precedence-list - (lambda (_klass10115_) - (let ((__tmp10752 + (lambda (_klass10069_) + (let ((__tmp10708 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass10115_)))) + (type-descriptor-precedence-list _klass10069_)))) (declare (not safe)) - (cons _klass10115_ __tmp10752)))) + (cons _klass10069_ __tmp10708)))) (define struct-precedence-list - (lambda (_strukt10110_) - (let ((__tmp10753 - (let ((_$e10112_ + (lambda (_strukt10064_) + (let ((__tmp10709 + (let ((_$e10066_ (let () (declare (not safe)) - (##type-super _strukt10110_)))) - (if _$e10112_ + (##type-super _strukt10064_)))) + (if _$e10066_ (let () (declare (not safe)) - (struct-precedence-list _$e10112_)) + (struct-precedence-list _$e10066_)) '())))) (declare (not safe)) - (cons _strukt10110_ __tmp10753)))) + (cons _strukt10064_ __tmp10709)))) (define class-linearize-mixins - (lambda (_klass-lst10108_) + (lambda (_klass-lst10062_) (let () (declare (not safe)) (c3-linearize__% '() - _klass-lst10108_ + _klass-lst10062_ class-precedence-list eqv? ##type-name)))) (define make-class-predicate - (lambda (_klass10098_) - (if (let () (declare (not safe)) (type-final? _klass10098_)) - (lambda (_g1009910101_) - (let ((__tmp10754 - (let () (declare (not safe)) (##type-id _klass10098_)))) + (lambda (_klass10052_) + (if (let () (declare (not safe)) (type-final? _klass10052_)) + (lambda (_g1005310055_) + (let ((__tmp10710 + (let () (declare (not safe)) (##type-id _klass10052_)))) (declare (not safe)) - (##structure-direct-instance-of? _g1009910101_ __tmp10754))) - (lambda (_g1010310105_) + (##structure-direct-instance-of? _g1005310055_ __tmp10710))) + (lambda (_g1005710059_) (let () (declare (not safe)) - (class-instance? _klass10098_ _g1010310105_)))))) + (class-instance? _klass10052_ _g1005710059_)))))) (define if-class-slot-field - (lambda (_klass10085_ - _slot10086_ - _if-struct10087_ - _if-struct-field10088_ - _if-class-slot10089_) - (let ((_field10091_ - (let ((__tmp10755 + (lambda (_klass10039_ + _slot10040_ + _if-struct10041_ + _if-struct-field10042_ + _if-class-slot10043_) + (let ((_field10045_ + (let ((__tmp10711 (let () (declare (not safe)) - (type-descriptor-slot-table _klass10085_)))) + (type-descriptor-slot-table _klass10039_)))) (declare (not safe)) - (table-ref __tmp10755 _slot10086_ '#f)))) - (if (or (let () (declare (not safe)) (type-final? _klass10085_)) - (let () (declare (not safe)) (type-struct? _klass10085_))) - (_if-struct10087_ _klass10085_ _field10091_) - (if (let ((_strukt10096_ + (table-ref __tmp10711 _slot10040_ '#f)))) + (if (or (let () (declare (not safe)) (type-final? _klass10039_)) + (let () (declare (not safe)) (type-struct? _klass10039_))) + (_if-struct10041_ _klass10039_ _field10045_) + (if (let ((_strukt10050_ (let () (declare (not safe)) - (base-struct/1 _klass10085_)))) - (and _strukt10096_ - (< _field10091_ + (base-struct/1 _klass10039_)))) + (and _strukt10050_ + (< _field10045_ (vector-length (let () (declare (not safe)) - (type-descriptor-all-slots _strukt10096_)))))) - (_if-struct-field10088_ _klass10085_ _field10091_) - (_if-class-slot10089_ - _klass10085_ - _slot10086_ - _field10091_)))))) + (type-descriptor-all-slots _strukt10050_)))))) + (_if-struct-field10042_ _klass10039_ _field10045_) + (_if-class-slot10043_ + _klass10039_ + _slot10040_ + _field10045_)))))) (define make-class-slot-accessor - (lambda (_klass10082_ _slot10083_) + (lambda (_klass10036_ _slot10037_) (let () (declare (not safe)) (if-class-slot-field - _klass10082_ - _slot10083_ + _klass10036_ + _slot10037_ make-struct-field-accessor* make-struct-subclass-field-accessor make-class-cached-slot-accessor)))) (define make-struct-subclass-field-accessor - (lambda (_klass10077_ _field10078_) - (lambda (_obj10080_) + (lambda (_klass10031_ _field10032_) + (lambda (_obj10034_) (if (let () (declare (not safe)) - (class-instance? _klass10077_ _obj10080_)) + (class-instance? _klass10031_ _obj10034_)) (let () (declare (not safe)) - (unchecked-field-ref _obj10080_ _field10078_)) - (error '"Trying to get a slot of an object that is not a class instance" + (unchecked-field-ref _obj10034_ _field10032_)) + (error '"Trying to access a slot of a value that is not an instance of the declared class" (vector-ref (let () (declare (not safe)) - (type-descriptor-all-slots _klass10077_)) - _field10078_) - _obj10080_ - _klass10077_))))) + (type-descriptor-all-slots _klass10031_)) + _field10032_) + _obj10034_ + _klass10031_))))) (define make-class-cached-slot-accessor - (lambda (_klass10071_ _slot10072_ _field10073_) - (lambda (_obj10075_) - (if (let ((__tmp10756 - (let () (declare (not safe)) (##type-id _klass10071_)))) + (lambda (_klass10025_ _slot10026_ _field10027_) + (lambda (_obj10029_) + (if (let ((__tmp10712 + (let () (declare (not safe)) (##type-id _klass10025_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj10075_ __tmp10756)) + (##structure-direct-instance-of? _obj10029_ __tmp10712)) (let () (declare (not safe)) - (unchecked-field-ref _obj10075_ _field10073_)) + (unchecked-field-ref _obj10029_ _field10027_)) (if (let () (declare (not safe)) - (class-instance? _klass10071_ _obj10075_)) + (class-instance? _klass10025_ _obj10029_)) (let () (declare (not safe)) - (slot-ref _obj10075_ _slot10072_)) + (slot-ref _obj10029_ _slot10026_)) (error '"Trying to get a slot of an object that is not a class instance" - _slot10072_ - _obj10075_ - _klass10071_)))))) + _slot10026_ + _obj10029_ + _klass10025_)))))) (define make-class-slot-mutator - (lambda (_klass10068_ _slot10069_) + (lambda (_klass10022_ _slot10023_) (let () (declare (not safe)) (if-class-slot-field - _klass10068_ - _slot10069_ + _klass10022_ + _slot10023_ make-struct-field-mutator* make-struct-subclass-field-mutator make-class-cached-slot-mutator)))) (define make-struct-subclass-field-mutator - (lambda (_klass10062_ _field10063_) - (lambda (_obj10065_ _val10066_) + (lambda (_klass10016_ _field10017_) + (lambda (_obj10019_ _val10020_) (if (let () (declare (not safe)) - (class-instance? _klass10062_ _obj10065_)) + (class-instance? _klass10016_ _obj10019_)) (let () (declare (not safe)) - (unchecked-field-set! _obj10065_ _field10063_ _val10066_)) + (unchecked-field-set! _obj10019_ _field10017_ _val10020_)) (error '"Trying to set a slot of an object that is not a class instance" (vector-ref (let () (declare (not safe)) - (type-descriptor-all-slots _klass10062_)) - _field10063_) - _obj10065_ - _klass10062_ - _val10066_))))) + (type-descriptor-all-slots _klass10016_)) + _field10017_) + _obj10019_ + _klass10016_ + _val10020_))))) (define make-class-cached-slot-mutator - (lambda (_klass10055_ _slot10056_ _field10057_) - (lambda (_obj10059_ _val10060_) - (if (let ((__tmp10757 - (let () (declare (not safe)) (##type-id _klass10055_)))) + (lambda (_klass10009_ _slot10010_ _field10011_) + (lambda (_obj10013_ _val10014_) + (if (let ((__tmp10713 + (let () (declare (not safe)) (##type-id _klass10009_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj10059_ __tmp10757)) + (##structure-direct-instance-of? _obj10013_ __tmp10713)) (let () (declare (not safe)) - (unchecked-field-set! _obj10059_ _field10057_ _val10060_)) + (unchecked-field-set! _obj10013_ _field10011_ _val10014_)) (let () (declare (not safe)) - (slot-set! _obj10059_ _slot10056_ _val10060_)))))) + (slot-set! _obj10013_ _slot10010_ _val10014_)))))) (define make-class-slot-unchecked-accessor - (lambda (_klass10052_ _slot10053_) + (lambda (_klass10006_ _slot10007_) (let () (declare (not safe)) (if-class-slot-field - _klass10052_ - _slot10053_ + _klass10006_ + _slot10007_ make-struct-field-unchecked-accessor* make-struct-field-unchecked-accessor* make-class-cached-slot-unchecked-accessor)))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass10046_ _slot10047_ _field10048_) - (lambda (_obj10050_) - (if (let ((__tmp10758 - (let () (declare (not safe)) (##type-id _klass10046_)))) + (lambda (_klass10000_ _slot10001_ _field10002_) + (lambda (_obj10004_) + (if (let ((__tmp10714 + (let () (declare (not safe)) (##type-id _klass10000_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj10050_ __tmp10758)) + (##structure-direct-instance-of? _obj10004_ __tmp10714)) (let () (declare (not safe)) - (unchecked-field-ref _obj10050_ _field10048_)) + (unchecked-field-ref _obj10004_ _field10002_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj10050_ _slot10047_)))))) + (unchecked-slot-ref _obj10004_ _slot10001_)))))) (define make-class-slot-unchecked-mutator - (lambda (_klass10043_ _slot10044_) + (lambda (_klass9997_ _slot9998_) (let () (declare (not safe)) (if-class-slot-field - _klass10043_ - _slot10044_ + _klass9997_ + _slot9998_ make-struct-field-unchecked-mutator* make-struct-field-unchecked-mutator* make-class-cached-slot-unchecked-mutator)))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass10036_ _slot10037_ _field10038_) - (lambda (_obj10040_ _val10041_) - (if (let ((__tmp10759 - (let () (declare (not safe)) (##type-id _klass10036_)))) + (lambda (_klass9990_ _slot9991_ _field9992_) + (lambda (_obj9994_ _val9995_) + (if (let ((__tmp10715 + (let () (declare (not safe)) (##type-id _klass9990_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj10040_ __tmp10759)) + (##structure-direct-instance-of? _obj9994_ __tmp10715)) (let () (declare (not safe)) - (unchecked-field-set! _obj10040_ _field10038_ _val10041_)) + (unchecked-field-set! _obj9994_ _field9992_ _val9995_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj10040_ _slot10037_ _val10041_)))))) + (unchecked-slot-set! _obj9994_ _slot9991_ _val9995_)))))) (define class-slot-offset - (lambda (_klass10031_ _slot10032_) - (let ((_off10034_ + (lambda (_klass9985_ _slot9986_) + (let ((_off9988_ (let () (declare (not safe)) - (class-slot-offset* _klass10031_ _slot10032_)))) - (if _off10034_ - (let () (declare (not safe)) (fx- _off10034_ '1)) + (class-slot-offset* _klass9985_ _slot9986_)))) + (if _off9988_ + (let () (declare (not safe)) (##fx- _off9988_ '1)) '#f)))) (define class-slot-offset* - (lambda (_klass10028_ _slot10029_) - (let ((__tmp10760 + (lambda (_klass9982_ _slot9983_) + (let ((__tmp10716 (let () (declare (not safe)) - (type-descriptor-slot-table _klass10028_)))) + (type-descriptor-slot-table _klass9982_)))) (declare (not safe)) - (table-ref __tmp10760 _slot10029_ '#f)))) + (table-ref __tmp10716 _slot9983_ '#f)))) (define class-slot-ref - (lambda (_klass10022_ _obj10023_ _slot10024_) + (lambda (_klass9976_ _obj9977_ _slot9978_) (if (let () (declare (not safe)) - (class-instance? _klass10022_ _obj10023_)) - (let ((_off10026_ - (let ((__tmp10761 + (class-instance? _klass9976_ _obj9977_)) + (let ((_off9980_ + (let ((__tmp10717 (let () (declare (not safe)) - (object-type _obj10023_)))) + (object-type _obj9977_)))) (declare (not safe)) - (class-slot-offset* __tmp10761 _slot10024_)))) + (class-slot-offset* __tmp10717 _slot9978_)))) (declare (not safe)) - (##unchecked-structure-ref - _obj10023_ - _off10026_ - _klass10022_ - '#f)) - (error '"not an instance" _klass10022_ _obj10023_)))) + (##unchecked-structure-ref _obj9977_ _off9980_ _klass9976_ '#f)) + (error '"not an instance" _klass9976_ _obj9977_)))) (define class-slot-set! - (lambda (_klass10015_ _obj10016_ _slot10017_ _val10018_) + (lambda (_klass9969_ _obj9970_ _slot9971_ _val9972_) (if (let () (declare (not safe)) - (class-instance? _klass10015_ _obj10016_)) - (let ((_off10020_ - (let ((__tmp10762 + (class-instance? _klass9969_ _obj9970_)) + (let ((_off9974_ + (let ((__tmp10718 (let () (declare (not safe)) - (object-type _obj10016_)))) + (object-type _obj9970_)))) (declare (not safe)) - (class-slot-offset* __tmp10762 _slot10017_)))) + (class-slot-offset* __tmp10718 _slot9971_)))) (declare (not safe)) (##unchecked-structure-set! - _obj10016_ - _val10018_ - _off10020_ - _klass10015_ + _obj9970_ + _val9972_ + _off9974_ + _klass9969_ '#f)) - (error '"not an instance" _klass10015_ _obj10016_)))) + (error '"not an instance" _klass9969_ _obj9970_)))) (define subclass? - (lambda (_maybe-sub-class10005_ _maybe-super-class10006_) - (let* ((_maybe-super-class-id10008_ + (lambda (_maybe-sub-class9959_ _maybe-super-class9960_) + (let* ((_maybe-super-class-id9962_ (let () (declare (not safe)) - (##type-id _maybe-super-class10006_))) - (_$e10010_ - (let ((__tmp10763 + (##type-id _maybe-super-class9960_))) + (_$e9964_ + (let ((__tmp10719 (let () (declare (not safe)) - (##type-id _maybe-sub-class10005_)))) + (##type-id _maybe-sub-class9959_)))) (declare (not safe)) - (eq? _maybe-super-class-id10008_ __tmp10763)))) - (if _$e10010_ - _$e10010_ - (let ((__tmp10765 - (lambda (_super-class10013_) - (let ((__tmp10766 + (eq? _maybe-super-class-id9962_ __tmp10719)))) + (if _$e9964_ + _$e9964_ + (let ((__tmp10721 + (lambda (_super-class9967_) + (let ((__tmp10722 (let () (declare (not safe)) - (##type-id _super-class10013_)))) + (##type-id _super-class9967_)))) (declare (not safe)) - (eq? __tmp10766 _maybe-super-class-id10008_)))) - (__tmp10764 + (eq? __tmp10722 _maybe-super-class-id9962_)))) + (__tmp10720 (let () (declare (not safe)) (type-descriptor-precedence-list - _maybe-sub-class10005_)))) + _maybe-sub-class9959_)))) (declare (not safe)) - (ormap1 __tmp10765 __tmp10764)))))) + (ormap1 __tmp10721 __tmp10720)))))) (define class-subtype? - (lambda (_maybe-super-class10002_ _maybe-sub-class10003_) + (lambda (_maybe-super-class9956_ _maybe-sub-class9957_) (let () (declare (not safe)) - (subclass? _maybe-sub-class10003_ _maybe-super-class10002_)))) + (subclass? _maybe-sub-class9957_ _maybe-super-class9956_)))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass9999_ _obj10000_) - (let ((__tmp10767 - (let () (declare (not safe)) (##type-id _klass9999_)))) + (lambda (_klass9953_ _obj9954_) + (let ((__tmp10723 + (let () (declare (not safe)) (##type-id _klass9953_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj10000_ __tmp10767)))) + (##structure-direct-instance-of? _obj9954_ __tmp10723)))) (define struct-instance? - (lambda (_klass9996_ _obj9997_) - (let ((__tmp10768 - (let () (declare (not safe)) (##type-id _klass9996_)))) + (lambda (_klass9950_ _obj9951_) + (let ((__tmp10724 + (let () (declare (not safe)) (##type-id _klass9950_)))) (declare (not safe)) - (##structure-instance-of? _obj9997_ __tmp10768)))) + (##structure-instance-of? _obj9951_ __tmp10724)))) (define direct-struct-instance? direct-instance?) (define class-instance? - (lambda (_klass9991_ _obj9992_) - (if (let () (declare (not safe)) (object? _obj9992_)) - (let ((_type9994_ - (let () (declare (not safe)) (object-type _obj9992_)))) - (if (let () (declare (not safe)) (type-descriptor? _type9994_)) + (lambda (_klass9945_ _obj9946_) + (if (let () (declare (not safe)) (object? _obj9946_)) + (let ((_type9948_ + (let () (declare (not safe)) (object-type _obj9946_)))) + (if (let () (declare (not safe)) (type-descriptor? _type9948_)) (let () (declare (not safe)) - (subclass? _type9994_ _klass9991_)) + (subclass? _type9948_ _klass9945_)) '#f)) '#f))) (define direct-class-instance? direct-instance?) (define make-object - (lambda (_klass9988_ _k9989_) - (let ((__tmp10769 (let () (declare (not safe)) (fx+ _k9989_ '1)))) + (lambda (_klass9942_ _k9943_) + (let ((__tmp10725 (let () (declare (not safe)) (##fx+ _k9943_ '1)))) (declare (not safe)) - (make-object*__% _klass9988_ __tmp10769)))) + (make-object*__% _klass9942_ __tmp10725)))) (define make-object*__% - (lambda (_klass9973_ _k9974_) - (let ((_obj9976_ - (let () (declare (not safe)) (##make-vector _k9974_ '#f)))) + (lambda (_klass9927_ _k9928_) + (let ((_obj9930_ + (let () (declare (not safe)) (##make-vector _k9928_ '#f)))) (let () (declare (not safe)) - (##vector-set! _obj9976_ '0 _klass9973_)) - (let ((__tmp10770 (macro-subtype-structure))) + (##vector-set! _obj9930_ '0 _klass9927_)) + (let ((__tmp10726 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj9976_ __tmp10770)) - _obj9976_))) + (##subtype-set! _obj9930_ __tmp10726)) + _obj9930_))) (define make-object*__0 - (lambda (_klass9981_) - (let ((_k9983_ (vector-length + (lambda (_klass9935_) + (let ((_k9937_ (vector-length (let () (declare (not safe)) - (type-descriptor-all-slots _klass9981_))))) + (type-descriptor-all-slots _klass9935_))))) (declare (not safe)) - (make-object*__% _klass9981_ _k9983_)))) + (make-object*__% _klass9935_ _k9937_)))) (define make-object* - (lambda _g10772_ - (let ((_g10771_ (let () (declare (not safe)) (##length _g10772_)))) - (cond ((let () (declare (not safe)) (##fx= _g10771_ 1)) - (apply (lambda (_klass9981_) + (lambda _g10728_ + (let ((_g10727_ (let () (declare (not safe)) (##length _g10728_)))) + (cond ((let () (declare (not safe)) (##fx= _g10727_ 1)) + (apply (lambda (_klass9935_) (let () (declare (not safe)) - (make-object*__0 _klass9981_))) - _g10772_)) - ((let () (declare (not safe)) (##fx= _g10771_ 2)) - (apply (lambda (_klass9985_ _k9986_) + (make-object*__0 _klass9935_))) + _g10728_)) + ((let () (declare (not safe)) (##fx= _g10727_ 2)) + (apply (lambda (_klass9939_ _k9940_) (let () (declare (not safe)) - (make-object*__% _klass9985_ _k9986_))) - _g10772_)) + (make-object*__% _klass9939_ _k9940_))) + _g10728_)) (else (##raise-wrong-number-of-arguments-exception make-object* - _g10772_)))))) + _g10728_)))))) (define make-struct-instance - (lambda (_klass9959_ . _args9960_) - (let* ((_all-slots9962_ + (lambda (_klass9913_ . _args9914_) + (let* ((_all-slots9916_ (let () (declare (not safe)) - (type-descriptor-all-slots _klass9959_))) - (_size9964_ (vector-length _all-slots9962_))) - (let ((_$e9967_ + (type-descriptor-all-slots _klass9913_))) + (_size9918_ (vector-length _all-slots9916_))) + (let ((_$e9921_ (let () (declare (not safe)) - (type-descriptor-constructor _klass9959_)))) - (if _$e9967_ - ((lambda (_kons-id9970_) - (let ((__tmp10775 + (type-descriptor-constructor _klass9913_)))) + (if _$e9921_ + ((lambda (_kons-id9924_) + (let ((__tmp10731 (let () (declare (not safe)) - (make-object*__% _klass9959_ _size9964_)))) + (make-object*__% _klass9913_ _size9918_)))) (declare (not safe)) (__constructor-init! - _klass9959_ - _kons-id9970_ - __tmp10775 - _args9960_))) - _$e9967_) - (if (let ((__tmp10774 - (let () (declare (not safe)) (fx- _size9964_ '1))) - (__tmp10773 (length _args9960_))) + _klass9913_ + _kons-id9924_ + __tmp10731 + _args9914_))) + _$e9921_) + (if (let ((__tmp10730 + (let () (declare (not safe)) (##fx- _size9918_ '1))) + (__tmp10729 (length _args9914_))) (declare (not safe)) - (##fx= __tmp10774 __tmp10773)) - (apply ##structure _klass9959_ _args9960_) + (##fx= __tmp10730 __tmp10729)) + (apply ##structure _klass9913_ _args9914_) (error '"Arguments don't match object size" - _klass9959_ - (let () (declare (not safe)) (fx- _size9964_ '1)) - _args9960_))))))) + _klass9913_ + (let () (declare (not safe)) (##fx- _size9918_ '1)) + _args9914_))))))) (define make-class-instance - (lambda (_klass9949_ . _args9950_) - (let* ((_obj9952_ - (let ((__tmp10776 + (lambda (_klass9903_ . _args9904_) + (let* ((_obj9906_ + (let ((__tmp10732 (vector-length (let () (declare (not safe)) - (type-descriptor-all-slots _klass9949_))))) + (type-descriptor-all-slots _klass9903_))))) (declare (not safe)) - (make-object*__% _klass9949_ __tmp10776))) - (_$e9954_ + (make-object*__% _klass9903_ __tmp10732))) + (_$e9908_ (let () (declare (not safe)) - (type-descriptor-constructor _klass9949_)))) - (if _$e9954_ - ((lambda (_kons-id9957_) + (type-descriptor-constructor _klass9903_)))) + (if _$e9908_ + ((lambda (_kons-id9911_) (let () (declare (not safe)) (__constructor-init! - _klass9949_ - _kons-id9957_ - _obj9952_ - _args9950_))) - _$e9954_) + _klass9903_ + _kons-id9911_ + _obj9906_ + _args9904_))) + _$e9908_) (let () (declare (not safe)) - (__class-instance-init! _klass9949_ _obj9952_ _args9950_)))))) + (__class-instance-init! _klass9903_ _obj9906_ _args9904_)))))) (define struct-instance-init! - (lambda (_obj9946_ . _args9947_) - (if (let ((__tmp10778 (length _args9947_)) - (__tmp10777 + (lambda (_obj9900_ . _args9901_) + (if (let ((__tmp10734 (length _args9901_)) + (__tmp10733 (let () (declare (not safe)) - (##structure-length _obj9946_)))) + (##structure-length _obj9900_)))) (declare (not safe)) - (##fx< __tmp10778 __tmp10777)) + (##fx< __tmp10734 __tmp10733)) (let () (declare (not safe)) - (__struct-instance-init! _obj9946_ _args9947_)) - (error '"Too many arguments for struct" _obj9946_ _args9947_)))) + (__struct-instance-init! _obj9900_ _args9901_)) + (error '"Too many arguments for struct" _obj9900_ _args9901_)))) (define __struct-instance-init! - (lambda (_obj9905_ _args9906_) - (let _lp9908_ ((_k9910_ '1) (_rest9911_ _args9906_)) - (let* ((_rest99129920_ _rest9911_) - (_else99149928_ (lambda () _obj9905_)) - (_K99169934_ - (lambda (_rest9931_ _hd9932_) + (lambda (_obj9859_ _args9860_) + (let _lp9862_ ((_k9864_ '1) (_rest9865_ _args9860_)) + (let* ((_rest98669874_ _rest9865_) + (_else98689882_ (lambda () _obj9859_)) + (_K98709888_ + (lambda (_rest9885_ _hd9886_) (let () (declare (not safe)) - (##vector-set! _obj9905_ _k9910_ _hd9932_)) - (let ((__tmp10779 - (let () (declare (not safe)) (fx+ _k9910_ '1)))) + (##vector-set! _obj9859_ _k9864_ _hd9886_)) + (let ((__tmp10735 + (let () (declare (not safe)) (##fx+ _k9864_ '1)))) (declare (not safe)) - (_lp9908_ __tmp10779 _rest9931_))))) - (if (let () (declare (not safe)) (##pair? _rest99129920_)) - (let ((_hd99179937_ - (let () (declare (not safe)) (##car _rest99129920_))) - (_tl99189939_ - (let () (declare (not safe)) (##cdr _rest99129920_)))) - (let* ((_hd9942_ _hd99179937_) (_rest9944_ _tl99189939_)) + (_lp9862_ __tmp10735 _rest9885_))))) + (if (let () (declare (not safe)) (##pair? _rest98669874_)) + (let ((_hd98719891_ + (let () (declare (not safe)) (##car _rest98669874_))) + (_tl98729893_ + (let () (declare (not safe)) (##cdr _rest98669874_)))) + (let* ((_hd9896_ _hd98719891_) (_rest9898_ _tl98729893_)) (declare (not safe)) - (_K99169934_ _rest9944_ _hd9942_))) - (let () (declare (not safe)) (_else99149928_))))))) + (_K98709888_ _rest9898_ _hd9896_))) + (let () (declare (not safe)) (_else98689882_))))))) (define class-instance-init! - (lambda (_obj9902_ . _args9903_) - (let ((__tmp10780 - (let () (declare (not safe)) (object-type _obj9902_)))) + (lambda (_obj9856_ . _args9857_) + (let ((__tmp10736 + (let () (declare (not safe)) (object-type _obj9856_)))) (declare (not safe)) - (__class-instance-init! __tmp10780 _obj9902_ _args9903_)))) + (__class-instance-init! __tmp10736 _obj9856_ _args9857_)))) (define __class-instance-init! - (lambda (_klass9846_ _obj9847_ _args9848_) - (let _lp9850_ ((_rest9852_ _args9848_)) - (let* ((_rest98539863_ _rest9852_) - (_else98559871_ + (lambda (_klass9800_ _obj9801_ _args9802_) + (let _lp9804_ ((_rest9806_ _args9802_)) + (let* ((_rest98079817_ _rest9806_) + (_else98099825_ (lambda () - (if (let () (declare (not safe)) (null? _rest9852_)) - _obj9847_ + (if (let () (declare (not safe)) (null? _rest9806_)) + _obj9801_ (error '"Unexpected class initializer arguments" - _rest9852_)))) - (_K98579883_ - (lambda (_rest9874_ _val9875_ _key9876_) - (let ((_$e9878_ + _rest9806_)))) + (_K98119837_ + (lambda (_rest9828_ _val9829_ _key9830_) + (let ((_$e9832_ (let () (declare (not safe)) - (class-slot-offset* _klass9846_ _key9876_)))) - (if _$e9878_ - ((lambda (_off9881_) + (class-slot-offset* _klass9800_ _key9830_)))) + (if _$e9832_ + ((lambda (_off9835_) (let () (declare (not safe)) - (##vector-set! _obj9847_ _off9881_ _val9875_)) + (##vector-set! _obj9801_ _off9835_ _val9829_)) (let () (declare (not safe)) - (_lp9850_ _rest9874_))) - _$e9878_) + (_lp9804_ _rest9828_))) + _$e9832_) (error '"No slot for keyword initializer" - _klass9846_ - _key9876_)))))) - (if (let () (declare (not safe)) (##pair? _rest98539863_)) - (let ((_hd98589886_ - (let () (declare (not safe)) (##car _rest98539863_))) - (_tl98599888_ - (let () (declare (not safe)) (##cdr _rest98539863_)))) - (let ((_key9891_ _hd98589886_)) - (if (let () (declare (not safe)) (##pair? _tl98599888_)) - (let ((_hd98609893_ + _klass9800_ + _key9830_)))))) + (if (let () (declare (not safe)) (##pair? _rest98079817_)) + (let ((_hd98129840_ + (let () (declare (not safe)) (##car _rest98079817_))) + (_tl98139842_ + (let () (declare (not safe)) (##cdr _rest98079817_)))) + (let ((_key9845_ _hd98129840_)) + (if (let () (declare (not safe)) (##pair? _tl98139842_)) + (let ((_hd98149847_ (let () (declare (not safe)) - (##car _tl98599888_))) - (_tl98619895_ + (##car _tl98139842_))) + (_tl98159849_ (let () (declare (not safe)) - (##cdr _tl98599888_)))) - (let* ((_val9898_ _hd98609893_) - (_rest9900_ _tl98619895_)) + (##cdr _tl98139842_)))) + (let* ((_val9852_ _hd98149847_) + (_rest9854_ _tl98159849_)) (declare (not safe)) - (_K98579883_ _rest9900_ _val9898_ _key9891_))) - (let () (declare (not safe)) (_else98559871_))))) - (let () (declare (not safe)) (_else98559871_))))))) + (_K98119837_ _rest9854_ _val9852_ _key9845_))) + (let () (declare (not safe)) (_else98099825_))))) + (let () (declare (not safe)) (_else98099825_))))))) (define constructor-init! - (lambda (_klass9841_ _kons-id9842_ _obj9843_ . _args9844_) + (lambda (_klass9795_ _kons-id9796_ _obj9797_ . _args9798_) (let () (declare (not safe)) (__constructor-init! - _klass9841_ - _kons-id9842_ - _obj9843_ - _args9844_)))) + _klass9795_ + _kons-id9796_ + _obj9797_ + _args9798_)))) (define __constructor-init! - (lambda (_klass9831_ _kons-id9832_ _obj9833_ _args9834_) - (let ((_$e9836_ + (lambda (_klass9785_ _kons-id9786_ _obj9787_ _args9788_) + (let ((_$e9790_ (let () (declare (not safe)) - (__find-method _klass9831_ _kons-id9832_)))) - (if _$e9836_ - ((lambda (_kons9839_) - (apply _kons9839_ _obj9833_ _args9834_) - _obj9833_) - _$e9836_) - (error '"Missing constructor" _klass9831_ _kons-id9832_))))) + (__find-method _klass9785_ _kons-id9786_)))) + (if _$e9790_ + ((lambda (_kons9793_) + (apply _kons9793_ _obj9787_ _args9788_) + _obj9787_) + _$e9790_) + (error '"Missing constructor" _klass9785_ _kons-id9786_))))) (define struct-copy - (lambda (_struct9829_) - (if (let () (declare (not safe)) (##structure? _struct9829_)) + (lambda (_struct9783_) + (if (let () (declare (not safe)) (##structure? _struct9783_)) '#!void - (error '"Not a structure" 'struct-copy _struct9829_)) - (let () (declare (not safe)) (##structure-copy _struct9829_)))) + (error '"Not a structure" 'struct-copy _struct9783_)) + (let () (declare (not safe)) (##structure-copy _struct9783_)))) (define struct->list - (lambda (_obj9827_) - (if (let () (declare (not safe)) (object? _obj9827_)) - (let () (declare (not safe)) (##vector->list _obj9827_)) - (error '"Not an object" _obj9827_)))) + (lambda (_obj9781_) + (if (let () (declare (not safe)) (object? _obj9781_)) + (let () (declare (not safe)) (##vector->list _obj9781_)) + (error '"Not an object" _obj9781_)))) (define class->list - (lambda (_obj9814_) - (if (let () (declare (not safe)) (object? _obj9814_)) - (let ((_klass9816_ - (let () (declare (not safe)) (object-type _obj9814_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass9816_)) - (let ((_all-slots9818_ + (lambda (_obj9768_) + (if (let () (declare (not safe)) (object? _obj9768_)) + (let ((_klass9770_ + (let () (declare (not safe)) (object-type _obj9768_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9770_)) + (let ((_all-slots9772_ (let () (declare (not safe)) - (type-descriptor-all-slots _klass9816_)))) - (let _loop9820_ ((_index9822_ - (let ((__tmp10786 - (vector-length _all-slots9818_))) + (type-descriptor-all-slots _klass9770_)))) + (let _loop9774_ ((_index9776_ + (let ((__tmp10742 + (vector-length _all-slots9772_))) (declare (not safe)) - (fx- __tmp10786 '1))) - (_plist9823_ '())) - (if (< _index9822_ '1) + (##fx- __tmp10742 '1))) + (_plist9777_ '())) + (if (let () (declare (not safe)) (##fx< _index9776_ '1)) (let () (declare (not safe)) - (cons _klass9816_ _plist9823_)) - (let ((_slot9825_ - (vector-ref _all-slots9818_ _index9822_))) - (let ((__tmp10785 + (cons _klass9770_ _plist9777_)) + (let ((_slot9779_ + (vector-ref _all-slots9772_ _index9776_))) + (let ((__tmp10741 (let () (declare (not safe)) - (fx- _index9822_ '1))) - (__tmp10781 - (let ((__tmp10784 - (symbol->keyword _slot9825_)) - (__tmp10782 - (let ((__tmp10783 + (##fx- _index9776_ '1))) + (__tmp10737 + (let ((__tmp10740 + (symbol->keyword _slot9779_)) + (__tmp10738 + (let ((__tmp10739 (let () (declare (not safe)) (unchecked-field-ref - _obj9814_ - _index9822_)))) + _obj9768_ + _index9776_)))) (declare (not safe)) - (cons __tmp10783 _plist9823_)))) + (cons __tmp10739 _plist9777_)))) (declare (not safe)) - (cons __tmp10784 __tmp10782)))) + (cons __tmp10740 __tmp10738)))) (declare (not safe)) - (_loop9820_ __tmp10785 __tmp10781)))))) - (error '"Not a class type" _obj9814_ _klass9816_))) - (error '"Not an object" _obj9814_)))) + (_loop9774_ __tmp10741 __tmp10737)))))) + (error '"Not a class type" _obj9768_ _klass9770_))) + (error '"Not an object" _obj9768_)))) (define unchecked-field-ref - (lambda (_obj9811_ _off9812_) - (let () (declare (not safe)) (##vector-ref _obj9811_ _off9812_)))) + (lambda (_obj9765_ _off9766_) + (let () (declare (not safe)) (##vector-ref _obj9765_ _off9766_)))) (define unchecked-field-set! - (lambda (_obj9807_ _off9808_ _val9809_) + (lambda (_obj9761_ _off9762_ _val9763_) (let () (declare (not safe)) - (##vector-set! _obj9807_ _off9808_ _val9809_)))) + (##vector-set! _obj9761_ _off9762_ _val9763_)))) (define unchecked-slot-ref - (lambda (_obj9804_ _slot9805_) - (let ((__tmp10787 - (let ((__tmp10788 - (let () (declare (not safe)) (object-type _obj9804_)))) + (lambda (_obj9758_ _slot9759_) + (let ((__tmp10743 + (let ((__tmp10744 + (let () (declare (not safe)) (object-type _obj9758_)))) (declare (not safe)) - (class-slot-offset* __tmp10788 _slot9805_)))) + (class-slot-offset* __tmp10744 _slot9759_)))) (declare (not safe)) - (unchecked-field-ref _obj9804_ __tmp10787)))) + (unchecked-field-ref _obj9758_ __tmp10743)))) (define unchecked-slot-set! - (lambda (_obj9800_ _slot9801_ _val9802_) - (let ((__tmp10789 - (let ((__tmp10790 - (let () (declare (not safe)) (object-type _obj9800_)))) + (lambda (_obj9754_ _slot9755_ _val9756_) + (let ((__tmp10745 + (let ((__tmp10746 + (let () (declare (not safe)) (object-type _obj9754_)))) (declare (not safe)) - (class-slot-offset* __tmp10790 _slot9801_)))) + (class-slot-offset* __tmp10746 _slot9755_)))) (declare (not safe)) - (unchecked-field-set! _obj9800_ __tmp10789 _val9802_)))) + (unchecked-field-set! _obj9754_ __tmp10745 _val9756_)))) (define slot-ref__% - (lambda (_obj9776_ _slot9777_ _E9778_) - (if (let () (declare (not safe)) (object? _obj9776_)) - (let* ((_klass9780_ - (let () (declare (not safe)) (object-type _obj9776_))) - (_$e9783_ + (lambda (_obj9730_ _slot9731_ _E9732_) + (if (let () (declare (not safe)) (object? _obj9730_)) + (let* ((_klass9734_ + (let () (declare (not safe)) (object-type _obj9730_))) + (_$e9737_ (if (let () (declare (not safe)) - (type-descriptor? _klass9780_)) + (type-descriptor? _klass9734_)) (let () (declare (not safe)) - (class-slot-offset* _klass9780_ _slot9777_)) + (class-slot-offset* _klass9734_ _slot9731_)) '#f))) - (if _$e9783_ - ((lambda (_off9786_) + (if _$e9737_ + ((lambda (_off9740_) (let () (declare (not safe)) - (##vector-ref _obj9776_ _off9786_))) - _$e9783_) - (_E9778_ _obj9776_ _slot9777_))) - (_E9778_ _obj9776_ _slot9777_)))) + (##vector-ref _obj9730_ _off9740_))) + _$e9737_) + (_E9732_ _obj9730_ _slot9731_))) + (_E9732_ _obj9730_ _slot9731_)))) (define slot-ref__0 - (lambda (_obj9791_ _slot9792_) - (let ((_E9794_ __slot-error)) + (lambda (_obj9745_ _slot9746_) + (let ((_E9748_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj9791_ _slot9792_ _E9794_)))) + (slot-ref__% _obj9745_ _slot9746_ _E9748_)))) (define slot-ref - (lambda _g10792_ - (let ((_g10791_ (let () (declare (not safe)) (##length _g10792_)))) - (cond ((let () (declare (not safe)) (##fx= _g10791_ 2)) - (apply (lambda (_obj9791_ _slot9792_) + (lambda _g10748_ + (let ((_g10747_ (let () (declare (not safe)) (##length _g10748_)))) + (cond ((let () (declare (not safe)) (##fx= _g10747_ 2)) + (apply (lambda (_obj9745_ _slot9746_) (let () (declare (not safe)) - (slot-ref__0 _obj9791_ _slot9792_))) - _g10792_)) - ((let () (declare (not safe)) (##fx= _g10791_ 3)) - (apply (lambda (_obj9796_ _slot9797_ _E9798_) + (slot-ref__0 _obj9745_ _slot9746_))) + _g10748_)) + ((let () (declare (not safe)) (##fx= _g10747_ 3)) + (apply (lambda (_obj9750_ _slot9751_ _E9752_) (let () (declare (not safe)) - (slot-ref__% _obj9796_ _slot9797_ _E9798_))) - _g10792_)) + (slot-ref__% _obj9750_ _slot9751_ _E9752_))) + _g10748_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g10792_)))))) + _g10748_)))))) (define slot-set!__% - (lambda (_obj9748_ _slot9749_ _val9750_ _E9751_) - (if (let () (declare (not safe)) (object? _obj9748_)) - (let* ((_klass9753_ - (let () (declare (not safe)) (object-type _obj9748_))) - (_$e9756_ + (lambda (_obj9702_ _slot9703_ _val9704_ _E9705_) + (if (let () (declare (not safe)) (object? _obj9702_)) + (let* ((_klass9707_ + (let () (declare (not safe)) (object-type _obj9702_))) + (_$e9710_ (if (let () (declare (not safe)) - (type-descriptor? _klass9753_)) + (type-descriptor? _klass9707_)) (let () (declare (not safe)) - (class-slot-offset* _klass9753_ _slot9749_)) + (class-slot-offset* _klass9707_ _slot9703_)) '#f))) - (if _$e9756_ - ((lambda (_off9759_) + (if _$e9710_ + ((lambda (_off9713_) (let () (declare (not safe)) - (##vector-set! _obj9748_ _off9759_ _val9750_))) - _$e9756_) - (_E9751_ _obj9748_ _slot9749_))) - (_E9751_ _obj9748_ _slot9749_)))) + (##vector-set! _obj9702_ _off9713_ _val9704_))) + _$e9710_) + (_E9705_ _obj9702_ _slot9703_))) + (_E9705_ _obj9702_ _slot9703_)))) (define slot-set!__0 - (lambda (_obj9764_ _slot9765_ _val9766_) - (let ((_E9768_ __slot-error)) + (lambda (_obj9718_ _slot9719_ _val9720_) + (let ((_E9722_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj9764_ _slot9765_ _val9766_ _E9768_)))) + (slot-set!__% _obj9718_ _slot9719_ _val9720_ _E9722_)))) (define slot-set! - (lambda _g10794_ - (let ((_g10793_ (let () (declare (not safe)) (##length _g10794_)))) - (cond ((let () (declare (not safe)) (##fx= _g10793_ 3)) - (apply (lambda (_obj9764_ _slot9765_ _val9766_) + (lambda _g10750_ + (let ((_g10749_ (let () (declare (not safe)) (##length _g10750_)))) + (cond ((let () (declare (not safe)) (##fx= _g10749_ 3)) + (apply (lambda (_obj9718_ _slot9719_ _val9720_) (let () (declare (not safe)) - (slot-set!__0 _obj9764_ _slot9765_ _val9766_))) - _g10794_)) - ((let () (declare (not safe)) (##fx= _g10793_ 4)) - (apply (lambda (_obj9770_ _slot9771_ _val9772_ _E9773_) + (slot-set!__0 _obj9718_ _slot9719_ _val9720_))) + _g10750_)) + ((let () (declare (not safe)) (##fx= _g10749_ 4)) + (apply (lambda (_obj9724_ _slot9725_ _val9726_ _E9727_) (let () (declare (not safe)) (slot-set!__% - _obj9770_ - _slot9771_ - _val9772_ - _E9773_))) - _g10794_)) + _obj9724_ + _slot9725_ + _val9726_ + _E9727_))) + _g10750_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g10794_)))))) + _g10750_)))))) (define __slot-error - (lambda (_obj9744_ _slot9745_) - (error '"Cannot find slot" _obj9744_ _slot9745_))) + (lambda (_obj9698_ _slot9699_) + (error '"Cannot find slot" _obj9698_ _slot9699_))) (define call-method - (lambda (_obj9735_ _id9736_ . _args9737_) - (let ((_$e9739_ - (let () (declare (not safe)) (method-ref _obj9735_ _id9736_)))) - (if _$e9739_ - ((lambda (_method9742_) - (apply _method9742_ _obj9735_ _args9737_)) - _$e9739_) - (error '"Cannot find method" _obj9735_ _id9736_))))) + (lambda (_obj9689_ _id9690_ . _args9691_) + (let ((_$e9693_ + (let () (declare (not safe)) (method-ref _obj9689_ _id9690_)))) + (if _$e9693_ + ((lambda (_method9696_) + (apply _method9696_ _obj9689_ _args9691_)) + _$e9693_) + (error '"Cannot find method" _obj9689_ _id9690_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj9732_ _id9733_) - (if (let () (declare (not safe)) (object? _obj9732_)) - (let ((__tmp10795 - (let () (declare (not safe)) (object-type _obj9732_)))) + (lambda (_obj9686_ _id9687_) + (if (let () (declare (not safe)) (object? _obj9686_)) + (let ((__tmp10751 + (let () (declare (not safe)) (object-type _obj9686_)))) (declare (not safe)) - (find-method __tmp10795 _id9733_)) + (find-method __tmp10751 _id9687_)) '#f))) (define checked-method-ref - (lambda (_obj9726_ _id9727_) - (let ((_$e9729_ - (let () (declare (not safe)) (method-ref _obj9726_ _id9727_)))) - (if _$e9729_ - _$e9729_ - (error '"Missing method" _obj9726_ _id9727_))))) + (lambda (_obj9680_ _id9681_) + (let ((_$e9683_ + (let () (declare (not safe)) (method-ref _obj9680_ _id9681_)))) + (if _$e9683_ + _$e9683_ + (error '"Missing method" _obj9680_ _id9681_))))) (define bound-method-ref - (lambda (_obj9716_ _id9717_) - (let ((_$e9719_ - (let () (declare (not safe)) (method-ref _obj9716_ _id9717_)))) - (if _$e9719_ - ((lambda (_method9722_) - (lambda _args9724_ (apply _method9722_ _obj9716_ _args9724_))) - _$e9719_) + (lambda (_obj9670_ _id9671_) + (let ((_$e9673_ + (let () (declare (not safe)) (method-ref _obj9670_ _id9671_)))) + (if _$e9673_ + ((lambda (_method9676_) + (lambda _args9678_ (apply _method9676_ _obj9670_ _args9678_))) + _$e9673_) '#f)))) (define checked-bound-method-ref - (lambda (_obj9709_ _id9710_) - (let ((_method9712_ + (lambda (_obj9663_ _id9664_) + (let ((_method9666_ (let () (declare (not safe)) - (checked-method-ref _obj9709_ _id9710_)))) - (lambda _args9714_ (apply _method9712_ _obj9709_ _args9714_))))) + (checked-method-ref _obj9663_ _id9664_)))) + (lambda _args9668_ (apply _method9666_ _obj9663_ _args9668_))))) (define find-method - (lambda (_klass9706_ _id9707_) - (if (let () (declare (not safe)) (type-descriptor? _klass9706_)) - (let () (declare (not safe)) (__find-method _klass9706_ _id9707_)) + (lambda (_klass9660_ _id9661_) + (if (let () (declare (not safe)) (type-descriptor? _klass9660_)) + (let () (declare (not safe)) (__find-method _klass9660_ _id9661_)) (let () (declare (not safe)) - (builtin-find-method _klass9706_ _id9707_))))) + (builtin-find-method _klass9660_ _id9661_))))) (define __find-method - (lambda (_klass9700_ _id9701_) - (let ((_$e9703_ + (lambda (_klass9654_ _id9655_) + (let ((_$e9657_ (let () (declare (not safe)) - (direct-method-ref _klass9700_ _id9701_)))) - (if _$e9703_ - _$e9703_ + (direct-method-ref _klass9654_ _id9655_)))) + (if _$e9657_ + _$e9657_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9700_)) + (type-descriptor-sealed? _klass9654_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass9700_ _id9701_))))))) + (mixin-method-ref _klass9654_ _id9655_))))))) (define struct-find-method find-method) (define class-find-method - (lambda (_klass9697_ _id9698_) - (if (let () (declare (not safe)) (type-descriptor? _klass9697_)) - (let () (declare (not safe)) (__find-method _klass9697_ _id9698_)) + (lambda (_klass9651_ _id9652_) + (if (let () (declare (not safe)) (type-descriptor? _klass9651_)) + (let () (declare (not safe)) (__find-method _klass9651_ _id9652_)) '#f))) (define mixin-find-method - (lambda (_mixins9690_ _id9691_) - (let ((__tmp10796 - (lambda (_g96929694_) + (lambda (_mixins9644_ _id9645_) + (let ((__tmp10752 + (lambda (_g96469648_) (let () (declare (not safe)) - (direct-method-ref _g96929694_ _id9691_))))) + (direct-method-ref _g96469648_ _id9645_))))) (declare (not safe)) - (ormap1 __tmp10796 _mixins9690_)))) + (ormap1 __tmp10752 _mixins9644_)))) (define builtin-find-method - (lambda (_klass9684_ _id9685_) - (if (let () (declare (not safe)) (##type? _klass9684_)) - (let ((_$e9687_ + (lambda (_klass9638_ _id9639_) + (if (let () (declare (not safe)) (##type? _klass9638_)) + (let ((_$e9641_ (let () (declare (not safe)) - (builtin-method-ref _klass9684_ _id9685_)))) - (if _$e9687_ - _$e9687_ - (let ((__tmp10797 + (builtin-method-ref _klass9638_ _id9639_)))) + (if _$e9641_ + _$e9641_ + (let ((__tmp10753 (let () (declare (not safe)) - (##type-super _klass9684_)))) + (##type-super _klass9638_)))) (declare (not safe)) - (builtin-find-method __tmp10797 _id9685_)))) + (builtin-find-method __tmp10753 _id9639_)))) '#f))) (define direct-method-ref - (lambda (_klass9676_ _id9677_) - (let ((_$e9679_ + (lambda (_klass9630_ _id9631_) + (let ((_$e9633_ (let () (declare (not safe)) - (type-descriptor-methods _klass9676_)))) - (if _$e9679_ - ((lambda (_ht9682_) + (type-descriptor-methods _klass9630_)))) + (if _$e9633_ + ((lambda (_ht9636_) (let () (declare (not safe)) - (table-ref _ht9682_ _id9677_ '#f))) - _$e9679_) + (table-ref _ht9636_ _id9631_ '#f))) + _$e9633_) '#f)))) (define mixin-method-ref - (lambda (_klass9673_ _id9674_) - (let ((__tmp10798 + (lambda (_klass9627_ _id9628_) + (let ((__tmp10754 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass9673_)))) + (type-descriptor-precedence-list _klass9627_)))) (declare (not safe)) - (mixin-find-method __tmp10798 _id9674_)))) + (mixin-find-method __tmp10754 _id9628_)))) (define builtin-method-ref - (lambda (_klass9665_ _id9666_) - (let ((_$e9668_ - (let ((__tmp10799 - (let () (declare (not safe)) (##type-id _klass9665_)))) + (lambda (_klass9619_ _id9620_) + (let ((_$e9622_ + (let ((__tmp10755 + (let () (declare (not safe)) (##type-id _klass9619_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp10799 '#f)))) - (if _$e9668_ - ((lambda (_mtab9671_) + (table-ref __builtin-type-methods __tmp10755 '#f)))) + (if _$e9622_ + ((lambda (_mtab9625_) (let () (declare (not safe)) - (table-ref _mtab9671_ _id9666_ '#f))) - _$e9668_) + (table-ref _mtab9625_ _id9620_ '#f))) + _$e9622_) '#f)))) (define bind-method!__% - (lambda (_klass9631_ _id9632_ _proc9633_ _rebind?9634_) - (letrec ((_bind!9636_ - (lambda (_ht9649_) - (if (and (let () (declare (not safe)) (not _rebind?9634_)) + (lambda (_klass9585_ _id9586_ _proc9587_ _rebind?9588_) + (letrec ((_bind!9590_ + (lambda (_ht9603_) + (if (and (let () (declare (not safe)) (not _rebind?9588_)) (let () (declare (not safe)) - (table-ref _ht9649_ _id9632_ '#f))) - (error '"Method already bound" _klass9631_ _id9632_) + (table-ref _ht9603_ _id9586_ '#f))) + (error '"Method already bound" _klass9585_ _id9586_) (let () (declare (not safe)) - (table-set! _ht9649_ _id9632_ _proc9633_)))))) - (if (let () (declare (not safe)) (procedure? _proc9633_)) + (table-set! _ht9603_ _id9586_ _proc9587_)))))) + (if (let () (declare (not safe)) (procedure? _proc9587_)) '#!void - (error '"Bad method; expected procedure" _proc9633_)) - (if (let () (declare (not safe)) (type-descriptor? _klass9631_)) - (let ((_ht9638_ + (error '"Bad method; expected procedure" _proc9587_)) + (if (let () (declare (not safe)) (type-descriptor? _klass9585_)) + (let ((_ht9592_ (let () (declare (not safe)) - (type-descriptor-methods _klass9631_)))) - (if _ht9638_ - (let () (declare (not safe)) (_bind!9636_ _ht9638_)) - (let ((_ht9640_ + (type-descriptor-methods _klass9585_)))) + (if _ht9592_ + (let () (declare (not safe)) (_bind!9590_ _ht9592_)) + (let ((_ht9594_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass9631_ _ht9640_)) - (let () (declare (not safe)) (_bind!9636_ _ht9640_))))) - (if (let () (declare (not safe)) (##type? _klass9631_)) - (let ((_ht9647_ - (let ((_$e9642_ - (let ((__tmp10800 + (type-descriptor-methods-set! _klass9585_ _ht9594_)) + (let () (declare (not safe)) (_bind!9590_ _ht9594_))))) + (if (let () (declare (not safe)) (##type? _klass9585_)) + (let ((_ht9601_ + (let ((_$e9596_ + (let ((__tmp10756 (let () (declare (not safe)) - (##type-id _klass9631_)))) + (##type-id _klass9585_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp10800 + __tmp10756 '#f)))) - (if _$e9642_ - _$e9642_ - (let ((_ht9645_ + (if _$e9596_ + _$e9596_ + (let ((_ht9599_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp10801 + (let ((__tmp10757 (let () (declare (not safe)) - (##type-id _klass9631_)))) + (##type-id _klass9585_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp10801 - _ht9645_)) - _ht9645_))))) + __tmp10757 + _ht9599_)) + _ht9599_))))) (declare (not safe)) - (_bind!9636_ _ht9647_)) + (_bind!9590_ _ht9601_)) (error '"Bad class; expected type-descriptor" - _klass9631_)))))) + _klass9585_)))))) (define bind-method!__0 - (lambda (_klass9654_ _id9655_ _proc9656_) - (let ((_rebind?9658_ '#t)) + (lambda (_klass9608_ _id9609_ _proc9610_) + (let ((_rebind?9612_ '#t)) (declare (not safe)) - (bind-method!__% _klass9654_ _id9655_ _proc9656_ _rebind?9658_)))) + (bind-method!__% _klass9608_ _id9609_ _proc9610_ _rebind?9612_)))) (define bind-method! - (lambda _g10803_ - (let ((_g10802_ (let () (declare (not safe)) (##length _g10803_)))) - (cond ((let () (declare (not safe)) (##fx= _g10802_ 3)) - (apply (lambda (_klass9654_ _id9655_ _proc9656_) + (lambda _g10759_ + (let ((_g10758_ (let () (declare (not safe)) (##length _g10759_)))) + (cond ((let () (declare (not safe)) (##fx= _g10758_ 3)) + (apply (lambda (_klass9608_ _id9609_ _proc9610_) (let () (declare (not safe)) - (bind-method!__0 _klass9654_ _id9655_ _proc9656_))) - _g10803_)) - ((let () (declare (not safe)) (##fx= _g10802_ 4)) - (apply (lambda (_klass9660_ _id9661_ _proc9662_ _rebind?9663_) + (bind-method!__0 _klass9608_ _id9609_ _proc9610_))) + _g10759_)) + ((let () (declare (not safe)) (##fx= _g10758_ 4)) + (apply (lambda (_klass9614_ _id9615_ _proc9616_ _rebind?9617_) (let () (declare (not safe)) (bind-method!__% - _klass9660_ - _id9661_ - _proc9662_ - _rebind?9663_))) - _g10803_)) + _klass9614_ + _id9615_ + _proc9616_ + _rebind?9617_))) + _g10759_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g10803_)))))) + _g10759_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc9627_ _specializer9628_) + (lambda (_proc9581_ _specializer9582_) (let () (declare (not safe)) - (table-set! __method-specializers _proc9627_ _specializer9628_)))) + (table-set! __method-specializers _proc9581_ _specializer9582_)))) (define seal-class! - (lambda (_klass9594_) - (letrec ((_collect-methods!9596_ - (lambda (_mtab9612_) - (letrec ((_merge!9614_ - (lambda (_tab9622_) - (let ((__tmp10804 - (lambda (_id9624_ _proc9625_) + (lambda (_klass9548_) + (letrec ((_collect-methods!9550_ + (lambda (_mtab9566_) + (letrec ((_merge!9568_ + (lambda (_tab9576_) + (let ((__tmp10760 + (lambda (_id9578_ _proc9579_) (let () (declare (not safe)) (table-set! - _mtab9612_ - _id9624_ - _proc9625_))))) + _mtab9566_ + _id9578_ + _proc9579_))))) (declare (not safe)) - (table-for-each __tmp10804 _tab9622_)))) - (_collect-direct-methods!9615_ - (lambda (_klass9617_) - (let ((_$e9619_ + (table-for-each __tmp10760 _tab9576_)))) + (_collect-direct-methods!9569_ + (lambda (_klass9571_) + (let ((_$e9573_ (let () (declare (not safe)) (type-descriptor-methods - _klass9617_)))) - (if _$e9619_ + _klass9571_)))) + (if _$e9573_ (let () (declare (not safe)) - (_merge!9614_ _$e9619_)) + (_merge!9568_ _$e9573_)) '#!void))))) (for-each - _collect-direct-methods!9615_ + _collect-direct-methods!9569_ (reverse (let () (declare (not safe)) - (class-precedence-list _klass9594_)))))))) - (if (let () (declare (not safe)) (type-descriptor? _klass9594_)) + (class-precedence-list _klass9548_)))))))) + (if (let () (declare (not safe)) (type-descriptor? _klass9548_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9594_)) + (type-descriptor-sealed? _klass9548_)) '#!void (begin - (if (let () (declare (not safe)) (type-final? _klass9594_)) + (if (let () (declare (not safe)) (type-final? _klass9548_)) '#!void - (error '"Cannot seal non-final class" _klass9594_)) - (let ((_vtab9598_ + (error '"Cannot seal non-final class" _klass9548_)) + (let ((_vtab9552_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab9599_ + (_mtab9553_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_collect-methods!9596_ _mtab9599_)) - (let ((__tmp10805 - (lambda (_id9601_ _proc9602_) - (let ((_$e9604_ + (_collect-methods!9550_ _mtab9553_)) + (let ((__tmp10761 + (lambda (_id9555_ _proc9556_) + (let ((_$e9558_ (let () (declare (not safe)) (table-ref __method-specializers - _proc9602_ + _proc9556_ '#f)))) - (if _$e9604_ - ((lambda (_specializer9607_) - (let ((_proc9609_ - (_specializer9607_ _klass9594_)) - (_gid9610_ - (let ((__tmp10806 + (if _$e9558_ + ((lambda (_specializer9561_) + (let ((_proc9563_ + (_specializer9561_ _klass9548_)) + (_gid9564_ + (let ((__tmp10762 (let () (declare (not safe)) (##type-id - _klass9594_)))) + _klass9548_)))) (declare (not safe)) (make-symbol__1 - __tmp10806 + __tmp10762 '"::[" - _id9601_ + _id9555_ '"]")))) - (eval (let ((__tmp10807 - (let ((__tmp10808 - (let ((__tmp10809 + (eval (let ((__tmp10763 + (let ((__tmp10764 + (let ((__tmp10765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10810 + (let ((__tmp10766 (let () (declare (not safe)) - (cons _proc9609_ '())))) + (cons _proc9563_ '())))) (declare (not safe)) - (cons 'quote __tmp10810)))) + (cons 'quote __tmp10766)))) (declare (not safe)) - (cons __tmp10809 '())))) + (cons __tmp10765 '())))) (declare (not safe)) - (cons _gid9610_ __tmp10808)))) + (cons _gid9564_ __tmp10764)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp10807))) + (cons 'def __tmp10763))) (let () (declare (not safe)) (table-set! - _vtab9598_ - _id9601_ - _proc9609_)))) - _$e9604_) + _vtab9552_ + _id9555_ + _proc9563_)))) + _$e9558_) (let () (declare (not safe)) (table-set! - _vtab9598_ - _id9601_ - _proc9602_))))))) + _vtab9552_ + _id9555_ + _proc9556_))))))) (declare (not safe)) - (table-for-each __tmp10805 _mtab9599_)) + (table-for-each __tmp10761 _mtab9553_)) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass9594_ _vtab9598_)) + (type-descriptor-methods-set! _klass9548_ _vtab9552_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass9594_))))) + (type-descriptor-seal! _klass9548_))))) '#!void)))) (define next-method - (lambda (_subklass9543_ _obj9544_ _id9545_) - (let ((_klass9547_ - (let () (declare (not safe)) (object-type _obj9544_))) - (_type-id9548_ - (let () (declare (not safe)) (##type-id _subklass9543_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass9547_)) - (let _lp9550_ ((_rest9552_ + (lambda (_subklass9497_ _obj9498_ _id9499_) + (let ((_klass9501_ + (let () (declare (not safe)) (object-type _obj9498_))) + (_type-id9502_ + (let () (declare (not safe)) (##type-id _subklass9497_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9501_)) + (let _lp9504_ ((_rest9506_ (let () (declare (not safe)) - (class-precedence-list _klass9547_)))) - (let* ((_rest95539561_ _rest9552_) - (_else95559569_ (lambda () '#f)) - (_K95579575_ - (lambda (_rest9572_ _klass9573_) - (if (let ((__tmp10813 + (class-precedence-list _klass9501_)))) + (let* ((_rest95079515_ _rest9506_) + (_else95099523_ (lambda () '#f)) + (_K95119529_ + (lambda (_rest9526_ _klass9527_) + (if (let ((__tmp10769 (let () (declare (not safe)) - (##type-id _klass9573_)))) + (##type-id _klass9527_)))) (declare (not safe)) - (eq? _type-id9548_ __tmp10813)) + (eq? _type-id9502_ __tmp10769)) (let () (declare (not safe)) - (mixin-find-method _rest9572_ _id9545_)) + (mixin-find-method _rest9526_ _id9499_)) (let () (declare (not safe)) - (_lp9550_ _rest9572_)))))) - (if (let () (declare (not safe)) (##pair? _rest95539561_)) - (let ((_hd95589578_ + (_lp9504_ _rest9526_)))))) + (if (let () (declare (not safe)) (##pair? _rest95079515_)) + (let ((_hd95129532_ (let () (declare (not safe)) - (##car _rest95539561_))) - (_tl95599580_ + (##car _rest95079515_))) + (_tl95139534_ (let () (declare (not safe)) - (##cdr _rest95539561_)))) - (let* ((_klass9583_ _hd95589578_) - (_rest9585_ _tl95599580_)) + (##cdr _rest95079515_)))) + (let* ((_klass9537_ _hd95129532_) + (_rest9539_ _tl95139534_)) (declare (not safe)) - (_K95579575_ _rest9585_ _klass9583_))) - (let () (declare (not safe)) (_else95559569_))))) - (if (let () (declare (not safe)) (##type? _klass9547_)) - (let _lp9587_ ((_klass9589_ _klass9547_)) - (if (let ((__tmp10812 + (_K95119529_ _rest9539_ _klass9537_))) + (let () (declare (not safe)) (_else95099523_))))) + (if (let () (declare (not safe)) (##type? _klass9501_)) + (let _lp9541_ ((_klass9543_ _klass9501_)) + (if (let ((__tmp10768 (let () (declare (not safe)) - (##type-id _klass9589_)))) + (##type-id _klass9543_)))) (declare (not safe)) - (eq? _type-id9548_ __tmp10812)) - (let ((__tmp10811 + (eq? _type-id9502_ __tmp10768)) + (let ((__tmp10767 (let () (declare (not safe)) - (##type-super _klass9589_)))) + (##type-super _klass9543_)))) (declare (not safe)) - (builtin-find-method __tmp10811 _id9545_)) - (let ((_$e9591_ + (builtin-find-method __tmp10767 _id9499_)) + (let ((_$e9545_ (let () (declare (not safe)) - (##type-super _klass9589_)))) - (if _$e9591_ - (let () (declare (not safe)) (_lp9587_ _$e9591_)) + (##type-super _klass9543_)))) + (if _$e9545_ + (let () (declare (not safe)) (_lp9541_ _$e9545_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass9533_ _obj9534_ _id9535_ . _args9536_) - (let ((_$e9538_ + (lambda (_subklass9487_ _obj9488_ _id9489_ . _args9490_) + (let ((_$e9492_ (let () (declare (not safe)) - (next-method _subklass9533_ _obj9534_ _id9535_)))) - (if _$e9538_ - ((lambda (_methodf9541_) - (apply _methodf9541_ _obj9534_ _args9536_)) - _$e9538_) - (error '"Cannot find next method" _obj9534_ _id9535_))))) - (define write-style (lambda (_we9531_) (macro-writeenv-style _we9531_))) + (next-method _subklass9487_ _obj9488_ _id9489_)))) + (if _$e9492_ + ((lambda (_methodf9495_) + (apply _methodf9495_ _obj9488_ _args9490_)) + _$e9492_) + (error '"Cannot find next method" _obj9488_ _id9489_))))) + (define write-style (lambda (_we9485_) (macro-writeenv-style _we9485_))) (define write-object - (lambda (_we9523_ _obj9524_) - (let ((_$e9526_ - (let () (declare (not safe)) (method-ref _obj9524_ ':wr)))) - (if _$e9526_ - ((lambda (_method9529_) (_method9529_ _obj9524_ _we9523_)) - _$e9526_) + (lambda (_we9477_ _obj9478_) + (let ((_$e9480_ + (let () (declare (not safe)) (method-ref _obj9478_ ':wr)))) + (if _$e9480_ + ((lambda (_method9483_) (_method9483_ _obj9478_ _we9477_)) + _$e9480_) (let () (declare (not safe)) - (##default-wr _we9523_ _obj9524_)))))) + (##default-wr _we9477_ _obj9478_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index 94846fa8..f1737cd0 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,229 +1,229 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#__slot-e| - (lambda (_$stx9405_) - (let* ((_g94099435_ - (lambda (_g94109431_) + (lambda (_$stx9359_) + (let* ((_g93639389_ + (lambda (_g93649385_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g94109431_))) - (_g94089519_ - (lambda (_g94109439_) - (if (gx#stx-pair? _g94109439_) - (let ((_e94179442_ (gx#syntax-e _g94109439_))) - (let ((_hd94169446_ - (let () (declare (not safe)) (##car _e94179442_))) - (_tl94159449_ - (let () (declare (not safe)) (##cdr _e94179442_)))) - (if (gx#stx-pair? _tl94159449_) - (let ((_e94209452_ (gx#syntax-e _tl94159449_))) - (let ((_hd94199456_ + _g93649385_))) + (_g93629473_ + (lambda (_g93649393_) + (if (gx#stx-pair? _g93649393_) + (let ((_e93719396_ (gx#syntax-e _g93649393_))) + (let ((_hd93709400_ + (let () (declare (not safe)) (##car _e93719396_))) + (_tl93699403_ + (let () (declare (not safe)) (##cdr _e93719396_)))) + (if (gx#stx-pair? _tl93699403_) + (let ((_e93749406_ (gx#syntax-e _tl93699403_))) + (let ((_hd93739410_ (let () (declare (not safe)) - (##car _e94209452_))) - (_tl94189459_ + (##car _e93749406_))) + (_tl93729413_ (let () (declare (not safe)) - (##cdr _e94209452_)))) - (if (gx#stx-pair? _tl94189459_) - (let ((_e94239462_ - (gx#syntax-e _tl94189459_))) - (let ((_hd94229466_ + (##cdr _e93749406_)))) + (if (gx#stx-pair? _tl93729413_) + (let ((_e93779416_ + (gx#syntax-e _tl93729413_))) + (let ((_hd93769420_ (let () (declare (not safe)) - (##car _e94239462_))) - (_tl94219469_ + (##car _e93779416_))) + (_tl93759423_ (let () (declare (not safe)) - (##cdr _e94239462_)))) - (if (gx#stx-pair? _tl94219469_) - (let ((_e94269472_ - (gx#syntax-e _tl94219469_))) - (let ((_hd94259476_ + (##cdr _e93779416_)))) + (if (gx#stx-pair? _tl93759423_) + (let ((_e93809426_ + (gx#syntax-e _tl93759423_))) + (let ((_hd93799430_ (let () (declare (not safe)) - (##car _e94269472_))) - (_tl94249479_ + (##car _e93809426_))) + (_tl93789433_ (let () (declare (not safe)) - (##cdr _e94269472_)))) - (if (gx#stx-pair? _tl94249479_) - (let ((_e94299482_ + (##cdr _e93809426_)))) + (if (gx#stx-pair? _tl93789433_) + (let ((_e93839436_ (gx#syntax-e - _tl94249479_))) - (let ((_hd94289486_ + _tl93789433_))) + (let ((_hd93829440_ (let () (declare (not safe)) - (##car _e94299482_))) - (_tl94279489_ + (##car _e93839436_))) + (_tl93819443_ (let () (declare (not safe)) - (##cdr _e94299482_)))) + (##cdr _e93839436_)))) (if (gx#stx-null? - _tl94279489_) - ((lambda (_L9492_ + _tl93819443_) + ((lambda (_L9446_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9494_ - _L9495_ - _L9496_) - (let ((__tmp10860 (gx#datum->syntax '#f 'if)) - (__tmp10814 - (let ((__tmp10857 - (let ((__tmp10859 + _L9448_ + _L9449_ + _L9450_) + (let ((__tmp10816 (gx#datum->syntax '#f 'if)) + (__tmp10770 + (let ((__tmp10813 + (let ((__tmp10815 (gx#datum->syntax '#f 'object?)) - (__tmp10858 + (__tmp10814 (let () (declare (not safe)) - (cons _L9496_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons __tmp10859 __tmp10858))) - (__tmp10815 - (let ((__tmp10820 - (let ((__tmp10856 + (cons __tmp10815 __tmp10814))) + (__tmp10771 + (let ((__tmp10776 + (let ((__tmp10812 (gx#datum->syntax '#f 'let)) - (__tmp10821 - (let ((__tmp10850 - (let ((__tmp10855 + (__tmp10777 + (let ((__tmp10806 + (let ((__tmp10811 (gx#datum->syntax '#f 'klass)) - (__tmp10851 - (let ((__tmp10852 + (__tmp10807 + (let ((__tmp10808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10854 + (let ((__tmp10810 (gx#datum->syntax '#f 'object-type)) - (__tmp10853 + (__tmp10809 (let () (declare (not safe)) - (cons _L9496_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons __tmp10854 __tmp10853)))) + (cons __tmp10810 __tmp10809)))) (declare (not safe)) - (cons __tmp10852 '())))) + (cons __tmp10808 '())))) (declare (not safe)) - (cons __tmp10855 __tmp10851))) - (__tmp10822 - (let ((__tmp10823 - (let ((__tmp10849 (gx#datum->syntax '#f 'cond)) - (__tmp10824 - (let ((__tmp10832 - (let ((__tmp10836 - (let ((__tmp10848 + (cons __tmp10811 __tmp10807))) + (__tmp10778 + (let ((__tmp10779 + (let ((__tmp10805 (gx#datum->syntax '#f 'cond)) + (__tmp10780 + (let ((__tmp10788 + (let ((__tmp10792 + (let ((__tmp10804 (gx#datum->syntax '#f 'and)) - (__tmp10837 - (let ((__tmp10844 - (let ((__tmp10847 + (__tmp10793 + (let ((__tmp10800 + (let ((__tmp10803 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp10845 - (let ((__tmp10846 (gx#datum->syntax '#f 'klass))) + (__tmp10801 + (let ((__tmp10802 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp10846 '())))) + (cons __tmp10802 '())))) (declare (not safe)) - (cons __tmp10847 __tmp10845))) - (__tmp10838 - (let ((__tmp10839 - (let ((__tmp10843 + (cons __tmp10803 __tmp10801))) + (__tmp10794 + (let ((__tmp10795 + (let ((__tmp10799 (gx#datum->syntax '#f 'class-slot-offset*)) - (__tmp10840 - (let ((__tmp10842 + (__tmp10796 + (let ((__tmp10798 (gx#datum->syntax '#f 'klass)) - (__tmp10841 + (__tmp10797 (let () (declare (not safe)) - (cons _L9495_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons __tmp10842 __tmp10841)))) + (cons __tmp10798 __tmp10797)))) (declare (not safe)) - (cons __tmp10843 __tmp10840)))) + (cons __tmp10799 __tmp10796)))) (declare (not safe)) - (cons __tmp10839 '())))) + (cons __tmp10795 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10844 - __tmp10838)))) + (cons __tmp10800 + __tmp10794)))) (declare (not safe)) - (cons __tmp10848 __tmp10837))) - (__tmp10833 - (let ((__tmp10835 + (cons __tmp10804 __tmp10793))) + (__tmp10789 + (let ((__tmp10791 (gx#datum->syntax '#f '=>)) - (__tmp10834 + (__tmp10790 (let () (declare (not safe)) - (cons _L9494_ '())))) + (cons _L9448_ '())))) (declare (not safe)) - (cons __tmp10835 __tmp10834)))) + (cons __tmp10791 __tmp10790)))) (declare (not safe)) - (cons __tmp10836 __tmp10833))) - (__tmp10825 - (let ((__tmp10826 - (let ((__tmp10831 + (cons __tmp10792 __tmp10789))) + (__tmp10781 + (let ((__tmp10782 + (let ((__tmp10787 (gx#datum->syntax '#f 'else)) - (__tmp10827 - (let ((__tmp10828 - (let ((__tmp10829 + (__tmp10783 + (let ((__tmp10784 + (let ((__tmp10785 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10830 + (let ((__tmp10786 (let () (declare (not safe)) - (cons _L9495_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons _L9496_ __tmp10830)))) + (cons _L9450_ __tmp10786)))) (declare (not safe)) - (cons _L9492_ __tmp10829)))) + (cons _L9446_ __tmp10785)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10828 '())))) + (cons __tmp10784 '())))) (declare (not safe)) - (cons __tmp10831 __tmp10827)))) + (cons __tmp10787 __tmp10783)))) (declare (not safe)) - (cons __tmp10826 '())))) + (cons __tmp10782 '())))) (declare (not safe)) - (cons __tmp10832 __tmp10825)))) + (cons __tmp10788 __tmp10781)))) (declare (not safe)) - (cons __tmp10849 __tmp10824)))) + (cons __tmp10805 __tmp10780)))) (declare (not safe)) - (cons __tmp10823 '())))) + (cons __tmp10779 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10850 - __tmp10822)))) + (cons __tmp10806 + __tmp10778)))) (declare (not safe)) - (cons __tmp10856 __tmp10821))) - (__tmp10816 - (let ((__tmp10817 - (let ((__tmp10818 - (let ((__tmp10819 + (cons __tmp10812 __tmp10777))) + (__tmp10772 + (let ((__tmp10773 + (let ((__tmp10774 + (let ((__tmp10775 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L9495_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons _L9496_ __tmp10819)))) + (cons _L9450_ __tmp10775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9492_ __tmp10818)))) + (cons _L9446_ __tmp10774)))) (declare (not safe)) - (cons __tmp10817 '())))) + (cons __tmp10773 '())))) (declare (not safe)) - (cons __tmp10820 __tmp10816)))) + (cons __tmp10776 __tmp10772)))) (declare (not safe)) - (cons __tmp10857 __tmp10815)))) + (cons __tmp10813 __tmp10771)))) (declare (not safe)) - (cons __tmp10860 __tmp10814))) - _hd94289486_ - _hd94259476_ - _hd94229466_ - _hd94199456_) - (_g94099435_ _g94109439_)))) + (cons __tmp10816 __tmp10770))) + _hd93829440_ + _hd93799430_ + _hd93769420_ + _hd93739410_) + (_g93639389_ _g93649393_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g94099435_ _g94109439_)))) - (_g94099435_ _g94109439_)))) - (_g94099435_ _g94109439_)))) - (_g94099435_ _g94109439_)))) - (_g94099435_ _g94109439_))))) - (_g94089519_ _$stx9405_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_))))) + (_g93629473_ _$stx9359_)))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 94de1853..88e67962 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1701931848) + (define gerbil/runtime/repl::timestamp 1704735467) (define replx (lambda () - (letrec ((_write-reason18167_ - (lambda (_exn18173_) - (lambda (_cont18175_ _port18176_) + (letrec ((_write-reason18123_ + (lambda (_exn18129_) + (lambda (_cont18131_ _port18132_) (let () (declare (not safe)) (##display-exception-in-context - _exn18173_ - _cont18175_ - _port18176_)) + _exn18129_ + _cont18131_ + _port18132_)) '#f)))) (with-exception-handler - (lambda (_exn18169_) - (let ((__tmp18177 - (lambda (_cont18171_) - (let ((__tmp18178 + (lambda (_exn18125_) + (let ((__tmp18133 + (lambda (_cont18127_) + (let ((__tmp18134 (let () (declare (not safe)) - (_write-reason18167_ _exn18169_)))) + (_write-reason18123_ _exn18125_)))) (declare (not safe)) - (##repl-within _cont18171_ __tmp18178 _exn18169_))))) + (##repl-within _cont18127_ __tmp18134 _exn18125_))))) (declare (not safe)) - (##continuation-capture __tmp18177))) + (##continuation-capture __tmp18133))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index 5d731a8e..c280937f 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 1701931848) + (define gerbil/runtime/syntax::timestamp 1704735467) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args14731_ - (apply make-class-instance SyntaxError::t _$args14731_))) + (lambda _$args14687_ + (apply make-class-instance SyntaxError::t _$args14687_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,79 +60,79 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self14634_ _port14635_) - (letrec ((_location14637_ + (lambda (_self14590_ _port14591_) + (letrec ((_location14593_ (lambda () - (let _lp14691_ ((_rest14693_ - (slot-ref _self14634_ 'irritants))) - (let* ((_rest1469414702_ _rest14693_) - (_else1469614710_ (lambda () '#f)) - (_K1469814719_ - (lambda (_rest14713_ _hd14714_) - (let ((_$e14716_ (__AST-source _hd14714_))) - (if _$e14716_ - _$e14716_ - (_lp14691_ _rest14713_)))))) - (if (##pair? _rest1469414702_) - (let ((_hd1469914722_ (##car _rest1469414702_)) - (_tl1470014724_ (##cdr _rest1469414702_))) - (let* ((_hd14727_ _hd1469914722_) - (_rest14729_ _tl1470014724_)) - (_K1469814719_ _rest14729_ _hd14727_))) - (_else1469614710_))))))) + (let _lp14647_ ((_rest14649_ + (slot-ref _self14590_ 'irritants))) + (let* ((_rest1465014658_ _rest14649_) + (_else1465214666_ (lambda () '#f)) + (_K1465414675_ + (lambda (_rest14669_ _hd14670_) + (let ((_$e14672_ (__AST-source _hd14670_))) + (if _$e14672_ + _$e14672_ + (_lp14647_ _rest14669_)))))) + (if (##pair? _rest1465014658_) + (let ((_hd1465514678_ (##car _rest1465014658_)) + (_tl1465614680_ (##cdr _rest1465014658_))) + (let* ((_hd14683_ _hd1465514678_) + (_rest14685_ _tl1465614680_)) + (_K1465414675_ _rest14685_ _hd14683_))) + (_else1465214666_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e14640_ (_location14637_))) - (if _$e14640_ - ((lambda (_where14643_) - (##display-locat _where14643_ '#t (current-output-port))) - _$e14640_) + (let ((_$e14596_ (_location14593_))) + (if _$e14596_ + ((lambda (_where14599_) + (##display-locat _where14599_ '#t (current-output-port))) + _$e14596_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e14645_ (slot-ref _self14634_ 'where))) - (if _$e14645_ - ((lambda (_where14648_) + (let ((_$e14601_ (slot-ref _self14590_ 'where))) + (if _$e14601_ + ((lambda (_where14604_) (displayln '" at " - _where14648_ + _where14604_ '": " - (slot-ref _self14634_ 'message))) - _$e14645_) - (displayln '": " (slot-ref _self14634_ 'message)))) - (let* ((_g1464914657_ (slot-ref _self14634_ 'irritants)) - (_else1465114665_ (lambda () '#!void)) - (_K1465314678_ - (lambda (_rest14668_ _stx14669_) + (slot-ref _self14590_ 'message))) + _$e14601_) + (displayln '": " (slot-ref _self14590_ 'message)))) + (let* ((_g1460514613_ (slot-ref _self14590_ 'irritants)) + (_else1460714621_ (lambda () '#!void)) + (_K1460914634_ + (lambda (_rest14624_ _stx14625_) (display '"... form: ") - (__pp-syntax _stx14669_) + (__pp-syntax _stx14625_) (for-each - (lambda (_detail14671_) + (lambda (_detail14627_) (display '"... detail: ") - (write (__AST->datum _detail14671_)) - (let ((_$e14673_ (__AST-source _detail14671_))) - (if _$e14673_ - ((lambda (_loc14676_) + (write (__AST->datum _detail14627_)) + (let ((_$e14629_ (__AST-source _detail14627_))) + (if _$e14629_ + ((lambda (_loc14632_) (display '" at ") (##display-locat - _loc14676_ + _loc14632_ '#t (current-output-port))) - _$e14673_) + _$e14629_) '#!void)) (newline)) - _rest14668_)))) - (if (##pair? _g1464914657_) - (let ((_hd1465414681_ (##car _g1464914657_)) - (_tl1465514683_ (##cdr _g1464914657_))) - (let* ((_stx14686_ _hd1465414681_) - (_rest14688_ _tl1465514683_)) - (_K1465314678_ _rest14688_ _stx14686_))) + _rest14624_)))) + (if (##pair? _g1460514613_) + (let ((_hd1461014637_ (##car _g1460514613_)) + (_tl1461114639_ (##cdr _g1460514613_))) + (let* ((_stx14642_ _hd1461014637_) + (_rest14644_ _tl1461114639_)) + (_K1460914634_ _rest14644_ _stx14642_))) '#!void))) current-output-port - _port14635_)))) + _port14591_)))) (bind-method! SyntaxError::t 'display-exception @@ -140,33 +140,33 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message14505_ - _irritants14506_ - _where14507_ - _context14508_ - _marks14509_ - _phi14510_) + (lambda (_message14461_ + _irritants14462_ + _where14463_ + _context14464_ + _marks14465_ + _phi14466_) (make-class-instance SyntaxError::t 'message: - _message14505_ + _message14461_ 'irritants: - _irritants14506_ + _irritants14462_ 'where: - _where14507_ + _where14463_ 'context: - _context14508_ + _context14464_ 'marks: - _marks14509_ + _marks14465_ 'phi: - _phi14510_))) + _phi14466_))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where14500_ _message14501_ _stx14502_ . _details14503_) + (lambda (_where14456_ _message14457_ _stx14458_ . _details14459_) (raise (make-syntax-error - _message14501_ - (cons _stx14502_ _details14503_) - _where14500_ + _message14457_ + (cons _stx14458_ _details14459_) + _where14456_ (__current-context) '#f '#f)))) @@ -175,7 +175,7 @@ (make-struct-type 'gerbil#AST::t '#f '2 'syntax '() '#f '(e source))) (define AST? (make-struct-predicate AST::t)) (define make-AST - (lambda _$args14497_ (apply make-struct-instance AST::t _$args14497_))) + (lambda _$args14453_ (apply make-struct-instance AST::t _$args14453_))) (define AST-e (make-struct-field-accessor AST::t '0)) (define AST-source (make-struct-field-accessor AST::t '1)) (define AST-e-set! (make-struct-field-mutator AST::t '0)) @@ -185,169 +185,169 @@ (define &AST-e-set! (make-struct-field-unchecked-mutator AST::t '0)) (define &AST-source-set! (make-struct-field-unchecked-mutator AST::t '1)) (define __AST-e - (lambda (_stx14495_) - (if (##structure-instance-of? _stx14495_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx14495_ '1 AST::t '#f) - _stx14495_))) + (lambda (_stx14451_) + (if (##structure-instance-of? _stx14451_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx14451_ '1 AST::t '#f) + _stx14451_))) (define __AST-source - (lambda (_stx14489_) - (let _lp14491_ ((_src14493_ _stx14489_)) - (if (##structure-instance-of? _src14493_ 'gerbil#AST::t) - (_lp14491_ (##unchecked-structure-ref _src14493_ '2 AST::t '#f)) - (if (##locat? _src14493_) _src14493_ '#f))))) + (lambda (_stx14445_) + (let _lp14447_ ((_src14449_ _stx14445_)) + (if (##structure-instance-of? _src14449_ 'gerbil#AST::t) + (_lp14447_ (##unchecked-structure-ref _src14449_ '2 AST::t '#f)) + (if (##locat? _src14449_) _src14449_ '#f))))) (define __AST - (lambda (_e14481_ _src-stx14482_) - (let ((_src14484_ (__AST-source _src-stx14482_))) - (if (or (##structure-instance-of? _e14481_ 'gerbil#AST::t) - (not _src14484_)) - _e14481_ - (##structure AST::t _e14481_ _src14484_))))) + (lambda (_e14437_ _src-stx14438_) + (let ((_src14440_ (__AST-source _src-stx14438_))) + (if (or (##structure-instance-of? _e14437_ 'gerbil#AST::t) + (not _src14440_)) + _e14437_ + (##structure AST::t _e14437_ _src14440_))))) (define __AST-eq? - (lambda (_stx14478_ _obj14479_) (eq? (__AST-e _stx14478_) _obj14479_))) - (define __AST-pair? (lambda (_stx14476_) (pair? (__AST-e _stx14476_)))) - (define __AST-null? (lambda (_stx14474_) (null? (__AST-e _stx14474_)))) + (lambda (_stx14434_ _obj14435_) (eq? (__AST-e _stx14434_) _obj14435_))) + (define __AST-pair? (lambda (_stx14432_) (pair? (__AST-e _stx14432_)))) + (define __AST-null? (lambda (_stx14430_) (null? (__AST-e _stx14430_)))) (define __AST-datum? - (lambda (_stx14455_) - (let* ((_e14457_ (__AST-e _stx14455_)) (_$e14459_ (number? _e14457_))) - (if _$e14459_ - _$e14459_ - (let ((_$e14462_ (string? _e14457_))) - (if _$e14462_ - _$e14462_ - (let ((_$e14465_ (char? _e14457_))) - (if _$e14465_ - _$e14465_ - (let ((_$e14468_ (keyword? _e14457_))) - (if _$e14468_ - _$e14468_ - (let ((_$e14471_ (boolean? _e14457_))) - (if _$e14471_ - _$e14471_ - (eq? _e14457_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx14453_) (symbol? (__AST-e _stx14453_)))) + (lambda (_stx14411_) + (let* ((_e14413_ (__AST-e _stx14411_)) (_$e14415_ (number? _e14413_))) + (if _$e14415_ + _$e14415_ + (let ((_$e14418_ (string? _e14413_))) + (if _$e14418_ + _$e14418_ + (let ((_$e14421_ (char? _e14413_))) + (if _$e14421_ + _$e14421_ + (let ((_$e14424_ (keyword? _e14413_))) + (if _$e14424_ + _$e14424_ + (let ((_$e14427_ (boolean? _e14413_))) + (if _$e14427_ + _$e14427_ + (eq? _e14413_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx14409_) (symbol? (__AST-e _stx14409_)))) (define __AST-id-list?__% - (lambda (_stx14404_ _tail?14405_) - (let _lp14407_ ((_rest14409_ _stx14404_)) - (let* ((_$e14411_ _rest14409_) - (_$E1441314426_ + (lambda (_stx14360_ _tail?14361_) + (let _lp14363_ ((_rest14365_ _stx14360_)) + (let* ((_$e14367_ _rest14365_) + (_$E1436914382_ (lambda () - (let* ((_$E1441414421_ + (let* ((_$E1437014377_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14411_))) - (_rest14424_ _$e14411_)) - (_tail?14405_ _rest14424_))))) - (if (__AST-pair? _$e14411_) - (let* ((_$tgt1441514429_ (__AST-e _$e14411_)) - (_$hd1441614432_ (##car _$tgt1441514429_)) - (_$tl1441714435_ (##cdr _$tgt1441514429_))) - (let* ((_hd14439_ _$hd1441614432_) - (_rest14441_ _$tl1441714435_)) - (if (__AST-id? _hd14439_) (_lp14407_ _rest14441_) '#f))) - (_$E1441314426_)))))) + _$e14367_))) + (_rest14380_ _$e14367_)) + (_tail?14361_ _rest14380_))))) + (if (__AST-pair? _$e14367_) + (let* ((_$tgt1437114385_ (__AST-e _$e14367_)) + (_$hd1437214388_ (##car _$tgt1437114385_)) + (_$tl1437314391_ (##cdr _$tgt1437114385_))) + (let* ((_hd14395_ _$hd1437214388_) + (_rest14397_ _$tl1437314391_)) + (if (__AST-id? _hd14395_) (_lp14363_ _rest14397_) '#f))) + (_$E1436914382_)))))) (define __AST-id-list?__0 - (lambda (_stx14446_) - (let ((_tail?14448_ __AST-null?)) - (__AST-id-list?__% _stx14446_ _tail?14448_)))) + (lambda (_stx14402_) + (let ((_tail?14404_ __AST-null?)) + (__AST-id-list?__% _stx14402_ _tail?14404_)))) (define __AST-id-list? - (lambda _g14826_ - (let ((_g14825_ (##length _g14826_))) - (cond ((##fx= _g14825_ 1) - (apply (lambda (_stx14446_) (__AST-id-list?__0 _stx14446_)) - _g14826_)) - ((##fx= _g14825_ 2) - (apply (lambda (_stx14450_ _tail?14451_) - (__AST-id-list?__% _stx14450_ _tail?14451_)) - _g14826_)) + (lambda _g14782_ + (let ((_g14781_ (##length _g14782_))) + (cond ((##fx= _g14781_ 1) + (apply (lambda (_stx14402_) (__AST-id-list?__0 _stx14402_)) + _g14782_)) + ((##fx= _g14781_ 2) + (apply (lambda (_stx14406_ _tail?14407_) + (__AST-id-list?__% _stx14406_ _tail?14407_)) + _g14782_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g14826_)))))) + _g14782_)))))) (define __AST-bind-list? - (lambda (_stx14396_) + (lambda (_stx14352_) (__AST-id-list?__% - _stx14396_ - (lambda (_e14398_) - (let ((_$e14400_ (__AST-null? _e14398_))) - (if _$e14400_ _$e14400_ (__AST-id? _e14398_))))))) + _stx14352_ + (lambda (_e14354_) + (let ((_$e14356_ (__AST-null? _e14354_))) + (if _$e14356_ _$e14356_ (__AST-id? _e14354_))))))) (define __AST-list?__% - (lambda (_stx14349_ _tail?14350_) - (let _lp14352_ ((_rest14354_ _stx14349_)) - (let* ((_$e14356_ _rest14354_) - (_$E1435814371_ + (lambda (_stx14305_ _tail?14306_) + (let _lp14308_ ((_rest14310_ _stx14305_)) + (let* ((_$e14312_ _rest14310_) + (_$E1431414327_ (lambda () - (let* ((_$E1435914366_ + (let* ((_$E1431514322_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14356_))) - (_rest14369_ _$e14356_)) - (_tail?14350_ _rest14369_))))) - (if (__AST-pair? _$e14356_) - (let* ((_$tgt1436014374_ (__AST-e _$e14356_)) - (_$hd1436114377_ (##car _$tgt1436014374_)) - (_$tl1436214380_ (##cdr _$tgt1436014374_))) - (let ((_rest14384_ _$tl1436214380_)) - (_lp14352_ _rest14384_))) - (_$E1435814371_)))))) + _$e14312_))) + (_rest14325_ _$e14312_)) + (_tail?14306_ _rest14325_))))) + (if (__AST-pair? _$e14312_) + (let* ((_$tgt1431614330_ (__AST-e _$e14312_)) + (_$hd1431714333_ (##car _$tgt1431614330_)) + (_$tl1431814336_ (##cdr _$tgt1431614330_))) + (let ((_rest14340_ _$tl1431814336_)) + (_lp14308_ _rest14340_))) + (_$E1431414327_)))))) (define __AST-list?__0 - (lambda (_stx14389_) - (let ((_tail?14391_ __AST-null?)) - (__AST-list?__% _stx14389_ _tail?14391_)))) + (lambda (_stx14345_) + (let ((_tail?14347_ __AST-null?)) + (__AST-list?__% _stx14345_ _tail?14347_)))) (define __AST-list? - (lambda _g14828_ - (let ((_g14827_ (##length _g14828_))) - (cond ((##fx= _g14827_ 1) - (apply (lambda (_stx14389_) (__AST-list?__0 _stx14389_)) - _g14828_)) - ((##fx= _g14827_ 2) - (apply (lambda (_stx14393_ _tail?14394_) - (__AST-list?__% _stx14393_ _tail?14394_)) - _g14828_)) + (lambda _g14784_ + (let ((_g14783_ (##length _g14784_))) + (cond ((##fx= _g14783_ 1) + (apply (lambda (_stx14345_) (__AST-list?__0 _stx14345_)) + _g14784_)) + ((##fx= _g14783_ 2) + (apply (lambda (_stx14349_ _tail?14350_) + (__AST-list?__% _stx14349_ _tail?14350_)) + _g14784_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g14828_)))))) + _g14784_)))))) (define __AST->list - (lambda (_stx14314_) - (let* ((_$e14316_ _stx14314_) - (_$E1431814331_ + (lambda (_stx14270_) + (let* ((_$e14272_ _stx14270_) + (_$E1427414287_ (lambda () - (let* ((_$E1431914326_ + (let* ((_$E1427514282_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14316_))) - (_rest14329_ _$e14316_)) - (__AST-e _rest14329_))))) - (if (__AST-pair? _$e14316_) - (let* ((_$tgt1432014334_ (__AST-e _$e14316_)) - (_$hd1432114337_ (##car _$tgt1432014334_)) - (_$tl1432214340_ (##cdr _$tgt1432014334_))) - (let* ((_hd14344_ _$hd1432114337_) - (_rest14346_ _$tl1432214340_)) - (cons _hd14344_ (__AST->list _rest14346_)))) - (_$E1431814331_))))) + _$e14272_))) + (_rest14285_ _$e14272_)) + (__AST-e _rest14285_))))) + (if (__AST-pair? _$e14272_) + (let* ((_$tgt1427614290_ (__AST-e _$e14272_)) + (_$hd1427714293_ (##car _$tgt1427614290_)) + (_$tl1427814296_ (##cdr _$tgt1427614290_))) + (let* ((_hd14300_ _$hd1427714293_) + (_rest14302_ _$tl1427814296_)) + (cons _hd14300_ (__AST->list _rest14302_)))) + (_$E1427414287_))))) (define __AST->datum - (lambda (_stx14312_) - (if (##structure-instance-of? _stx14312_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx14312_)) - (if (pair? _stx14312_) - (cons (__AST->datum (car _stx14312_)) - (__AST->datum (cdr _stx14312_))) - (if (vector? _stx14312_) - (vector-map __AST->datum _stx14312_) - (if (box? _stx14312_) - (box (__AST->datum (unbox _stx14312_))) - _stx14312_)))))) + (lambda (_stx14268_) + (if (##structure-instance-of? _stx14268_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx14268_)) + (if (pair? _stx14268_) + (cons (__AST->datum (car _stx14268_)) + (__AST->datum (cdr _stx14268_))) + (if (vector? _stx14268_) + (vector-map __AST->datum _stx14268_) + (if (box? _stx14268_) + (box (__AST->datum (unbox _stx14268_))) + _stx14268_)))))) (define get-readenv - (lambda (_port14310_) + (lambda (_port14266_) (##make-readenv - _port14310_ + _port14266_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -355,83 +355,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in14298_) - (let ((_e14300_ (##read-datum-or-eof (get-readenv _in14298_)))) - (if (eof-object? (__AST-e _e14300_)) (__AST-e _e14300_) _e14300_)))) + (lambda (_in14254_) + (let ((_e14256_ (##read-datum-or-eof (get-readenv _in14254_)))) + (if (eof-object? (__AST-e _e14256_)) (__AST-e _e14256_) _e14256_)))) (define read-syntax__0 (lambda () - (let ((_in14306_ (current-input-port))) (read-syntax__% _in14306_)))) + (let ((_in14262_ (current-input-port))) (read-syntax__% _in14262_)))) (define read-syntax - (lambda _g14830_ - (let ((_g14829_ (##length _g14830_))) - (cond ((##fx= _g14829_ 0) - (apply (lambda () (read-syntax__0)) _g14830_)) - ((##fx= _g14829_ 1) - (apply (lambda (_in14308_) (read-syntax__% _in14308_)) - _g14830_)) + (lambda _g14786_ + (let ((_g14785_ (##length _g14786_))) + (cond ((##fx= _g14785_ 0) + (apply (lambda () (read-syntax__0)) _g14786_)) + ((##fx= _g14785_ 1) + (apply (lambda (_in14264_) (read-syntax__% _in14264_)) + _g14786_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g14830_)))))) + _g14786_)))))) (define read-syntax-from-file - (lambda (_path14293_) - (let ((_r14295_ + (lambda (_path14249_) + (let ((_r14251_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path14293_) + (path-normalize _path14249_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r14295_) - (cdr (__AST-e (vector-ref _r14295_ '1))) - (error (err-code->string _r14295_) _path14293_))))) + (if (vector? _r14251_) + (cdr (__AST-e (vector-ref _r14251_ '1))) + (error (err-code->string _r14251_) _path14249_))))) (define __wrap-syntax - (lambda (_re14290_ _e14291_) - (if (eof-object? _e14291_) - _e14291_ - (##structure AST::t _e14291_ (##readenv->locat _re14290_))))) - (define __unwrap-syntax (lambda (_re14287_ _e14288_) (__AST-e _e14288_))) - (define __pp-syntax (lambda (_stx14285_) (pp (__AST->datum _stx14285_)))) + (lambda (_re14246_ _e14247_) + (if (eof-object? _e14247_) + _e14247_ + (##structure AST::t _e14247_ (##readenv->locat _re14246_))))) + (define __unwrap-syntax (lambda (_re14243_ _e14244_) (__AST-e _e14244_))) + (define __pp-syntax (lambda (_stx14241_) (pp (__AST->datum _stx14241_)))) (define __make-readtable (lambda () - (let ((_rt14283_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt14283_ '#t) - (macro-readtable-bracket-handler-set! _rt14283_ '@list) - (macro-readtable-brace-handler-set! _rt14283_ '@method) + (let ((_rt14239_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt14239_ '#t) + (macro-readtable-bracket-handler-set! _rt14239_ '@list) + (macro-readtable-brace-handler-set! _rt14239_ '@method) (##readtable-char-sharp-handler-set! - _rt14283_ + _rt14239_ '#\! __read-sharp-bang) - _rt14283_))) + _rt14239_))) (define __readtable-bracket-keyword-set! - (lambda (_rt14279_ _kw14280_) - (macro-readtable-bracket-handler-set! _rt14279_ _kw14280_))) + (lambda (_rt14235_ _kw14236_) + (macro-readtable-bracket-handler-set! _rt14235_ _kw14236_))) (define __readtable-brace-keyword-set! - (lambda (_rt14276_ _kw14277_) - (macro-readtable-brace-handler-set! _rt14276_ _kw14277_))) + (lambda (_rt14232_ _kw14233_) + (macro-readtable-brace-handler-set! _rt14232_ _kw14233_))) (define __read-sharp-bang - (lambda (_re14267_ _next14268_ _start-pos14269_) - (if (eq? _start-pos14269_ '0) - (let* ((_line14271_ + (lambda (_re14223_ _next14224_ _start-pos14225_) + (if (eq? _start-pos14225_ '0) + (let* ((_line14227_ (##read-line - (macro-readenv-port _re14267_) + (macro-readenv-port _re14223_) '#\newline '#f ##max-fixnum)) - (_script-line14273_ - (substring _line14271_ '1 (string-length _line14271_)))) - (macro-readenv-script-line-set! _re14267_ _script-line14273_) + (_script-line14229_ + (substring _line14227_ '1 (string-length _line14227_)))) + (macro-readenv-script-line-set! _re14223_ _script-line14229_) (##script-marker)) - (##read-sharp-bang _re14267_ _next14268_ _start-pos14269_)))) + (##read-sharp-bang _re14223_ _next14224_ _start-pos14225_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj14265_) - (if (source-location? _obj14265_) - (string? (##locat-container _obj14265_)) + (lambda (_obj14221_) + (if (source-location? _obj14221_) + (string? (##locat-container _obj14221_)) '#f))) (define source-location-path - (lambda (_obj14263_) - (if (##locat? _obj14263_) - (##container->path (##locat-container _obj14263_)) + (lambda (_obj14219_) + (if (##locat? _obj14219_) + (##container->path (##locat-container _obj14219_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 191ca1d2..69276705 100644 --- a/src/bootstrap/gerbil/runtime/syntax__1.scm +++ b/src/bootstrap/gerbil/runtime/syntax__1.scm @@ -1,174 +1,174 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g14935_| + (define |[1]#_g14891_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g14941_| + (define |[1]#_g14897_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g14954_| + (define |[1]#_g14910_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14956_| + (define |[1]#_g14912_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14958_| + (define |[1]#_g14914_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14960_| + (define |[1]#_g14916_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14962_| + (define |[1]#_g14918_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14964_| + (define |[1]#_g14920_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g14972_| + (define |[1]#_g14928_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g14974_| + (define |[1]#_g14930_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g14976_| + (define |[1]#_g14932_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g14978_| + (define |[1]#_g14934_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g14980_| + (define |[1]#_g14936_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g14982_| + (define |[1]#_g14938_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g14984_| + (define |[1]#_g14940_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g14986_| + (define |[1]#_g14942_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g14990_| + (define |[1]#_g14946_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g14991_| + (define |[1]#_g14947_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g14992_| + (define |[1]#_g14948_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g15001_| + (define |[1]#_g14957_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15003_| + (define |[1]#_g14959_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15007_| + (define |[1]#_g14963_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g15009_| + (define |[1]#_g14965_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g15011_| + (define |[1]#_g14967_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g15013_| + (define |[1]#_g14969_| (##structure gx#syntax-quote::t 'make-AST @@ -177,1254 +177,1254 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx13152_) - (let* ((_g1315613180_ - (lambda (_g1315713176_) + (lambda (_$stx13108_) + (let* ((_g1311213136_ + (lambda (_g1311313132_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1315713176_))) - (_g1315513266_ - (lambda (_g1315713184_) - (if (gx#stx-pair? _g1315713184_) - (let ((_e1316213187_ (gx#syntax-e _g1315713184_))) - (let ((_hd1316113191_ + _g1311313132_))) + (_g1311113222_ + (lambda (_g1311313140_) + (if (gx#stx-pair? _g1311313140_) + (let ((_e1311813143_ (gx#syntax-e _g1311313140_))) + (let ((_hd1311713147_ (let () (declare (not safe)) - (##car _e1316213187_))) - (_tl1316013194_ + (##car _e1311813143_))) + (_tl1311613150_ (let () (declare (not safe)) - (##cdr _e1316213187_)))) - (if (gx#stx-pair? _tl1316013194_) - (let ((_e1316513197_ - (gx#syntax-e _tl1316013194_))) - (let ((_hd1316413201_ + (##cdr _e1311813143_)))) + (if (gx#stx-pair? _tl1311613150_) + (let ((_e1312113153_ + (gx#syntax-e _tl1311613150_))) + (let ((_hd1312013157_ (let () (declare (not safe)) - (##car _e1316513197_))) - (_tl1316313204_ + (##car _e1312113153_))) + (_tl1311913160_ (let () (declare (not safe)) - (##cdr _e1316513197_)))) - (if (gx#stx-pair/null? _tl1316313204_) - (let ((_g14831_ + (##cdr _e1312113153_)))) + (if (gx#stx-pair/null? _tl1311913160_) + (let ((_g14787_ (gx#syntax-split-splice - _tl1316313204_ + _tl1311913160_ '0))) (begin - (let ((_g14832_ + (let ((_g14788_ (let () (declare (not safe)) - (if (##values? _g14831_) + (if (##values? _g14787_) (##vector-length - _g14831_) + _g14787_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g14832_ 2))) + (##fx= _g14788_ 2))) (error "Context expects 2 values" - _g14832_))) - (let ((_target1316613207_ + _g14788_))) + (let ((_target1312213163_ (let () (declare (not safe)) - (##vector-ref _g14831_ 0))) - (_tl1316813210_ + (##vector-ref _g14787_ 0))) + (_tl1312413166_ (let () (declare (not safe)) - (##vector-ref _g14831_ 1)))) - (if (gx#stx-null? _tl1316813210_) - (letrec ((_loop1316913213_ - (lambda (_hd1316713217_ + (##vector-ref _g14787_ 1)))) + (if (gx#stx-null? _tl1312413166_) + (letrec ((_loop1312513169_ + (lambda (_hd1312313173_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1317313220_) - (if (gx#stx-pair? _hd1316713217_) - (let ((_e1317013223_ (gx#syntax-e _hd1316713217_))) - (let ((_lp-hd1317113227_ + _body1312913176_) + (if (gx#stx-pair? _hd1312313173_) + (let ((_e1312613179_ (gx#syntax-e _hd1312313173_))) + (let ((_lp-hd1312713183_ (let () (declare (not safe)) - (##car _e1317013223_))) - (_lp-tl1317213230_ + (##car _e1312613179_))) + (_lp-tl1312813186_ (let () (declare (not safe)) - (##cdr _e1317013223_)))) - (_loop1316913213_ - _lp-tl1317213230_ + (##cdr _e1312613179_)))) + (_loop1312513169_ + _lp-tl1312813186_ (let () (declare (not safe)) - (cons _lp-hd1317113227_ _body1317313220_))))) - (let ((_body1317413233_ (reverse _body1317313220_))) - ((lambda (_L13237_ _L13239_) - (let ((__tmp14844 (gx#datum->syntax '#f 'let)) - (__tmp14833 - (let ((__tmp14841 - (let ((__tmp14843 + (cons _lp-hd1312713183_ _body1312913176_))))) + (let ((_body1313013189_ (reverse _body1312913176_))) + ((lambda (_L13193_ _L13195_) + (let ((__tmp14800 (gx#datum->syntax '#f 'let)) + (__tmp14789 + (let ((__tmp14797 + (let ((__tmp14799 (gx#datum->syntax '#f '$e)) - (__tmp14842 + (__tmp14798 (let () (declare (not safe)) - (cons _L13239_ '())))) + (cons _L13195_ '())))) (declare (not safe)) - (cons __tmp14843 __tmp14842))) - (__tmp14834 - (let ((__tmp14835 - (let ((__tmp14840 + (cons __tmp14799 __tmp14798))) + (__tmp14790 + (let ((__tmp14791 + (let ((__tmp14796 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp14836 - (let ((__tmp14839 + (__tmp14792 + (let ((__tmp14795 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp14837 - (let ((__tmp14838 - (lambda (_g1325713260_ _g1325813263_) + (__tmp14793 + (let ((__tmp14794 + (lambda (_g1321313216_ _g1321413219_) (let () (declare (not safe)) - (cons _g1325713260_ _g1325813263_))))) + (cons _g1321313216_ _g1321413219_))))) (declare (not safe)) - (foldr1 __tmp14838 '() _L13237_)))) + (foldr1 __tmp14794 '() _L13193_)))) (declare (not safe)) - (cons __tmp14839 __tmp14837)))) + (cons __tmp14795 __tmp14793)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14840 - __tmp14836)))) + (cons __tmp14796 + __tmp14792)))) (declare (not safe)) - (cons __tmp14835 '())))) + (cons __tmp14791 '())))) (declare (not safe)) - (cons __tmp14841 __tmp14834)))) + (cons __tmp14797 __tmp14790)))) (declare (not safe)) - (cons __tmp14844 __tmp14833))) - _body1317413233_ - _hd1316413201_)))))) + (cons __tmp14800 __tmp14789))) + _body1313013189_ + _hd1312013157_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1316913213_ - _target1316613207_ + (_loop1312513169_ + _target1312213163_ '())) - (_g1315613180_ - _g1315713184_))))) - (_g1315613180_ _g1315713184_)))) - (_g1315613180_ _g1315713184_)))) - (_g1315613180_ _g1315713184_))))) - (_g1315513266_ _$stx13152_)))) + (_g1311213136_ + _g1311313140_))))) + (_g1311213136_ _g1311313140_)))) + (_g1311213136_ _g1311313140_)))) + (_g1311213136_ _g1311313140_))))) + (_g1311113222_ _$stx13108_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx13271_) - (letrec ((_generate113274_ - (lambda (_hd13815_ _tgt13817_ _K13818_ _E13819_ _kws13820_) - (let* ((_g1382213830_ - (lambda (_g1382313826_) + (lambda (_stx13227_) + (letrec ((_generate113230_ + (lambda (_hd13771_ _tgt13773_ _K13774_ _E13775_ _kws13776_) + (let* ((_g1377813786_ + (lambda (_g1377913782_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1382313826_))) - (_g1382114257_ - (lambda (_g1382313834_) - ((lambda (_L13837_) + _g1377913782_))) + (_g1377714213_ + (lambda (_g1377913790_) + ((lambda (_L13793_) (let () - (let* ((___stx1473414735_ _hd13815_) - (_g1385113865_ + (let* ((___stx1469014691_ _hd13771_) + (_g1380713821_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1473414735_)))) - (let ((___kont1473714738_ - (lambda (_L14079_ _L14081_) - (let* ((_g1409214100_ - (lambda (_g1409314096_) + ___stx1469014691_)))) + (let ((___kont1469314694_ + (lambda (_L14035_ _L14037_) + (let* ((_g1404814056_ + (lambda (_g1404914052_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1409314096_))) - (_g1409114249_ - (lambda (_g1409314104_) - ((lambda (_L14107_) + _g1404914052_))) + (_g1404714205_ + (lambda (_g1404914060_) + ((lambda (_L14063_) (let () - (let* ((_g1411914127_ + (let* ((_g1407514083_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1412014123_) + (lambda (_g1407614079_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1412014123_))) - (_g1411814245_ - (lambda (_g1412014131_) - ((lambda (_L14134_) + _g1407614079_))) + (_g1407414201_ + (lambda (_g1407614087_) + ((lambda (_L14090_) (let () - (let* ((_g1414714155_ - (lambda (_g1414814151_) + (let* ((_g1410314111_ + (lambda (_g1410414107_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1414814151_))) - (_g1414614241_ - (lambda (_g1414814159_) - ((lambda (_L14162_) + _g1410414107_))) + (_g1410214197_ + (lambda (_g1410414115_) + ((lambda (_L14118_) (let () - (let* ((_g1417514183_ - (lambda (_g1417614179_) + (let* ((_g1413114139_ + (lambda (_g1413214135_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1417614179_))) - (_g1417414237_ - (lambda (_g1417614187_) - ((lambda (_L14190_) + _g1413214135_))) + (_g1413014193_ + (lambda (_g1413214143_) + ((lambda (_L14146_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g1420314211_ - (lambda (_g1420414207_) + (let* ((_g1415914167_ + (lambda (_g1416014163_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1420414207_))) - (_g1420214233_ - (lambda (_g1420414215_) - ((lambda (_L14218_) + _g1416014163_))) + (_g1415814189_ + (lambda (_g1416014171_) + ((lambda (_L14174_) (let () (let () - (let ((__tmp14873 + (let ((__tmp14829 (gx#datum->syntax '#f 'if)) - (__tmp14845 - (let ((__tmp14870 - (let ((__tmp14872 + (__tmp14801 + (let ((__tmp14826 + (let ((__tmp14828 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp14871 - (let () (declare (not safe)) (cons _L13837_ '())))) + (__tmp14827 + (let () (declare (not safe)) (cons _L13793_ '())))) (declare (not safe)) - (cons __tmp14872 __tmp14871))) - (__tmp14846 - (let ((__tmp14848 - (let ((__tmp14869 (gx#datum->syntax '#f 'let*)) - (__tmp14849 - (let ((__tmp14851 - (let ((__tmp14864 - (let ((__tmp14865 - (let ((__tmp14866 - (let ((__tmp14868 + (cons __tmp14828 __tmp14827))) + (__tmp14802 + (let ((__tmp14804 + (let ((__tmp14825 (gx#datum->syntax '#f 'let*)) + (__tmp14805 + (let ((__tmp14807 + (let ((__tmp14820 + (let ((__tmp14821 + (let ((__tmp14822 + (let ((__tmp14824 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14867 - (let () (declare (not safe)) (cons _L13837_ '())))) + (__tmp14823 + (let () (declare (not safe)) (cons _L13793_ '())))) (declare (not safe)) - (cons __tmp14868 __tmp14867)))) + (cons __tmp14824 __tmp14823)))) (declare (not safe)) - (cons __tmp14866 '())))) + (cons __tmp14822 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L14107_ __tmp14865))) - (__tmp14852 - (let ((__tmp14859 - (let ((__tmp14860 - (let ((__tmp14861 + (cons _L14063_ __tmp14821))) + (__tmp14808 + (let ((__tmp14815 + (let ((__tmp14816 + (let ((__tmp14817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14863 (gx#datum->syntax '#f '##car)) - (__tmp14862 + (let ((__tmp14819 (gx#datum->syntax '#f '##car)) + (__tmp14818 (let () (declare (not safe)) - (cons _L14107_ '())))) + (cons _L14063_ '())))) (declare (not safe)) - (cons __tmp14863 __tmp14862)))) + (cons __tmp14819 __tmp14818)))) (declare (not safe)) - (cons __tmp14861 '())))) + (cons __tmp14817 '())))) (declare (not safe)) - (cons _L14134_ __tmp14860))) + (cons _L14090_ __tmp14816))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp14853 - (let ((__tmp14854 - (let ((__tmp14855 + (__tmp14809 + (let ((__tmp14810 + (let ((__tmp14811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14856 - (let ((__tmp14858 + (let ((__tmp14812 + (let ((__tmp14814 (gx#datum->syntax '#f '##cdr)) - (__tmp14857 + (__tmp14813 (let () (declare (not safe)) - (cons _L14107_ '())))) + (cons _L14063_ '())))) (declare (not safe)) - (cons __tmp14858 __tmp14857)))) + (cons __tmp14814 __tmp14813)))) (declare (not safe)) - (cons __tmp14856 '())))) + (cons __tmp14812 '())))) (declare (not safe)) - (cons _L14162_ __tmp14855)))) + (cons _L14118_ __tmp14811)))) (declare (not safe)) - (cons __tmp14854 '())))) + (cons __tmp14810 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14859 __tmp14853)))) + (cons __tmp14815 __tmp14809)))) (declare (not safe)) - (cons __tmp14864 __tmp14852))) - (__tmp14850 + (cons __tmp14820 __tmp14808))) + (__tmp14806 (let () (declare (not safe)) - (cons _L14190_ '())))) + (cons _L14146_ '())))) (declare (not safe)) - (cons __tmp14851 __tmp14850)))) + (cons __tmp14807 __tmp14806)))) (declare (not safe)) - (cons __tmp14869 __tmp14849))) - (__tmp14847 - (let () (declare (not safe)) (cons _L14218_ '())))) + (cons __tmp14825 __tmp14805))) + (__tmp14803 + (let () (declare (not safe)) (cons _L14174_ '())))) (declare (not safe)) - (cons __tmp14848 __tmp14847)))) + (cons __tmp14804 __tmp14803)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14870 - __tmp14846)))) + (cons __tmp14826 + __tmp14802)))) (declare (not safe)) - (cons __tmp14873 __tmp14845))))) - _g1420414215_)))) - (_g1420214233_ _E13819_)))) - _g1417614187_)))) + (cons __tmp14829 __tmp14801))))) + _g1416014171_)))) + (_g1415814189_ _E13775_)))) + _g1413214143_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1417414237_ - (_generate113274_ - _L14081_ - _L14134_ - (_generate113274_ - _L14079_ - _L14162_ - _K13818_ - _E13819_ - _kws13820_) - _E13819_ - _kws13820_))))) - _g1414814159_)))) - (_g1414614241_ (gx#genident '$tl))))) - _g1412014131_)))) - (_g1411814245_ (gx#genident '$hd))))) - _g1409314104_)))) + (_g1413014193_ + (_generate113230_ + _L14037_ + _L14090_ + (_generate113230_ + _L14035_ + _L14118_ + _K13774_ + _E13775_ + _kws13776_) + _E13775_ + _kws13776_))))) + _g1410414115_)))) + (_g1410214197_ (gx#genident '$tl))))) + _g1407614087_)))) + (_g1407414201_ (gx#genident '$hd))))) + _g1404914060_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1409114249_ + (_g1404714205_ (gx#genident '$tgt))))) - (___kont1473914740_ - (lambda (_L13954_) - (if (gx#underscore? _L13954_) - _K13818_ - (if (let ((__tmp14902 - (lambda (_g1396213964_) + (___kont1469514696_ + (lambda (_L13910_) + (if (gx#underscore? _L13910_) + _K13774_ + (if (let ((__tmp14858 + (lambda (_g1391813920_) (gx#bound-identifier=? - _g1396213964_ - _L13954_))) - (__tmp14901 + _g1391813920_ + _L13910_))) + (__tmp14857 (gx#syntax->list - _kws13820_))) + _kws13776_))) (declare (not safe)) - (find __tmp14902 - __tmp14901)) - (let* ((_g1396813983_ - (lambda (_g1396913979_) + (find __tmp14858 + __tmp14857)) + (let* ((_g1392413939_ + (lambda (_g1392513935_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g1396913979_))) - (_g1396714028_ - (lambda (_g1396913987_) - (if (gx#stx-pair? _g1396913987_) - (let ((_e1397413990_ (gx#syntax-e _g1396913987_))) - (let ((_hd1397313994_ + _g1392513935_))) + (_g1392313984_ + (lambda (_g1392513943_) + (if (gx#stx-pair? _g1392513943_) + (let ((_e1393013946_ (gx#syntax-e _g1392513943_))) + (let ((_hd1392913950_ (let () (declare (not safe)) - (##car _e1397413990_))) - (_tl1397213997_ + (##car _e1393013946_))) + (_tl1392813953_ (let () (declare (not safe)) - (##cdr _e1397413990_)))) - (if (gx#stx-pair? _tl1397213997_) - (let ((_e1397714000_ - (gx#syntax-e _tl1397213997_))) - (let ((_hd1397614004_ + (##cdr _e1393013946_)))) + (if (gx#stx-pair? _tl1392813953_) + (let ((_e1393313956_ + (gx#syntax-e _tl1392813953_))) + (let ((_hd1393213960_ (let () (declare (not safe)) - (##car _e1397714000_))) - (_tl1397514007_ + (##car _e1393313956_))) + (_tl1393113963_ (let () (declare (not safe)) - (##cdr _e1397714000_)))) - (if (gx#stx-null? _tl1397514007_) - ((lambda (_L14010_ _L14012_) + (##cdr _e1393313956_)))) + (if (gx#stx-null? _tl1393113963_) + ((lambda (_L13966_ _L13968_) (let () - (let ((__tmp14900 + (let ((__tmp14856 (gx#datum->syntax '#f 'if)) - (__tmp14880 - (let ((__tmp14883 - (let ((__tmp14899 + (__tmp14836 + (let ((__tmp14839 + (let ((__tmp14855 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp14884 - (let ((__tmp14896 - (let ((__tmp14898 + (__tmp14840 + (let ((__tmp14852 + (let ((__tmp14854 (gx#datum->syntax '#f '__AST-id?)) - (__tmp14897 + (__tmp14853 (let () (declare (not safe)) - (cons _L13837_ '())))) + (cons _L13793_ '())))) (declare (not safe)) - (cons __tmp14898 __tmp14897))) - (__tmp14885 - (let ((__tmp14886 - (let ((__tmp14895 + (cons __tmp14854 __tmp14853))) + (__tmp14841 + (let ((__tmp14842 + (let ((__tmp14851 (gx#datum->syntax '#f 'eq?)) - (__tmp14887 - (let ((__tmp14892 - (let ((__tmp14894 + (__tmp14843 + (let ((__tmp14848 + (let ((__tmp14850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14893 - (let () (declare (not safe)) (cons _L13837_ '())))) + (__tmp14849 + (let () (declare (not safe)) (cons _L13793_ '())))) (declare (not safe)) - (cons __tmp14894 __tmp14893))) - (__tmp14888 - (let ((__tmp14889 - (let ((__tmp14891 (gx#datum->syntax '#f 'quote)) - (__tmp14890 + (cons __tmp14850 __tmp14849))) + (__tmp14844 + (let ((__tmp14845 + (let ((__tmp14847 (gx#datum->syntax '#f 'quote)) + (__tmp14846 (let () (declare (not safe)) - (cons _L13954_ '())))) + (cons _L13910_ '())))) (declare (not safe)) - (cons __tmp14891 __tmp14890)))) + (cons __tmp14847 __tmp14846)))) (declare (not safe)) - (cons __tmp14889 '())))) + (cons __tmp14845 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14892 - __tmp14888)))) + (cons __tmp14848 + __tmp14844)))) (declare (not safe)) - (cons __tmp14895 __tmp14887)))) + (cons __tmp14851 __tmp14843)))) (declare (not safe)) - (cons __tmp14886 '())))) + (cons __tmp14842 '())))) (declare (not safe)) - (cons __tmp14896 __tmp14885)))) + (cons __tmp14852 __tmp14841)))) (declare (not safe)) - (cons __tmp14899 __tmp14884))) - (__tmp14881 - (let ((__tmp14882 + (cons __tmp14855 __tmp14840))) + (__tmp14837 + (let ((__tmp14838 (let () (declare (not safe)) - (cons _L14010_ '())))) + (cons _L13966_ '())))) (declare (not safe)) - (cons _L14012_ __tmp14882)))) + (cons _L13968_ __tmp14838)))) (declare (not safe)) - (cons __tmp14883 __tmp14881)))) + (cons __tmp14839 __tmp14837)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14900 - __tmp14880)))) - _hd1397614004_ - _hd1397313994_) - (_g1396813983_ _g1396913987_)))) - (_g1396813983_ _g1396913987_)))) - (_g1396813983_ _g1396913987_))))) - (_g1396714028_ (list _K13818_ _E13819_))) - (let* ((_g1403214040_ - (lambda (_g1403314036_) + (cons __tmp14856 + __tmp14836)))) + _hd1393213960_ + _hd1392913950_) + (_g1392413939_ _g1392513943_)))) + (_g1392413939_ _g1392513943_)))) + (_g1392413939_ _g1392513943_))))) + (_g1392313984_ (list _K13774_ _E13775_))) + (let* ((_g1398813996_ + (lambda (_g1398913992_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1403314036_))) - (_g1403114058_ - (lambda (_g1403314044_) - ((lambda (_L14047_) + _g1398913992_))) + (_g1398714014_ + (lambda (_g1398914000_) + ((lambda (_L14003_) (let () - (let ((__tmp14879 (gx#datum->syntax '#f 'let)) - (__tmp14874 - (let ((__tmp14876 - (let ((__tmp14877 - (let ((__tmp14878 + (let ((__tmp14835 (gx#datum->syntax '#f 'let)) + (__tmp14830 + (let ((__tmp14832 + (let ((__tmp14833 + (let ((__tmp14834 (let () (declare (not safe)) - (cons _L13837_ + (cons _L13793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L13954_ - __tmp14878)))) + (cons _L13910_ + __tmp14834)))) (declare (not safe)) - (cons __tmp14877 '()))) - (__tmp14875 + (cons __tmp14833 '()))) + (__tmp14831 (let () (declare (not safe)) - (cons _L14047_ '())))) + (cons _L14003_ '())))) (declare (not safe)) - (cons __tmp14876 __tmp14875)))) + (cons __tmp14832 __tmp14831)))) (declare (not safe)) - (cons __tmp14879 __tmp14874)))) - _g1403314044_)))) - (_g1403114058_ _K13818_)))))) + (cons __tmp14835 __tmp14830)))) + _g1398914000_)))) + (_g1398714014_ _K13774_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1474114742_ - (lambda (_L13872_) - (let* ((_g1388313898_ - (lambda (_g1388413894_) + (___kont1469714698_ + (lambda (_L13828_) + (let* ((_g1383913854_ + (lambda (_g1384013850_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1388413894_))) - (_g1388213943_ - (lambda (_g1388413902_) + _g1384013850_))) + (_g1383813899_ + (lambda (_g1384013858_) (if (gx#stx-pair? - _g1388413902_) - (let ((_e1388913905_ + _g1384013858_) + (let ((_e1384513861_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1388413902_))) - (let ((_hd1388813909_ + (gx#syntax-e _g1384013858_))) + (let ((_hd1384413865_ (let () (declare (not safe)) - (##car _e1388913905_))) - (_tl1388713912_ + (##car _e1384513861_))) + (_tl1384313868_ (let () (declare (not safe)) - (##cdr _e1388913905_)))) - (if (gx#stx-pair? _tl1388713912_) - (let ((_e1389213915_ (gx#syntax-e _tl1388713912_))) - (let ((_hd1389113919_ + (##cdr _e1384513861_)))) + (if (gx#stx-pair? _tl1384313868_) + (let ((_e1384813871_ (gx#syntax-e _tl1384313868_))) + (let ((_hd1384713875_ (let () (declare (not safe)) - (##car _e1389213915_))) - (_tl1389013922_ + (##car _e1384813871_))) + (_tl1384613878_ (let () (declare (not safe)) - (##cdr _e1389213915_)))) - (if (gx#stx-null? _tl1389013922_) - ((lambda (_L13925_ _L13927_) + (##cdr _e1384813871_)))) + (if (gx#stx-null? _tl1384613878_) + ((lambda (_L13881_ _L13883_) (let () - (let ((__tmp14916 + (let ((__tmp14872 (gx#datum->syntax '#f 'if)) - (__tmp14903 - (let ((__tmp14906 - (let ((__tmp14915 + (__tmp14859 + (let ((__tmp14862 + (let ((__tmp14871 (gx#datum->syntax '#f 'equal?)) - (__tmp14907 - (let ((__tmp14912 + (__tmp14863 + (let ((__tmp14868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14914 (gx#datum->syntax '#f '__AST-e)) - (__tmp14913 + (let ((__tmp14870 (gx#datum->syntax '#f '__AST-e)) + (__tmp14869 (let () (declare (not safe)) - (cons _L13837_ '())))) + (cons _L13793_ '())))) (declare (not safe)) - (cons __tmp14914 __tmp14913))) - (__tmp14908 - (let ((__tmp14909 - (let ((__tmp14911 + (cons __tmp14870 __tmp14869))) + (__tmp14864 + (let ((__tmp14865 + (let ((__tmp14867 (gx#datum->syntax '#f 'quote)) - (__tmp14910 + (__tmp14866 (let () (declare (not safe)) - (cons _L13872_ '())))) + (cons _L13828_ '())))) (declare (not safe)) - (cons __tmp14911 __tmp14910)))) + (cons __tmp14867 __tmp14866)))) (declare (not safe)) - (cons __tmp14909 '())))) + (cons __tmp14865 '())))) (declare (not safe)) - (cons __tmp14912 __tmp14908)))) + (cons __tmp14868 __tmp14864)))) (declare (not safe)) - (cons __tmp14915 __tmp14907))) - (__tmp14904 - (let ((__tmp14905 - (let () (declare (not safe)) (cons _L13925_ '())))) + (cons __tmp14871 __tmp14863))) + (__tmp14860 + (let ((__tmp14861 + (let () (declare (not safe)) (cons _L13881_ '())))) (declare (not safe)) - (cons _L13927_ __tmp14905)))) + (cons _L13883_ __tmp14861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14906 - __tmp14904)))) + (cons __tmp14862 + __tmp14860)))) (declare (not safe)) - (cons __tmp14916 __tmp14903)))) - _hd1389113919_ - _hd1388813909_) - (_g1388313898_ _g1388413902_)))) - (_g1388313898_ _g1388413902_)))) - (_g1388313898_ _g1388413902_))))) + (cons __tmp14872 __tmp14859)))) + _hd1384713875_ + _hd1384413865_) + (_g1383913854_ _g1384013858_)))) + (_g1383913854_ _g1384013858_)))) + (_g1383913854_ _g1384013858_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1388213943_ - (list _K13818_ _E13819_)))))) - (let ((_g1384914062_ + (_g1383813899_ + (list _K13774_ _E13775_)))))) + (let ((_g1380514018_ (lambda () - (let ((_L13954_ - ___stx1473414735_)) - (if (gx#identifier? _L13954_) - (___kont1473914740_ - _L13954_) - (___kont1474114742_ - ___stx1473414735_)))))) - (if (gx#stx-pair? ___stx1473414735_) - (let ((_e1385714069_ + (let ((_L13910_ + ___stx1469014691_)) + (if (gx#identifier? _L13910_) + (___kont1469514696_ + _L13910_) + (___kont1469714698_ + ___stx1469014691_)))))) + (if (gx#stx-pair? ___stx1469014691_) + (let ((_e1381314025_ (gx#syntax-e - ___stx1473414735_))) - (let ((_tl1385514076_ + ___stx1469014691_))) + (let ((_tl1381114032_ (let () (declare (not safe)) - (##cdr _e1385714069_))) - (_hd1385614073_ + (##cdr _e1381314025_))) + (_hd1381214029_ (let () (declare (not safe)) - (##car _e1385714069_)))) - (___kont1473714738_ - _tl1385514076_ - _hd1385614073_))) + (##car _e1381314025_)))) + (___kont1469314694_ + _tl1381114032_ + _hd1381214029_))) (let () (declare (not safe)) - (_g1384914062_)))))))) - _g1382313834_)))) - (_g1382114257_ _tgt13817_))))) - (let* ((_g1327713305_ - (lambda (_g1327813301_) + (_g1380514018_)))))))) + _g1377913790_)))) + (_g1377714213_ _tgt13773_))))) + (let* ((_g1323313261_ + (lambda (_g1323413257_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1327813301_))) - (_g1327613811_ - (lambda (_g1327813309_) - (if (gx#stx-pair? _g1327813309_) - (let ((_e1328413312_ (gx#syntax-e _g1327813309_))) - (let ((_hd1328313316_ + _g1323413257_))) + (_g1323213767_ + (lambda (_g1323413265_) + (if (gx#stx-pair? _g1323413265_) + (let ((_e1324013268_ (gx#syntax-e _g1323413265_))) + (let ((_hd1323913272_ (let () (declare (not safe)) - (##car _e1328413312_))) - (_tl1328213319_ + (##car _e1324013268_))) + (_tl1323813275_ (let () (declare (not safe)) - (##cdr _e1328413312_)))) - (if (gx#stx-pair? _tl1328213319_) - (let ((_e1328713322_ - (gx#syntax-e _tl1328213319_))) - (let ((_hd1328613326_ + (##cdr _e1324013268_)))) + (if (gx#stx-pair? _tl1323813275_) + (let ((_e1324313278_ + (gx#syntax-e _tl1323813275_))) + (let ((_hd1324213282_ (let () (declare (not safe)) - (##car _e1328713322_))) - (_tl1328513329_ + (##car _e1324313278_))) + (_tl1324113285_ (let () (declare (not safe)) - (##cdr _e1328713322_)))) - (if (gx#stx-pair? _tl1328513329_) - (let ((_e1329013332_ - (gx#syntax-e _tl1328513329_))) - (let ((_hd1328913336_ + (##cdr _e1324313278_)))) + (if (gx#stx-pair? _tl1324113285_) + (let ((_e1324613288_ + (gx#syntax-e _tl1324113285_))) + (let ((_hd1324513292_ (let () (declare (not safe)) - (##car _e1329013332_))) - (_tl1328813339_ + (##car _e1324613288_))) + (_tl1324413295_ (let () (declare (not safe)) - (##cdr _e1329013332_)))) + (##cdr _e1324613288_)))) (if (gx#stx-pair/null? - _tl1328813339_) - (let ((_g14917_ + _tl1324413295_) + (let ((_g14873_ (gx#syntax-split-splice - _tl1328813339_ + _tl1324413295_ '0))) (begin - (let ((_g14918_ + (let ((_g14874_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g14917_) - (##vector-length _g14917_) + _g14873_) + (##vector-length _g14873_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g14918_ 2))) - (error "Context expects 2 values" _g14918_))) + (if (not (let () (declare (not safe)) (##fx= _g14874_ 2))) + (error "Context expects 2 values" _g14874_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1329113342_ + (let ((_target1324713298_ (let () (declare (not safe)) (##vector-ref - _g14917_ + _g14873_ 0))) - (_tl1329313345_ + (_tl1324913301_ (let () (declare (not safe)) (##vector-ref - _g14917_ + _g14873_ 1)))) (if (gx#stx-null? - _tl1329313345_) - (letrec ((_loop1329413348_ + _tl1324913301_) + (letrec ((_loop1325013304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1329213352_ _clause1329813355_) - (if (gx#stx-pair? _hd1329213352_) - (let ((_e1329513358_ - (gx#syntax-e _hd1329213352_))) - (let ((_lp-hd1329613362_ + (lambda (_hd1324813308_ _clause1325413311_) + (if (gx#stx-pair? _hd1324813308_) + (let ((_e1325113314_ + (gx#syntax-e _hd1324813308_))) + (let ((_lp-hd1325213318_ (let () (declare (not safe)) - (##car _e1329513358_))) - (_lp-tl1329713365_ + (##car _e1325113314_))) + (_lp-tl1325313321_ (let () (declare (not safe)) - (##cdr _e1329513358_)))) - (_loop1329413348_ - _lp-tl1329713365_ + (##cdr _e1325113314_)))) + (_loop1325013304_ + _lp-tl1325313321_ (let () (declare (not safe)) - (cons _lp-hd1329613362_ - _clause1329813355_))))) - (let ((_clause1329913368_ - (reverse _clause1329813355_))) - ((lambda (_L13372_ _L13374_ _L13375_) - (let _recur13397_ ((_rest13400_ - (let ((__tmp14940 + (cons _lp-hd1325213318_ + _clause1325413311_))))) + (let ((_clause1325513324_ + (reverse _clause1325413311_))) + ((lambda (_L13328_ _L13330_ _L13331_) + (let _recur13353_ ((_rest13356_ + (let ((__tmp14896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1380213805_ _g1380313808_) + (lambda (_g1375813761_ _g1375913764_) (let () (declare (not safe)) - (cons _g1380213805_ _g1380313808_))))) + (cons _g1375813761_ _g1375913764_))))) (declare (not safe)) - (foldr1 __tmp14940 '() _L13372_)))) + (foldr1 __tmp14896 '() _L13328_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest1340213411_ _rest13400_) - (_E1340513417_ + (let* ((_rest1335813367_ _rest13356_) + (_E1336113373_ (lambda () (error '"No clause matching" - _rest1340213411_)))) - (let ((_K1340713787_ - (lambda (_rest13433_ - _hd13435_) - (let* ((_g1343713445_ - (lambda (_g1343813441_) + _rest1335813367_)))) + (let ((_K1336313743_ + (lambda (_rest13389_ + _hd13391_) + (let* ((_g1339313401_ + (lambda (_g1339413397_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1343813441_))) - (_g1343613783_ - (lambda (_g1343813449_) - ((lambda (_L13452_) + _g1339413397_))) + (_g1339213739_ + (lambda (_g1339413405_) + ((lambda (_L13408_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1347013478_ - (lambda (_g1347113474_) + (let* ((_g1342613434_ + (lambda (_g1342713430_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1347113474_))) - (_g1346913779_ - (lambda (_g1347113482_) - ((lambda (_L13485_) + _g1342713430_))) + (_g1342513735_ + (lambda (_g1342713438_) + ((lambda (_L13441_) (let () - (let* ((_g1349813506_ - (lambda (_g1349913502_) + (let* ((_g1345413462_ + (lambda (_g1345513458_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1349913502_))) - (_g1349713775_ - (lambda (_g1349913510_) - ((lambda (_L13513_) + _g1345513458_))) + (_g1345313731_ + (lambda (_g1345513466_) + ((lambda (_L13469_) (let () - (let* ((_g1352613534_ + (let* ((_g1348213490_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1352713530_) + (lambda (_g1348313486_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1352713530_))) - (_g1352513556_ - (lambda (_g1352713538_) - ((lambda (_L13541_) + _g1348313486_))) + (_g1348113512_ + (lambda (_g1348313494_) + ((lambda (_L13497_) (let () (let () - (let ((__tmp14927 + (let ((__tmp14883 (gx#datum->syntax '#f 'let)) - (__tmp14919 - (let ((__tmp14921 - (let ((__tmp14922 - (let ((__tmp14923 - (let ((__tmp14926 + (__tmp14875 + (let ((__tmp14877 + (let ((__tmp14878 + (let ((__tmp14879 + (let ((__tmp14882 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp14924 - (let ((__tmp14925 + (__tmp14880 + (let ((__tmp14881 (let () (declare (not safe)) - (cons _L13513_ '())))) + (cons _L13469_ '())))) (declare (not safe)) - (cons '() __tmp14925)))) + (cons '() __tmp14881)))) (declare (not safe)) - (cons __tmp14926 __tmp14924)))) + (cons __tmp14882 __tmp14880)))) (declare (not safe)) - (cons __tmp14923 '())))) + (cons __tmp14879 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L13452_ __tmp14922))) - (__tmp14920 + (cons _L13408_ __tmp14878))) + (__tmp14876 (let () (declare (not safe)) - (cons _L13541_ '())))) + (cons _L13497_ '())))) (declare (not safe)) - (cons __tmp14921 __tmp14920)))) + (cons __tmp14877 __tmp14876)))) (declare (not safe)) - (cons __tmp14927 __tmp14919))))) - _g1352713538_)))) - (_g1352513556_ - (let* ((___stx1475214753_ _hd13435_) - (_g1356213602_ + (cons __tmp14883 __tmp14875))))) + _g1348313494_)))) + (_g1348113512_ + (let* ((___stx1470814709_ _hd13391_) + (_g1351813558_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1475214753_)))) - (let ((___kont1475514756_ - (lambda (_L13748_) - (let ((__tmp14930 (gx#datum->syntax '#f 'begin)) - (__tmp14928 - (let ((__tmp14929 - (lambda (_g1376213765_ - _g1376313768_) + ___stx1470814709_)))) + (let ((___kont1471114712_ + (lambda (_L13704_) + (let ((__tmp14886 (gx#datum->syntax '#f 'begin)) + (__tmp14884 + (let ((__tmp14885 + (lambda (_g1371813721_ + _g1371913724_) (let () (declare (not safe)) - (cons _g1376213765_ - _g1376313768_))))) + (cons _g1371813721_ + _g1371913724_))))) (declare (not safe)) - (foldr1 __tmp14929 '() _L13748_)))) + (foldr1 __tmp14885 '() _L13704_)))) (declare (not safe)) - (cons __tmp14930 __tmp14928)))) - (___kont1475914760_ - (lambda (_L13686_ _L13688_) - (_generate113274_ - _L13688_ - _L13375_ - _L13686_ - _L13485_ - _L13374_))) - (___kont1476114762_ - (lambda (_L13639_ _L13641_ _L13642_) - (_generate113274_ + (cons __tmp14886 __tmp14884)))) + (___kont1471514716_ + (lambda (_L13642_ _L13644_) + (_generate113230_ + _L13644_ + _L13331_ _L13642_ - _L13375_ - (let ((__tmp14934 (gx#datum->syntax '#f 'if)) - (__tmp14931 - (let ((__tmp14932 - (let ((__tmp14933 + _L13441_ + _L13330_))) + (___kont1471714718_ + (lambda (_L13595_ _L13597_ _L13598_) + (_generate113230_ + _L13598_ + _L13331_ + (let ((__tmp14890 (gx#datum->syntax '#f 'if)) + (__tmp14887 + (let ((__tmp14888 + (let ((__tmp14889 (let () (declare (not safe)) - (cons _L13485_ '())))) + (cons _L13441_ '())))) (declare (not safe)) - (cons _L13639_ __tmp14933)))) + (cons _L13595_ __tmp14889)))) (declare (not safe)) - (cons _L13641_ __tmp14932)))) + (cons _L13597_ __tmp14888)))) (declare (not safe)) - (cons __tmp14934 __tmp14931)) - _L13485_ - _L13374_)))) - (let ((___match1478114782_ - (lambda (_e1356713708_ - _hd1356613712_ - _tl1356513715_ - ___splice1475714758_ - _target1356813718_ - _tl1357013721_) - (letrec ((_loop1357113724_ - (lambda (_hd1356913728_ - _expr1357513731_) - (if (gx#stx-pair? _hd1356913728_) - (let ((_e1357213734_ + (cons __tmp14890 __tmp14887)) + _L13441_ + _L13330_)))) + (let ((___match1473714738_ + (lambda (_e1352313664_ + _hd1352213668_ + _tl1352113671_ + ___splice1471314714_ + _target1352413674_ + _tl1352613677_) + (letrec ((_loop1352713680_ + (lambda (_hd1352513684_ + _expr1353113687_) + (if (gx#stx-pair? _hd1352513684_) + (let ((_e1352813690_ (gx#syntax-e - _hd1356913728_))) - (let ((_lp-tl1357413741_ + _hd1352513684_))) + (let ((_lp-tl1353013697_ (let () (declare (not safe)) - (##cdr _e1357213734_))) - (_lp-hd1357313738_ + (##cdr _e1352813690_))) + (_lp-hd1352913694_ (let () (declare (not safe)) - (##car _e1357213734_)))) - (_loop1357113724_ - _lp-tl1357413741_ + (##car _e1352813690_)))) + (_loop1352713680_ + _lp-tl1353013697_ (let () (declare (not safe)) - (cons _lp-hd1357313738_ - _expr1357513731_))))) - (let ((_expr1357613744_ - (reverse _expr1357513731_))) - (___kont1475514756_ - _expr1357613744_)))))) - (_loop1357113724_ - _target1356813718_ + (cons _lp-hd1352913694_ + _expr1353113687_))))) + (let ((_expr1353213700_ + (reverse _expr1353113687_))) + (___kont1471114712_ + _expr1353213700_)))))) + (_loop1352713680_ + _target1352413674_ '()))))) - (if (gx#stx-pair? ___stx1475214753_) - (let ((_e1356713708_ - (gx#syntax-e ___stx1475214753_))) - (let ((_tl1356513715_ + (if (gx#stx-pair? ___stx1470814709_) + (let ((_e1352313664_ + (gx#syntax-e ___stx1470814709_))) + (let ((_tl1352113671_ (let () (declare (not safe)) - (##cdr _e1356713708_))) - (_hd1356613712_ + (##cdr _e1352313664_))) + (_hd1352213668_ (let () (declare (not safe)) - (##car _e1356713708_)))) - (if (gx#identifier? _hd1356613712_) + (##car _e1352313664_)))) + (if (gx#identifier? _hd1352213668_) (if (gx#free-identifier=? - |[1]#_g14935_| - _hd1356613712_) + |[1]#_g14891_| + _hd1352213668_) (if (gx#stx-pair/null? - _tl1356513715_) - (let ((___splice1475714758_ + _tl1352113671_) + (let ((___splice1471314714_ (gx#syntax-split-splice - _tl1356513715_ + _tl1352113671_ '0))) - (let ((_tl1357013721_ + (let ((_tl1352613677_ (let () (declare (not safe)) (##vector-ref - ___splice1475714758_ + ___splice1471314714_ '1))) - (_target1356813718_ + (_target1352413674_ (let () (declare (not safe)) (##vector-ref - ___splice1475714758_ + ___splice1471314714_ '0)))) (if (gx#stx-null? - _tl1357013721_) - (___match1478114782_ - _e1356713708_ - _hd1356613712_ - _tl1356513715_ - ___splice1475714758_ - _target1356813718_ - _tl1357013721_) + _tl1352613677_) + (___match1473714738_ + _e1352313664_ + _hd1352213668_ + _tl1352113671_ + ___splice1471314714_ + _target1352413674_ + _tl1352613677_) (if (gx#stx-pair? - _tl1356513715_) - (let ((_e1358413676_ + _tl1352113671_) + (let ((_e1354013632_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1356513715_))) - (let ((_tl1358213683_ - (let () (declare (not safe)) (##cdr _e1358413676_))) - (_hd1358313680_ + (gx#syntax-e _tl1352113671_))) + (let ((_tl1353813639_ + (let () (declare (not safe)) (##cdr _e1354013632_))) + (_hd1353913636_ (let () (declare (not safe)) - (##car _e1358413676_)))) - (if (gx#stx-null? _tl1358213683_) - (___kont1475914760_ _hd1358313680_ _hd1356613712_) - (if (gx#stx-pair? _tl1358213683_) - (let ((_e1359613629_ - (gx#syntax-e _tl1358213683_))) - (let ((_tl1359413636_ + (##car _e1354013632_)))) + (if (gx#stx-null? _tl1353813639_) + (___kont1471514716_ _hd1353913636_ _hd1352213668_) + (if (gx#stx-pair? _tl1353813639_) + (let ((_e1355213585_ + (gx#syntax-e _tl1353813639_))) + (let ((_tl1355013592_ (let () (declare (not safe)) - (##cdr _e1359613629_))) - (_hd1359513633_ + (##cdr _e1355213585_))) + (_hd1355113589_ (let () (declare (not safe)) - (##car _e1359613629_)))) - (if (gx#stx-null? _tl1359413636_) - (___kont1476114762_ - _hd1359513633_ - _hd1358313680_ - _hd1356613712_) + (##car _e1355213585_)))) + (if (gx#stx-null? _tl1355013592_) + (___kont1471714718_ + _hd1355113589_ + _hd1353913636_ + _hd1352213668_) (let () (declare (not safe)) - (_g1356213602_))))) - (let () (declare (not safe)) (_g1356213602_)))))) - (let () (declare (not safe)) (_g1356213602_)))))) + (_g1351813558_))))) + (let () (declare (not safe)) (_g1351813558_)))))) + (let () (declare (not safe)) (_g1351813558_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1356513715_) - (let ((_e1358413676_ + (if (gx#stx-pair? _tl1352113671_) + (let ((_e1354013632_ (gx#syntax-e - _tl1356513715_))) - (let ((_tl1358213683_ + _tl1352113671_))) + (let ((_tl1353813639_ (let () (declare (not safe)) - (##cdr _e1358413676_))) - (_hd1358313680_ + (##cdr _e1354013632_))) + (_hd1353913636_ (let () (declare (not safe)) - (##car _e1358413676_)))) + (##car _e1354013632_)))) (if (gx#stx-null? - _tl1358213683_) - (___kont1475914760_ - _hd1358313680_ - _hd1356613712_) + _tl1353813639_) + (___kont1471514716_ + _hd1353913636_ + _hd1352213668_) (if (gx#stx-pair? - _tl1358213683_) - (let ((_e1359613629_ + _tl1353813639_) + (let ((_e1355213585_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1358213683_))) - (let ((_tl1359413636_ + (gx#syntax-e _tl1353813639_))) + (let ((_tl1355013592_ (let () (declare (not safe)) - (##cdr _e1359613629_))) - (_hd1359513633_ + (##cdr _e1355213585_))) + (_hd1355113589_ (let () (declare (not safe)) - (##car _e1359613629_)))) - (if (gx#stx-null? _tl1359413636_) - (___kont1476114762_ - _hd1359513633_ - _hd1358313680_ - _hd1356613712_) - (let () (declare (not safe)) (_g1356213602_))))) - (let () (declare (not safe)) (_g1356213602_)))))) + (##car _e1355213585_)))) + (if (gx#stx-null? _tl1355013592_) + (___kont1471714718_ + _hd1355113589_ + _hd1353913636_ + _hd1352213668_) + (let () (declare (not safe)) (_g1351813558_))))) + (let () (declare (not safe)) (_g1351813558_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1356213602_)))) - (if (gx#stx-pair? _tl1356513715_) - (let ((_e1358413676_ + (_g1351813558_)))) + (if (gx#stx-pair? _tl1352113671_) + (let ((_e1354013632_ (gx#syntax-e - _tl1356513715_))) - (let ((_tl1358213683_ + _tl1352113671_))) + (let ((_tl1353813639_ (let () (declare (not safe)) - (##cdr _e1358413676_))) - (_hd1358313680_ + (##cdr _e1354013632_))) + (_hd1353913636_ (let () (declare (not safe)) - (##car _e1358413676_)))) + (##car _e1354013632_)))) (if (gx#stx-null? - _tl1358213683_) - (___kont1475914760_ - _hd1358313680_ - _hd1356613712_) + _tl1353813639_) + (___kont1471514716_ + _hd1353913636_ + _hd1352213668_) (if (gx#stx-pair? - _tl1358213683_) - (let ((_e1359613629_ + _tl1353813639_) + (let ((_e1355213585_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1358213683_))) - (let ((_tl1359413636_ - (let () (declare (not safe)) (##cdr _e1359613629_))) - (_hd1359513633_ + (gx#syntax-e _tl1353813639_))) + (let ((_tl1355013592_ + (let () (declare (not safe)) (##cdr _e1355213585_))) + (_hd1355113589_ (let () (declare (not safe)) - (##car _e1359613629_)))) - (if (gx#stx-null? _tl1359413636_) - (___kont1476114762_ - _hd1359513633_ - _hd1358313680_ - _hd1356613712_) - (let () (declare (not safe)) (_g1356213602_))))) - (let () (declare (not safe)) (_g1356213602_)))))) + (##car _e1355213585_)))) + (if (gx#stx-null? _tl1355013592_) + (___kont1471714718_ + _hd1355113589_ + _hd1353913636_ + _hd1352213668_) + (let () (declare (not safe)) (_g1351813558_))))) + (let () (declare (not safe)) (_g1351813558_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1356213602_)))) - (if (gx#stx-pair? _tl1356513715_) - (let ((_e1358413676_ - (gx#syntax-e _tl1356513715_))) - (let ((_tl1358213683_ + (_g1351813558_)))) + (if (gx#stx-pair? _tl1352113671_) + (let ((_e1354013632_ + (gx#syntax-e _tl1352113671_))) + (let ((_tl1353813639_ (let () (declare (not safe)) - (##cdr _e1358413676_))) - (_hd1358313680_ + (##cdr _e1354013632_))) + (_hd1353913636_ (let () (declare (not safe)) - (##car _e1358413676_)))) - (if (gx#stx-null? _tl1358213683_) - (___kont1475914760_ - _hd1358313680_ - _hd1356613712_) + (##car _e1354013632_)))) + (if (gx#stx-null? _tl1353813639_) + (___kont1471514716_ + _hd1353913636_ + _hd1352213668_) (if (gx#stx-pair? - _tl1358213683_) - (let ((_e1359613629_ + _tl1353813639_) + (let ((_e1355213585_ (gx#syntax-e - _tl1358213683_))) - (let ((_tl1359413636_ + _tl1353813639_))) + (let ((_tl1355013592_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1359613629_))) - (_hd1359513633_ - (let () (declare (not safe)) (##car _e1359613629_)))) - (if (gx#stx-null? _tl1359413636_) - (___kont1476114762_ - _hd1359513633_ - _hd1358313680_ - _hd1356613712_) - (let () (declare (not safe)) (_g1356213602_))))) - (let () (declare (not safe)) (_g1356213602_)))))) + (##cdr _e1355213585_))) + (_hd1355113589_ + (let () (declare (not safe)) (##car _e1355213585_)))) + (if (gx#stx-null? _tl1355013592_) + (___kont1471714718_ + _hd1355113589_ + _hd1353913636_ + _hd1352213668_) + (let () (declare (not safe)) (_g1351813558_))))) + (let () (declare (not safe)) (_g1351813558_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1356213602_)))))) + (_g1351813558_)))))) (let () (declare (not safe)) - (_g1356213602_)))))))))) + (_g1351813558_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1349913510_)))) - (_g1349713775_ - (_recur13397_ _rest13433_))))) - _g1347113482_)))) - (_g1346913779_ + _g1345513466_)))) + (_g1345313731_ + (_recur13353_ _rest13389_))))) + _g1342713438_)))) + (_g1342513735_ (let () (declare (not safe)) - (cons _L13452_ '())))))) - _g1343813449_)))) - (_g1343613783_ (gx#genident '$E))))) + (cons _L13408_ '())))))) + _g1339413405_)))) + (_g1339213739_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1340613425_ + (_K1336213381_ (lambda () - (let ((__tmp14939 + (let ((__tmp14895 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp14936 - (let ((__tmp14937 + (__tmp14892 + (let ((__tmp14893 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14938 + (let ((__tmp14894 (let () (declare (not safe)) - (cons _L13375_ '())))) + (cons _L13331_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp14938)))) + __tmp14894)))) (declare (not safe)) - (cons '#f __tmp14937)))) + (cons '#f __tmp14893)))) (declare (not safe)) - (cons __tmp14939 __tmp14936))))) + (cons __tmp14895 __tmp14892))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1340413429_ + (let ((_try-match1336013385_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1340213411_)) - (_K1340613425_) - (_E1340513417_))))) + (##null? _rest1335813367_)) + (_K1336213381_) + (_E1336113373_))))) (if (let () (declare (not safe)) - (##pair? _rest1340213411_)) - (let ((_tl1340913794_ + (##pair? _rest1335813367_)) + (let ((_tl1336513750_ (let () (declare (not safe)) - (##cdr _rest1340213411_))) - (_hd1340813791_ + (##cdr _rest1335813367_))) + (_hd1336413747_ (let () (declare (not safe)) - (##car _rest1340213411_)))) - (let ((_hd13797_ - _hd1340813791_) - (_rest13800_ - _tl1340913794_)) - (_K1340713787_ - _rest13800_ - _hd13797_))) - (_try-match1340413429_))))))) - _clause1329913368_ - _hd1328913336_ - _hd1328613326_)))))) - (_loop1329413348_ _target1329113342_ '())) - (_g1327713305_ _g1327813309_))))) + (##car _rest1335813367_)))) + (let ((_hd13753_ + _hd1336413747_) + (_rest13756_ + _tl1336513750_)) + (_K1336313743_ + _rest13756_ + _hd13753_))) + (_try-match1336013385_))))))) + _clause1325513324_ + _hd1324513292_ + _hd1324213282_)))))) + (_loop1325013304_ _target1324713298_ '())) + (_g1323313261_ _g1323413265_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1327713305_ - _g1327813309_)))) - (_g1327713305_ _g1327813309_)))) - (_g1327713305_ _g1327813309_)))) - (_g1327713305_ _g1327813309_))))) - (_g1327613811_ _stx13271_))))) + (_g1323313261_ + _g1323413265_)))) + (_g1323313261_ _g1323413265_)))) + (_g1323313261_ _g1323413265_)))) + (_g1323313261_ _g1323413265_))))) + (_g1323213767_ _stx13227_))))) (define |[:0:]#SyntaxError| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g14941_| + |[1]#_g14897_| 'expander-identifiers: - (let ((__tmp14988 - (let ((__tmp14989 |[1]#_g14990_|)) + (let ((__tmp14944 + (let ((__tmp14945 |[1]#_g14946_|)) (declare (not safe)) - (cons __tmp14989 '()))) - (__tmp14942 - (let ((__tmp14987 |[1]#_g14941_|) - (__tmp14943 - (let ((__tmp14985 |[1]#_g14986_|) - (__tmp14944 - (let ((__tmp14983 |[1]#_g14984_|) - (__tmp14945 - (let ((__tmp14965 - (let ((__tmp14981 |[1]#_g14982_|) - (__tmp14966 - (let ((__tmp14979 - |[1]#_g14980_|) - (__tmp14967 - (let ((__tmp14977 - |[1]#_g14978_|) - (__tmp14968 - (let ((__tmp14975 + (cons __tmp14945 '()))) + (__tmp14898 + (let ((__tmp14943 |[1]#_g14897_|) + (__tmp14899 + (let ((__tmp14941 |[1]#_g14942_|) + (__tmp14900 + (let ((__tmp14939 |[1]#_g14940_|) + (__tmp14901 + (let ((__tmp14921 + (let ((__tmp14937 |[1]#_g14938_|) + (__tmp14922 + (let ((__tmp14935 + |[1]#_g14936_|) + (__tmp14923 + (let ((__tmp14933 + |[1]#_g14934_|) + (__tmp14924 + (let ((__tmp14931 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g14976_|) - (__tmp14969 - (let ((__tmp14973 |[1]#_g14974_|) - (__tmp14970 - (let ((__tmp14971 |[1]#_g14972_|)) + |[1]#_g14932_|) + (__tmp14925 + (let ((__tmp14929 |[1]#_g14930_|) + (__tmp14926 + (let ((__tmp14927 |[1]#_g14928_|)) (declare (not safe)) - (cons __tmp14971 '())))) + (cons __tmp14927 '())))) (declare (not safe)) - (cons __tmp14973 __tmp14970)))) + (cons __tmp14929 __tmp14926)))) (declare (not safe)) - (cons __tmp14975 __tmp14969)))) + (cons __tmp14931 __tmp14925)))) (declare (not safe)) - (cons __tmp14977 __tmp14968)))) + (cons __tmp14933 __tmp14924)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14979 - __tmp14967)))) + (cons __tmp14935 + __tmp14923)))) (declare (not safe)) - (cons __tmp14981 __tmp14966))) - (__tmp14946 - (let ((__tmp14947 - (let ((__tmp14963 - |[1]#_g14964_|) - (__tmp14948 - (let ((__tmp14961 - |[1]#_g14962_|) - (__tmp14949 - (let ((__tmp14959 + (cons __tmp14937 __tmp14922))) + (__tmp14902 + (let ((__tmp14903 + (let ((__tmp14919 + |[1]#_g14920_|) + (__tmp14904 + (let ((__tmp14917 + |[1]#_g14918_|) + (__tmp14905 + (let ((__tmp14915 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g14960_|) - (__tmp14950 - (let ((__tmp14957 |[1]#_g14958_|) - (__tmp14951 - (let ((__tmp14955 |[1]#_g14956_|) - (__tmp14952 - (let ((__tmp14953 |[1]#_g14954_|)) + |[1]#_g14916_|) + (__tmp14906 + (let ((__tmp14913 |[1]#_g14914_|) + (__tmp14907 + (let ((__tmp14911 |[1]#_g14912_|) + (__tmp14908 + (let ((__tmp14909 |[1]#_g14910_|)) (declare (not safe)) - (cons __tmp14953 '())))) + (cons __tmp14909 '())))) (declare (not safe)) - (cons __tmp14955 __tmp14952)))) + (cons __tmp14911 __tmp14908)))) (declare (not safe)) - (cons __tmp14957 __tmp14951)))) + (cons __tmp14913 __tmp14907)))) (declare (not safe)) - (cons __tmp14959 __tmp14950)))) + (cons __tmp14915 __tmp14906)))) (declare (not safe)) - (cons __tmp14961 __tmp14949)))) + (cons __tmp14917 __tmp14905)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14963 - __tmp14948)))) + (cons __tmp14919 + __tmp14904)))) (declare (not safe)) - (cons __tmp14947 '())))) + (cons __tmp14903 '())))) (declare (not safe)) - (cons __tmp14965 __tmp14946)))) + (cons __tmp14921 __tmp14902)))) (declare (not safe)) - (cons __tmp14983 __tmp14945)))) + (cons __tmp14939 __tmp14901)))) (declare (not safe)) - (cons __tmp14985 __tmp14944)))) + (cons __tmp14941 __tmp14900)))) (declare (not safe)) - (cons __tmp14987 __tmp14943)))) + (cons __tmp14943 __tmp14899)))) (declare (not safe)) - (cons __tmp14988 __tmp14942)) + (cons __tmp14944 __tmp14898)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g14991_|) + (list |[1]#_g14947_|) 'SyntaxError '#f '((final: . #t)) @@ -1432,49 +1432,49 @@ (define |[:0:]#AST| (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g14992_| + |[1]#_g14948_| 'expander-identifiers: - (let ((__tmp14993 - (let ((__tmp15014 |[1]#_g14992_|) - (__tmp14994 - (let ((__tmp15012 |[1]#_g15013_|) - (__tmp14995 - (let ((__tmp15010 |[1]#_g15011_|) - (__tmp14996 - (let ((__tmp15004 - (let ((__tmp15008 |[1]#_g15009_|) - (__tmp15005 - (let ((__tmp15006 - |[1]#_g15007_|)) + (let ((__tmp14949 + (let ((__tmp14970 |[1]#_g14948_|) + (__tmp14950 + (let ((__tmp14968 |[1]#_g14969_|) + (__tmp14951 + (let ((__tmp14966 |[1]#_g14967_|) + (__tmp14952 + (let ((__tmp14960 + (let ((__tmp14964 |[1]#_g14965_|) + (__tmp14961 + (let ((__tmp14962 + |[1]#_g14963_|)) (declare (not safe)) - (cons __tmp15006 '())))) + (cons __tmp14962 '())))) (declare (not safe)) - (cons __tmp15008 __tmp15005))) - (__tmp14997 - (let ((__tmp14998 - (let ((__tmp15002 - |[1]#_g15003_|) - (__tmp14999 - (let ((__tmp15000 - |[1]#_g15001_|)) + (cons __tmp14964 __tmp14961))) + (__tmp14953 + (let ((__tmp14954 + (let ((__tmp14958 + |[1]#_g14959_|) + (__tmp14955 + (let ((__tmp14956 + |[1]#_g14957_|)) (declare (not safe)) - (cons __tmp15000 + (cons __tmp14956 '())))) (declare (not safe)) - (cons __tmp15002 - __tmp14999)))) + (cons __tmp14958 + __tmp14955)))) (declare (not safe)) - (cons __tmp14998 '())))) + (cons __tmp14954 '())))) (declare (not safe)) - (cons __tmp15004 __tmp14997)))) + (cons __tmp14960 __tmp14953)))) (declare (not safe)) - (cons __tmp15010 __tmp14996)))) + (cons __tmp14966 __tmp14952)))) (declare (not safe)) - (cons __tmp15012 __tmp14995)))) + (cons __tmp14968 __tmp14951)))) (declare (not safe)) - (cons __tmp15014 __tmp14994)))) + (cons __tmp14970 __tmp14950)))) (declare (not safe)) - (cons '#f __tmp14993)) + (cons '#f __tmp14949)) 'type-exhibitor: (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor| 'gerbil#AST::t diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index f4cee064..f0bce7c3 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,8 +1,8 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1701931847) + (define gerbil/runtime/system::timestamp 1704735467) (begin - (define gerbil-version-string (lambda () '"v0.18.1-3-ga8acf2d4")) + (define gerbil-version-string (lambda () '"v0.18.1-20-gadca0cfb")) (define gerbil-system-manifest (let ((__tmp8809 (let ((__tmp8810 diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index f1f67e5e..3d3e0aa0 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 1701931848) + (define gerbil/runtime/thread::timestamp 1704735467) (begin (define spawn - (lambda (_f13131_ . _args13132_) - (if (let () (declare (not safe)) (procedure? _f13131_)) + (lambda (_f13087_ . _args13088_) + (if (let () (declare (not safe)) (procedure? _f13087_)) '#!void - (raise (let ((__tmp13133 - (let () (declare (not safe)) (cons _f13131_ '())))) + (raise (let ((__tmp13089 + (let () (declare (not safe)) (cons _f13087_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -15,16 +15,16 @@ 'where: 'spawn 'irritants: - __tmp13133)))) + __tmp13089)))) (let () (declare (not safe)) - (spawn-actor _f13131_ _args13132_ '#!void '#f)))) + (spawn-actor _f13087_ _args13088_ '#!void '#f)))) (define spawn/name - (lambda (_name13127_ _f13128_ . _args13129_) - (if (let () (declare (not safe)) (procedure? _f13128_)) + (lambda (_name13083_ _f13084_ . _args13085_) + (if (let () (declare (not safe)) (procedure? _f13084_)) '#!void - (raise (let ((__tmp13134 - (let () (declare (not safe)) (cons _f13128_ '())))) + (raise (let ((__tmp13090 + (let () (declare (not safe)) (cons _f13084_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -32,16 +32,16 @@ 'where: 'spawn/name 'irritants: - __tmp13134)))) + __tmp13090)))) (let () (declare (not safe)) - (spawn-actor _f13128_ _args13129_ _name13127_ '#f)))) + (spawn-actor _f13084_ _args13085_ _name13083_ '#f)))) (define spawn/group - (lambda (_name13121_ _f13122_ . _args13123_) - (if (let () (declare (not safe)) (procedure? _f13122_)) + (lambda (_name13077_ _f13078_ . _args13079_) + (if (let () (declare (not safe)) (procedure? _f13078_)) '#!void - (raise (let ((__tmp13135 - (let () (declare (not safe)) (cons _f13122_ '())))) + (raise (let ((__tmp13091 + (let () (declare (not safe)) (cons _f13078_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -49,174 +49,174 @@ 'where: 'spawn/group 'irritants: - __tmp13135)))) - (let ((_tgroup13125_ (make-thread-group _name13121_))) + __tmp13091)))) + (let ((_tgroup13081_ (make-thread-group _name13077_))) (declare (not safe)) - (spawn-actor _f13122_ _args13123_ _name13121_ _tgroup13125_)))) + (spawn-actor _f13078_ _args13079_ _name13077_ _tgroup13081_)))) (define spawn-actor - (lambda (_f13094_ _args13095_ _name13096_ _tgroup13097_) - (letrec ((_thread-main13099_ - (lambda (_thunk13113_) + (lambda (_f13050_ _args13051_ _name13052_ _tgroup13053_) + (letrec ((_thread-main13055_ + (lambda (_thunk13069_) (lambda () (with-exception-handler - (lambda (_exn13116_) - (let ((__tmp13136 - (lambda (_cont13118_) + (lambda (_exn13072_) + (let ((__tmp13092 + (lambda (_cont13074_) (if __unhandled-actor-exception-hook - (let ((__tmp13137 + (let ((__tmp13093 (lambda () (__unhandled-actor-exception-hook - _cont13118_ - _exn13116_)))) + _cont13074_ + _exn13072_)))) (declare (not safe)) - (with-catch void __tmp13137)) + (with-catch void __tmp13093)) '#!void) - (let ((__tmp13138 + (let ((__tmp13094 (let () (declare (not safe)) - (##continuation-last _cont13118_)))) + (##continuation-last _cont13074_)))) (declare (not safe)) (##continuation-graft - __tmp13138 + __tmp13094 ##primordial-exception-handler - _exn13116_))))) + _exn13072_))))) (declare (not safe)) - (##continuation-capture __tmp13136))) - _thunk13113_))))) - (let* ((_thunk13102_ - (if (let () (declare (not safe)) (null? _args13095_)) - _f13094_ - (lambda () (apply _f13094_ _args13095_)))) - (_thunk13105_ + (##continuation-capture __tmp13092))) + _thunk13069_))))) + (let* ((_thunk13058_ + (if (let () (declare (not safe)) (null? _args13051_)) + _f13050_ + (lambda () (apply _f13050_ _args13051_)))) + (_thunk13061_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk13102_)))) - (_tgroup13110_ - (let ((_$e13107_ _tgroup13097_)) - (if _$e13107_ - _$e13107_ + (with-exception-stack-trace__0 _thunk13058_)))) + (_tgroup13066_ + (let ((_$e13063_ _tgroup13053_)) + (if _$e13063_ + _$e13063_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main13099_ _thunk13105_)) - _name13096_ - _tgroup13110_)))))) + (let () (declare (not safe)) (_thread-main13055_ _thunk13061_)) + _name13052_ + _tgroup13066_)))))) (define spawn-thread__% - (lambda (_thunk13072_ _name13073_ _tgroup13074_) - (thread-start! (make-thread _thunk13072_ _name13073_ _tgroup13074_)))) + (lambda (_thunk13028_ _name13029_ _tgroup13030_) + (thread-start! (make-thread _thunk13028_ _name13029_ _tgroup13030_)))) (define spawn-thread__0 - (lambda (_thunk13079_) - (let* ((_name13081_ absent-obj) (_tgroup13083_ absent-obj)) + (lambda (_thunk13035_) + (let* ((_name13037_ absent-obj) (_tgroup13039_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13079_ _name13081_ _tgroup13083_)))) + (spawn-thread__% _thunk13035_ _name13037_ _tgroup13039_)))) (define spawn-thread__1 - (lambda (_thunk13085_ _name13086_) - (let ((_tgroup13088_ absent-obj)) + (lambda (_thunk13041_ _name13042_) + (let ((_tgroup13044_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13085_ _name13086_ _tgroup13088_)))) + (spawn-thread__% _thunk13041_ _name13042_ _tgroup13044_)))) (define spawn-thread - (lambda _g13140_ - (let ((_g13139_ (let () (declare (not safe)) (##length _g13140_)))) - (cond ((let () (declare (not safe)) (##fx= _g13139_ 1)) - (apply (lambda (_thunk13079_) + (lambda _g13096_ + (let ((_g13095_ (let () (declare (not safe)) (##length _g13096_)))) + (cond ((let () (declare (not safe)) (##fx= _g13095_ 1)) + (apply (lambda (_thunk13035_) (let () (declare (not safe)) - (spawn-thread__0 _thunk13079_))) - _g13140_)) - ((let () (declare (not safe)) (##fx= _g13139_ 2)) - (apply (lambda (_thunk13085_ _name13086_) + (spawn-thread__0 _thunk13035_))) + _g13096_)) + ((let () (declare (not safe)) (##fx= _g13095_ 2)) + (apply (lambda (_thunk13041_ _name13042_) (let () (declare (not safe)) - (spawn-thread__1 _thunk13085_ _name13086_))) - _g13140_)) - ((let () (declare (not safe)) (##fx= _g13139_ 3)) - (apply (lambda (_thunk13090_ _name13091_ _tgroup13092_) + (spawn-thread__1 _thunk13041_ _name13042_))) + _g13096_)) + ((let () (declare (not safe)) (##fx= _g13095_ 3)) + (apply (lambda (_thunk13046_ _name13047_ _tgroup13048_) (let () (declare (not safe)) (spawn-thread__% - _thunk13090_ - _name13091_ - _tgroup13092_))) - _g13140_)) + _thunk13046_ + _name13047_ + _tgroup13048_))) + _g13096_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g13140_)))))) + _g13096_)))))) (define thread-local-ref__% - (lambda (_key13056_ _default13057_) - (let ((_tab13059_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13012_ _default13013_) + (let ((_tab13015_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab13059_ _key13056_ _default13057_)))) + (table-ref _tab13015_ _key13012_ _default13013_)))) (define thread-local-ref__0 - (lambda (_key13064_) - (let ((_default13066_ absent-obj)) + (lambda (_key13020_) + (let ((_default13022_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key13064_ _default13066_)))) + (thread-local-ref__% _key13020_ _default13022_)))) (define thread-local-ref - (lambda _g13142_ - (let ((_g13141_ (let () (declare (not safe)) (##length _g13142_)))) - (cond ((let () (declare (not safe)) (##fx= _g13141_ 1)) - (apply (lambda (_key13064_) + (lambda _g13098_ + (let ((_g13097_ (let () (declare (not safe)) (##length _g13098_)))) + (cond ((let () (declare (not safe)) (##fx= _g13097_ 1)) + (apply (lambda (_key13020_) (let () (declare (not safe)) - (thread-local-ref__0 _key13064_))) - _g13142_)) - ((let () (declare (not safe)) (##fx= _g13141_ 2)) - (apply (lambda (_key13068_ _default13069_) + (thread-local-ref__0 _key13020_))) + _g13098_)) + ((let () (declare (not safe)) (##fx= _g13097_ 2)) + (apply (lambda (_key13024_ _default13025_) (let () (declare (not safe)) - (thread-local-ref__% _key13068_ _default13069_))) - _g13142_)) + (thread-local-ref__% _key13024_ _default13025_))) + _g13098_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g13142_)))))) + _g13098_)))))) (define thread-local-get - (lambda (_key13053_) - (let () (declare (not safe)) (thread-local-ref _key13053_ '#f)))) + (lambda (_key13009_) + (let () (declare (not safe)) (thread-local-ref _key13009_ '#f)))) (define thread-local-set! - (lambda (_key13048_ _value13049_) - (let ((_tab13051_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13004_ _value13005_) + (let ((_tab13007_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13051_ _key13048_ _value13049_)))) + (table-set! _tab13007_ _key13004_ _value13005_)))) (define thread-local-clear! - (lambda (_key13044_) - (let ((_tab13046_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13000_) + (let ((_tab13002_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13046_ _key13044_)))) + (table-set! _tab13002_ _key13000_)))) (define thread-local-table (lambda () - (let ((_thr13030_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr13030_)) - (let ((_$e13032_ (actor-thread-locals _thr13030_))) - (if _$e13032_ - (values _$e13032_) - (let ((_tab13035_ + (let ((_thr12986_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr12986_)) + (let ((_$e12988_ (actor-thread-locals _thr12986_))) + (if _$e12988_ + (values _$e12988_) + (let ((_tab12991_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr13030_ _tab13035_) - _tab13035_))) + (actor-thread-locals-set! _thr12986_ _tab12991_) + _tab12991_))) (if (let () (declare (not safe)) - (eq? _thr13030_ ##primordial-thread)) + (eq? _thr12986_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e13037_ + (let ((_$e12993_ (let () (declare (not safe)) - (table-ref __thread-locals _thr13030_ '#f)))) - (if _$e13037_ - ((lambda (_tab13040_) + (table-ref __thread-locals _thr12986_ '#f)))) + (if _$e12993_ + ((lambda (_tab12996_) (mutex-unlock! __thread-locals-mutex) - _tab13040_) - _$e13037_) - (let ((_tab13042_ + _tab12996_) + _$e12993_) + (let ((_tab12998_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -224,10 +224,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr13030_ - _tab13042_)) + _thr12986_ + _tab12998_)) (mutex-unlock! __thread-locals-mutex) - _tab13042_))))))))) + _tab12998_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-table 'test: eq?))) (define __thread-locals @@ -235,13 +235,13 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc13027_) - (if (let () (declare (not safe)) (procedure? _proc13027_)) + (lambda (_proc12983_) + (if (let () (declare (not safe)) (procedure? _proc12983_)) '#!void - (raise (let ((__tmp13143 + (raise (let ((__tmp13099 (let () (declare (not safe)) - (cons _proc13027_ '())))) + (cons _proc12983_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -249,124 +249,124 @@ 'where: 'unhandler-actor-exception-hook-set! 'irritants: - __tmp13143)))) - (set! __unhandled-actor-exception-hook _proc13027_))) + __tmp13099)))) + (set! __unhandled-actor-exception-hook _proc12983_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx13015_ _proc13016_) - (let ((_handler13018_ (current-exception-handler))) + (lambda (_mx12971_ _proc12972_) + (let ((_handler12974_ (current-exception-handler))) (with-exception-handler - (lambda (_e13020_) - (let ((__tmp13144 + (lambda (_e12976_) + (let ((__tmp13100 (lambda () - (mutex-unlock! _mx13015_) - (_handler13018_ _e13020_)))) + (mutex-unlock! _mx12971_) + (_handler12974_ _e12976_)))) (declare (not safe)) - (with-catch void __tmp13144)) + (with-catch void __tmp13100)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e13020_))) + (##thread-end-with-uncaught-exception! _e12976_))) (lambda () - (mutex-lock! _mx13015_) - (let ((_result13024_ (_proc13016_))) - (mutex-unlock! _mx13015_) - _result13024_)))))) + (mutex-lock! _mx12971_) + (let ((_result12980_ (_proc12972_))) + (mutex-unlock! _mx12971_) + _result12980_)))))) (define with-dynamic-lock - (lambda (_mx13010_ _proc13011_) + (lambda (_mx12966_ _proc12967_) (dynamic-wind - (lambda () (mutex-lock! _mx13010_)) - _proc13011_ - (lambda () (mutex-unlock! _mx13010_))))) + (lambda () (mutex-lock! _mx12966_)) + _proc12967_ + (lambda () (mutex-unlock! _mx12966_))))) (define with-exception-stack-trace__% - (lambda (_thunk12991_ _error-port12992_) + (lambda (_thunk12947_ _error-port12948_) (with-exception-handler - (let ((_E12994_ (current-exception-handler))) - (lambda (_exn12996_) + (let ((_E12950_ (current-exception-handler))) + (lambda (_exn12952_) (continuation-capture - (lambda (_cont12998_) + (lambda (_cont12954_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont12998_ - _exn12996_ - _error-port12992_)) + _cont12954_ + _exn12952_ + _error-port12948_)) '#!void) - (_E12994_ _exn12996_))))) - _thunk12991_))) + (_E12950_ _exn12952_))))) + _thunk12947_))) (define with-exception-stack-trace__0 - (lambda (_thunk13003_) - (let ((_error-port13005_ (current-error-port))) + (lambda (_thunk12959_) + (let ((_error-port12961_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk13003_ _error-port13005_)))) + (with-exception-stack-trace__% _thunk12959_ _error-port12961_)))) (define with-exception-stack-trace - (lambda _g13146_ - (let ((_g13145_ (let () (declare (not safe)) (##length _g13146_)))) - (cond ((let () (declare (not safe)) (##fx= _g13145_ 1)) - (apply (lambda (_thunk13003_) + (lambda _g13102_ + (let ((_g13101_ (let () (declare (not safe)) (##length _g13102_)))) + (cond ((let () (declare (not safe)) (##fx= _g13101_ 1)) + (apply (lambda (_thunk12959_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk13003_))) - _g13146_)) - ((let () (declare (not safe)) (##fx= _g13145_ 2)) - (apply (lambda (_thunk13007_ _error-port13008_) + (with-exception-stack-trace__0 _thunk12959_))) + _g13102_)) + ((let () (declare (not safe)) (##fx= _g13101_ 2)) + (apply (lambda (_thunk12963_ _error-port12964_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk13007_ - _error-port13008_))) - _g13146_)) + _thunk12963_ + _error-port12964_))) + _g13102_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g13146_)))))) + _g13102_)))))) (define dump-stack-trace!__% - (lambda (_cont12972_ _exn12973_ _error-port12974_) - (let ((_out12976_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out12976_)) - (display '"*** Unhandled exception in " _out12976_) - (display (current-thread) _out12976_) - (newline _out12976_) - (display-exception _exn12973_ _out12976_) + (lambda (_cont12928_ _exn12929_ _error-port12930_) + (let ((_out12932_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out12932_)) + (display '"*** Unhandled exception in " _out12932_) + (display (current-thread) _out12932_) + (newline _out12932_) + (display-exception _exn12929_ _out12932_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn12973_)) + (class-instance? StackTrace::t _exn12929_)) '#!void (begin - (display '"Continuation backtrace: " _out12976_) - (newline _out12976_) - (display-continuation-backtrace _cont12972_ _out12976_))) - (let ((__tmp13147 (get-output-string _out12976_))) + (display '"Continuation backtrace: " _out12932_) + (newline _out12932_) + (display-continuation-backtrace _cont12928_ _out12932_))) + (let ((__tmp13103 (get-output-string _out12932_))) (declare (not safe)) - (##write-string __tmp13147 _error-port12974_))))) + (##write-string __tmp13103 _error-port12930_))))) (define dump-stack-trace!__0 - (lambda (_cont12981_ _exn12982_) - (let ((_error-port12984_ (current-error-port))) + (lambda (_cont12937_ _exn12938_) + (let ((_error-port12940_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont12981_ _exn12982_ _error-port12984_)))) + (dump-stack-trace!__% _cont12937_ _exn12938_ _error-port12940_)))) (define dump-stack-trace! - (lambda _g13149_ - (let ((_g13148_ (let () (declare (not safe)) (##length _g13149_)))) - (cond ((let () (declare (not safe)) (##fx= _g13148_ 2)) - (apply (lambda (_cont12981_ _exn12982_) + (lambda _g13105_ + (let ((_g13104_ (let () (declare (not safe)) (##length _g13105_)))) + (cond ((let () (declare (not safe)) (##fx= _g13104_ 2)) + (apply (lambda (_cont12937_ _exn12938_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont12981_ _exn12982_))) - _g13149_)) - ((let () (declare (not safe)) (##fx= _g13148_ 3)) - (apply (lambda (_cont12986_ _exn12987_ _error-port12988_) + (dump-stack-trace!__0 _cont12937_ _exn12938_))) + _g13105_)) + ((let () (declare (not safe)) (##fx= _g13104_ 3)) + (apply (lambda (_cont12942_ _exn12943_ _error-port12944_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont12986_ - _exn12987_ - _error-port12988_))) - _g13149_)) + _cont12942_ + _exn12943_ + _error-port12944_))) + _g13105_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g13149_)))))) + _g13105_)))))) (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 0e9f08ef..4b0beef5 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1701931847) + (define gerbil/runtime/util::timestamp 1704735466) (begin (define displayln (lambda _args7639_ diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 34220b6e..55d62682 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 1701931848) '#!void) +(begin (define gerbil/runtime::timestamp 1704735467) '#!void) diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 312018c0..0535dd67 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -163,7 +163,7 @@ package: gerbil c3-linearize not-null? remove-nulls append-reverse ;; MOP type-descriptor? - type-id type-descriptor-precedence-all-slots type-descriptor-precedence-list type-descriptor-alist type-descriptor-constructor type-descriptor-slot-table type-descriptor-methods + type-id type-descriptor-precedence-all-slots type-descriptor-precedence-list type-descriptor-properties type-descriptor-constructor type-descriptor-slot-table type-descriptor-methods type-final? type-struct? struct-type? class-type? make-struct-type make-struct-type* make-struct-predicate diff --git a/src/std/misc/repr.ss b/src/std/misc/repr.ss index a2f0ffce..d4cda2c8 100644 --- a/src/std/misc/repr.ss +++ b/src/std/misc/repr.ss @@ -154,7 +154,7 @@ ((and (object? x) (let (t (object-type x)) - (and (type-descriptor? t) (assgetq transparent: (type-descriptor-alist t))))) + (and (type-descriptor? t) (assgetq transparent: (type-descriptor-properties t))))) (display-separated (if (struct-type? (object-type x)) (cdr (struct->list x)) diff --git a/src/std/misc/rtd.ss b/src/std/misc/rtd.ss index a177fead..a30d7b45 100644 --- a/src/std/misc/rtd.ss +++ b/src/std/misc/rtd.ss @@ -7,7 +7,7 @@ type-descriptor? (rename: checked-type-descriptor-precedence-list type-descriptor-precedence-list) (rename: checked-type-descriptor-all-slots type-descriptor-all-slots) - (rename: checked-type-descriptor-alist type-descriptor-alist) + (rename: checked-type-descriptor-properties type-descriptor-properties) (rename: checked-type-descriptor-constructor type-descriptor-constructor) (rename: checked-type-descriptor-slot-table type-descriptor-slot-table) (rename: checked-type-descriptor-methods type-descriptor-methods)) @@ -15,7 +15,7 @@ (extern namespace: #f type-descriptor-precedence-list type-descriptor-all-slots - type-descriptor-alist + type-descriptor-properties type-descriptor-constructor type-descriptor-slot-table type-descriptor-methods @@ -49,7 +49,7 @@ (defcheck-type-descriptor checked-type-descriptor-precedence-list type-descriptor-precedence-list) (defcheck-type-descriptor checked-type-descriptor-all-slots type-descriptor-all-slots) -(defcheck-type-descriptor checked-type-descriptor-alist type-descriptor-alist) +(defcheck-type-descriptor checked-type-descriptor-properties type-descriptor-properties) (defcheck-type-descriptor checked-type-descriptor-constructor type-descriptor-constructor) (defcheck-type-descriptor checked-type-descriptor-slot-table type-descriptor-slot-table) (defcheck-type-descriptor checked-type-descriptor-methods type-descriptor-methods) |