diff --git a/.makefile b/.makefile index 41c57845d5..6aa7c24b0d 100644 --- a/.makefile +++ b/.makefile @@ -338,7 +338,7 @@ RACKET_FOR_BOOTFILES = $(RACKET) RACKET_FOR_BUILD = $(RACKET) # This branch name changes each time the pb boot files are updated: -PB_BRANCH == circa-7.9.0.4-1 +PB_BRANCH == circa-7.9.0.5-1 PB_REPO = https://github.com/racket/pb # Alternative source for Chez Scheme boot files, normally set by diff --git a/Makefile b/Makefile index be0f279a2b..e5255e9317 100644 --- a/Makefile +++ b/Makefile @@ -47,7 +47,7 @@ RACKETCS_SUFFIX = RACKET = RACKET_FOR_BOOTFILES = $(RACKET) RACKET_FOR_BUILD = $(RACKET) -PB_BRANCH = circa-7.9.0.4-1 +PB_BRANCH = circa-7.9.0.5-1 PB_REPO = https://github.com/racket/pb EXTRA_REPOS_BASE = CS_CROSS_SUFFIX = @@ -306,14 +306,14 @@ maybe-fetch-pb-as-is: echo done fetch-pb-from: mkdir -p racket/src/ChezScheme/boot - if [ ! -d racket/src/ChezScheme/boot/pb ] ; then git clone -q -b circa-7.9.0.4-1 $(PB_REPO) racket/src/ChezScheme/boot/pb ; else cd racket/src/ChezScheme/boot/pb && git fetch -q origin circa-7.9.0.4-1:remotes/origin/circa-7.9.0.4-1 ; fi - cd racket/src/ChezScheme/boot/pb && git checkout -q circa-7.9.0.4-1 + if [ ! -d racket/src/ChezScheme/boot/pb ] ; then git clone -q -b circa-7.9.0.5-1 $(PB_REPO) racket/src/ChezScheme/boot/pb ; else cd racket/src/ChezScheme/boot/pb && git fetch -q origin circa-7.9.0.5-1:remotes/origin/circa-7.9.0.5-1 ; fi + cd racket/src/ChezScheme/boot/pb && git checkout -q circa-7.9.0.5-1 pb-stage: - cd racket/src/ChezScheme/boot/pb && git branch circa-7.9.0.4-1 - cd racket/src/ChezScheme/boot/pb && git checkout circa-7.9.0.4-1 + cd racket/src/ChezScheme/boot/pb && git branch circa-7.9.0.5-1 + cd racket/src/ChezScheme/boot/pb && git checkout circa-7.9.0.5-1 cd racket/src/ChezScheme/boot/pb && git add . && git commit --amend -m "new build" pb-push: - cd racket/src/ChezScheme/boot/pb && git push -u origin circa-7.9.0.4-1 + cd racket/src/ChezScheme/boot/pb && git push -u origin circa-7.9.0.5-1 win-cs-base: IF "$(RACKET_FOR_BUILD)" == "" $(MAKE) win-bc-then-cs-base SETUP_BOOT_MODE=--boot WIN32_BUILD_LEVEL=bc PLAIN_RACKET=racket\racketbc DISABLE_STATIC_LIBS="$(DISABLE_STATIC_LIBS)" EXTRA_REPOS_BASE="$(EXTRA_REPOS_BASE)" JOB_OPTIONS="$(JOB_OPTIONS)" PLT_SETUP_OPTIONS="$(PLT_SETUP_OPTIONS)" RACKETBC_SUFFIX="$(RACKETBC_SUFFIX)" RACKETCS_SUFFIX="$(RACKETCS_SUFFIX)" IF not "$(RACKET_FOR_BUILD)" == "" $(MAKE) win-just-cs-base SETUP_BOOT_MODE=--chain DISABLE_STATIC_LIBS="$(DISABLE_STATIC_LIBS)" EXTRA_REPOS_BASE="$(EXTRA_REPOS_BASE)" JOB_OPTIONS="$(JOB_OPTIONS)" PLT_SETUP_OPTIONS="$(PLT_SETUP_OPTIONS)" RACKETCS_SUFFIX="$(RACKETCS_SUFFIX)" RACKET_FOR_BUILD="$(RACKET_FOR_BUILD)" diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt index 6d03efa899..66877910ae 100644 --- a/pkgs/base/info.rkt +++ b/pkgs/base/info.rkt @@ -12,7 +12,9 @@ (define collection 'multi) -(define version "7.9.0.4") +;; In the Racket source repo, this version should change only when +;; "racket_version.h" changes: +(define version "7.9.0.5") (define deps `("racket-lib" ["racket" #:version ,version])) diff --git a/pkgs/racket-doc/scribblings/reference/syntax.scrbl b/pkgs/racket-doc/scribblings/reference/syntax.scrbl index ee05c480be..db9405cd90 100644 --- a/pkgs/racket-doc/scribblings/reference/syntax.scrbl +++ b/pkgs/racket-doc/scribblings/reference/syntax.scrbl @@ -17,6 +17,7 @@ (only-in compiler/cm-accomplice register-external-module) racket/performance-hint + racket/unsafe/ops syntax/parse)) @(define require-eval (make-base-eval)) @@ -388,7 +389,8 @@ Legal only in a @tech{module begin context}, and handled by the @defform[(#%declare declaration-keyword ...) #:grammar ([declaration-keyword #:cross-phase-persistent - #:empty-namespace])]{ + #:empty-namespace + #:unsafe])]{ Declarations that affect run-time or reflective properties of the module: @@ -406,6 +408,21 @@ module: way can reduce the @tech{lexical information} that otherwise must be preserved for the module.} +@item{@indexed-racket[#:unsafe] --- declares that the module can be + compiled without checks that could trigger + @racket[exn:fail:contract], and the resulting behavior is + unspecified for an evaluation where @racket[exn:fail:contract] + should have been raised; see also @secref["unsafe"]. For + example, a use of @racket[car] can be compiled as a use of + @racket[unsafe-car], and the behavior is unspecified is + @racket[unsafe-car] is applied to a non-pair. The + @racket[#:unsafe] declaration keyword is allowed only when the + current @tech{code inspector} is the initial one. Macros can + generate conditionally unsafe code, depending on the expansion + context, by expanding to a use of + @racket[(variable-reference-from-unsafe? + (#%variable-reference))].} + ] A @racket[#%declare] form must appear in a @tech{module @@ -413,7 +430,8 @@ context} or a @tech{module-begin context}. Each @racket[declaration-keyword] can be declared at most once within a @racket[module] body. -@history[#:changed "6.3" @elem{Added @racket[#:empty-namespace].}]} +@history[#:changed "6.3" @elem{Added @racket[#:empty-namespace].} + #:changed "7.9.0.5" @elem{Added @racket[#:unsafe].}]} @;------------------------------------------------------------------------ diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index a69b5e0ec9..b7f93e48aa 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2717,6 +2717,17 @@ case of module-leve bindings; it doesn't cover local bindings. (namespace-attach-module-declaration (current-namespace) ''please-attach-me-successfully (make-base-namespace)) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check that `#:unsafe` is allowed + +(module unsafe-module-so-call-provided-carefully racket/base + (#%declare #:unsafe) + (provide unsafe-first) + (define (unsafe-first l) (car l))) + +(require 'unsafe-module-so-call-provided-carefully) +(test 3 unsafe-first '(3 4 5)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Make sure that a module with an attached instance ;; cannot be redeclared in the target namespace diff --git a/racket/src/ChezScheme/csug/syntax.stex b/racket/src/ChezScheme/csug/syntax.stex index 11bdff4bf2..f2e345f0bc 100644 --- a/racket/src/ChezScheme/csug/syntax.stex +++ b/racket/src/ChezScheme/csug/syntax.stex @@ -1527,6 +1527,21 @@ rather than: \endschemedisplay +\section{Unsafety\label{SECTSYNTAXBEGINUNSAFE}} + +%---------------------------------------------------------------------------- +\noskipentryheader +\formdef{begin-unsafe}{\categorysyntax}{(begin-unsafe \var{e_1} \var{e_2} \dots)} +\returns value of last \var{e} +\listlibraries +\endentryheader + +\scheme{begin-unsafe} is like \scheme{begin} in an expression +position, but it sets \scheme{optimize-level} to 3 while expanding the +body expressions---which, for example, causes references to primitives +to refer to unsafe variants. + + \section{Annotations\label{SECTSYNTAXANNOTATIONS}} \index{annotations}% diff --git a/racket/src/ChezScheme/makefiles/Mf-install.in b/racket/src/ChezScheme/makefiles/Mf-install.in index 2c688050b1..0f48fbce13 100644 --- a/racket/src/ChezScheme/makefiles/Mf-install.in +++ b/racket/src/ChezScheme/makefiles/Mf-install.in @@ -62,7 +62,7 @@ InstallLZ4Target= # no changes should be needed below this point # ############################################################################### -Version=csv9.5.3.48 +Version=csv9.5.3.49 Include=boot/$m PetiteBoot=boot/$m/petite.boot SchemeBoot=boot/$m/scheme.boot diff --git a/racket/src/ChezScheme/s/cmacros.ss b/racket/src/ChezScheme/s/cmacros.ss index 3740c62fb0..173f387012 100644 --- a/racket/src/ChezScheme/s/cmacros.ss +++ b/racket/src/ChezScheme/s/cmacros.ss @@ -357,7 +357,7 @@ ;; --------------------------------------------------------------------- ;; Version and machine types: -(define-constant scheme-version #x09050330) +(define-constant scheme-version #x09050331) (define-syntax define-machine-types (lambda (x) diff --git a/racket/src/ChezScheme/s/primdata.ss b/racket/src/ChezScheme/s/primdata.ss index eb0a4d0c3b..9dcee223a3 100644 --- a/racket/src/ChezScheme/s/primdata.ss +++ b/racket/src/ChezScheme/s/primdata.ss @@ -1048,6 +1048,7 @@ (add-prefix [flags]) (alias [flags]) (annotation-options [flags]) + (begin-unsafe [flags]) (case [flags]) (constructor [flags]) (critical-section [flags]) diff --git a/racket/src/ChezScheme/s/syntax.ss b/racket/src/ChezScheme/s/syntax.ss index e6d385ee6c..5a9416b059 100644 --- a/racket/src/ChezScheme/s/syntax.ss +++ b/racket/src/ChezScheme/s/syntax.ss @@ -6377,6 +6377,13 @@ (unless (source-object? src) (syntax-error src "profile subform is not a source object")) (build-input-profile src))]))) +(global-extend 'core 'begin-unsafe + (lambda (e r w ae) + (syntax-case e () + ((_ e1 e2 ...) + (parameterize ([optimize-level 3]) + (chi-sequence #'(e1 e2 ...) r w no-source)))))) + (global-extend 'set! 'set! '()) (global-extend 'alias 'alias '()) diff --git a/racket/src/bc/src/startup.inc b/racket/src/bc/src/startup.inc index 7ab32f77b4..02fb7fe231 100644 --- a/racket/src/bc/src/startup.inc +++ b/racket/src/bc/src/startup.inc @@ -20737,6 +20737,7 @@ static const char *startup_source = " $value" " with-continuation-mark*" " pariah" +" begin-unsafe" " variable-set!" " variable-ref" " variable-ref/no-check" @@ -32571,14 +32572,15 @@ static const char *startup_source = " root-ctx-only-if-syntax?7_0" " serializable?12_0" " to-correlated-linklet?14_0" -" bodys30_0" -" cctx31_0" -" mpis32_0)" +" unsafe?-box16_0" +" bodys32_0" +" cctx33_0" +" mpis34_0)" "(begin" " 'compile-forms" -"(let-values(((bodys_0) bodys30_0))" -"(let-values(((cctx_0) cctx31_0))" -"(let-values(((mpis_0) mpis32_0))" +"(let-values(((bodys_0) bodys32_0))" +"(let-values(((cctx_0) cctx33_0))" +"(let-values(((mpis_0) mpis34_0))" "(let-values(((body-imports_0) body-imports2_0))" "(let-values(((body-import-instances_0) body-import-instances3_0))" "(let-values(((body-suffix-forms_0) body-suffix-forms4_0))" @@ -32596,6 +32598,7 @@ static const char *startup_source = "(let-values(((module-prompt?_0) module-prompt?13_0))" "(let-values(((to-correlated-linklet?_0) to-correlated-linklet?14_0))" "(let-values(((optimize-linklet?_0) optimize-linklet?15_0))" +"(let-values(((unsafe?-box_0) unsafe?-box16_0))" "(let-values()" "(let-values(((phase_0)(compile-context-phase cctx_0)))" "(let-values(((self_0)(compile-context-self cctx_0)))" @@ -32801,7 +32804,8 @@ static const char *startup_source = " loop!_0)" " bodys_0" " phase_0" -"(find-or-create-header!_0 phase_0)))" +"(find-or-create-header!_0" +" phase_0)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -32976,26 +32980,26 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((header57_0)" +"(let-values(((header61_0)" " header_0)" -"((temp58_0)" +"((temp62_0)" "(compile-context-self" " cctx_0))" -"((phase59_0)" +"((phase63_0)" " phase_1)" -"((binding-sym60_0)" +"((binding-sym64_0)" " binding-sym_0)" -"((temp61_0)" +"((temp65_0)" " #f)" -"((temp62_0)" +"((temp66_0)" " #t))" "(register-required-variable-use!.1" +" temp66_0" +" header61_0" " temp62_0" -" header57_0" -" temp58_0" -" phase59_0" -" binding-sym60_0" -" temp61_0)))" +" phase63_0" +" binding-sym64_0" +" temp65_0)))" " fold-var_1))))" "(values" " fold-var_2)))))" @@ -33017,14 +33021,14 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase63_0)" +"(let-values(((phase67_0)" " phase_1)" -"((header64_0)" +"((header68_0)" " header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase63_0" +" phase67_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33033,10 +33037,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header64_0))" +" header68_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0)))" "(if(=" "(length" @@ -33140,14 +33144,14 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase65_0)" +"(let-values(((phase69_0)" " phase_1)" -"((header66_0)" +"((header70_0)" " header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase65_0" +" phase69_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33156,10 +33160,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header66_0))" +" header70_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" @@ -33236,15 +33240,15 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase67_0)" +"(let-values(((phase71_0)" "(add1" " phase_1))" -"((header68_0)" +"((header72_0)" " next-header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase67_0" +" phase71_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33253,10 +33257,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header68_0))" +" header72_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0))))))" "(let-values((()" "(begin" @@ -33376,14 +33380,14 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase69_0)" +"(let-values(((phase73_0)" " phase_1)" -"((header70_0)" +"((header74_0)" " header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase69_0" +" phase73_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33392,10 +33396,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header70_0))" +" header74_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" @@ -33431,14 +33435,14 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase71_0)" +"(let-values(((phase75_0)" " phase_1)" -"((header72_0)" +"((header76_0)" " header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase71_0" +" phase75_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33447,10 +33451,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header72_0))" +" header76_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0))))))" "(if e_0" "(let-values()" @@ -33473,14 +33477,14 @@ static const char *startup_source = " cctx_0))" "(if(compile-context?" " the-struct_0)" -"(let-values(((phase73_0)" +"(let-values(((phase77_0)" " phase_1)" -"((header74_0)" +"((header78_0)" " header_0))" "(compile-context1.1" "(compile-context-namespace" " the-struct_0)" -" phase73_0" +" phase77_0" "(compile-context-self" " the-struct_0)" "(compile-context-module-self" @@ -33489,10 +33493,10 @@ static const char *startup_source = " the-struct_0)" "(compile-context-lazy-syntax-literals?" " the-struct_0)" -" header74_0))" +" header78_0))" "(raise-argument-error" " 'struct-copy" -" \"compile-context?\"" +" \"compile-context?\"" " the-struct_0)))" " #f" "(=" @@ -33526,7 +33530,8 @@ static const char *startup_source = " loop!_0)" " bodys_0" " phase_0" -"(find-or-create-header!_0 phase_0))" +"(find-or-create-header!_0" +" phase_0))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -33548,17 +33553,22 @@ static const char *startup_source = " #f)" " #f)))" "(let-values(((phases-in-order_0)" -"(let-values(((temp75_0)" +"(let-values(((temp79_0)" "(hash-keys" " phase-to-body_0))" -"((<76_0) <))" -"(sort.1 #f #f temp75_0 <76_0))))" +"((<80_0) <))" +"(sort.1" +" #f" +" #f" +" temp79_0" +" <80_0))))" "(let-values(((min-phase_0)" "(if(pair? phases-in-order_0)" "(car phases-in-order_0)" " phase_0)))" "(let-values(((max-phase_0)" -"(if(pair? phases-in-order_0)" +"(if(pair?" +" phases-in-order_0)" "(car" "(reverse$1" " phases-in-order_0))" @@ -33571,7 +33581,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_0)))" +"(check-list" +" lst_0)))" "((letrec-values(((for-loop_0)" "(lambda(table_0" " lst_1)" @@ -33761,39 +33772,45 @@ static const char *startup_source = " 'module)" " module-use*s_0))" "(let-values()" -"(let-values(((body-linklet77_0)" +"(let-values(((body-linklet81_0)" " body-linklet_0)" -"((body-imports78_0)" +"((body-imports82_0)" " body-imports_0)" -"((body-import-instances79_0)" +"((body-import-instances83_0)" " body-import-instances_0)" -"((get-module-linklet-info80_0)" +"((get-module-linklet-info84_0)" " get-module-linklet-info_0)" -"((serializable?81_0)" +"((serializable?85_0)" " serializable?_0)" -"((module-prompt?82_0)" +"((module-prompt?86_0)" " module-prompt?_0)" -"((module-use*s83_0)" +"((module-use*s87_0)" " module-use*s_0)" -"((optimize-linklet?84_0)" +"((optimize-linklet?88_0)" " optimize-linklet?_0)" -"((temp85_0)" +"((temp89_0)" +"(if unsafe?-box_0" +"(unbox" +" unsafe?-box_0)" +" #f))" +"((temp90_0)" " #f)" -"((temp86_0)" +"((temp91_0)" "(compile-context-namespace" " cctx_0)))" "(compile-module-linklet.1" -" body-import-instances79_0" -" body-imports78_0" +" body-import-instances83_0" +" body-imports82_0" " unsafe-undefined" -" get-module-linklet-info80_0" -" temp85_0" -" module-prompt?82_0" -" module-use*s83_0" -" temp86_0" -" optimize-linklet?84_0" -" serializable?81_0" -" body-linklet77_0))))))" +" get-module-linklet-info84_0" +" temp90_0" +" module-prompt?86_0" +" module-use*s87_0" +" temp91_0" +" optimize-linklet?88_0" +" serializable?85_0" +" temp89_0" +" body-linklet81_0))))))" "(values" " phase_1" "(cons" @@ -34010,7 +34027,7 @@ static const char *startup_source = " phase-to-link-module-uses-expr_0" " phase-to-link-extra-inspectorsss_0" " syntax-literals_0" -" encoded-root-expand-pos_0))))))))))))))))))))))))))))))))))))))))))))))" +" encoded-root-expand-pos_0)))))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(compile-top-level-bind)" "(lambda(ids_0 binding-syms_0 cctx_0 trans-exprs_0)" @@ -34172,31 +34189,33 @@ static const char *startup_source = "(if v_0(correlated-property e_0 'compiler-hint:cross-module-inline v_0) e_0)))))" "(define-values" "(compile-module-linklet.1)" -"(lambda(body-import-instances36_0" -" body-imports35_0" -" compile-linklet34_0" -" get-module-linklet-info37_0" -" load-modules?42_0" -" module-prompt?39_0" -" module-use*s40_0" -" namespace43_0" -" optimize-linklet?41_0" -" serializable?38_0" -" body-linklet54_0)" +"(lambda(body-import-instances38_0" +" body-imports37_0" +" compile-linklet36_0" +" get-module-linklet-info39_0" +" load-modules?45_0" +" module-prompt?41_0" +" module-use*s42_0" +" namespace46_0" +" optimize-linklet?43_0" +" serializable?40_0" +" unsafe?44_0" +" body-linklet58_0)" "(begin" " 'compile-module-linklet" -"(let-values(((body-linklet_0) body-linklet54_0))" +"(let-values(((body-linklet_0) body-linklet58_0))" "(let-values(((compile-linklet_0)" -"(if(eq? compile-linklet34_0 unsafe-undefined) 1/compile-linklet compile-linklet34_0)))" -"(let-values(((body-imports_0) body-imports35_0))" -"(let-values(((body-import-instances_0) body-import-instances36_0))" -"(let-values(((get-module-linklet-info_0) get-module-linklet-info37_0))" -"(let-values(((serializable?_0) serializable?38_0))" -"(let-values(((module-prompt?_0) module-prompt?39_0))" -"(let-values(((module-use*s_0) module-use*s40_0))" -"(let-values(((optimize-linklet?_0) optimize-linklet?41_0))" -"(let-values(((load-modules?_0) load-modules?42_0))" -"(let-values(((namespace_0) namespace43_0))" +"(if(eq? compile-linklet36_0 unsafe-undefined) 1/compile-linklet compile-linklet36_0)))" +"(let-values(((body-imports_0) body-imports37_0))" +"(let-values(((body-import-instances_0) body-import-instances38_0))" +"(let-values(((get-module-linklet-info_0) get-module-linklet-info39_0))" +"(let-values(((serializable?_0) serializable?40_0))" +"(let-values(((module-prompt?_0) module-prompt?41_0))" +"(let-values(((module-use*s_0) module-use*s42_0))" +"(let-values(((optimize-linklet?_0) optimize-linklet?43_0))" +"(let-values(((unsafe?_0) unsafe?44_0))" +"(let-values(((load-modules?_0) load-modules?45_0))" +"(let-values(((namespace_0) namespace46_0))" "(let-values()" "(let-values(((linklet_0 new-module-use*s_0)" "(begin" @@ -34211,11 +34230,15 @@ static const char *startup_source = " name_0" " keys_0" " getter_0" +"(let-values(((flags_0)" "(if serializable?_0" -"(if module-prompt?_0 '(serializable use-prompt) '(serializable))" +"(if module-prompt?_0" +" '(serializable use-prompt)" +" '(serializable))" "(if module-prompt?_0" " '(use-prompt)" "(if optimize-linklet?_0 '() '(quick))))))" +"(if unsafe?_0(cons 'unsafe flags_0) flags_0))))" " body-linklet_0" " 'module" "(list->vector(append body-import-instances_0 module-use*s_0))" @@ -34230,7 +34253,9 @@ static const char *startup_source = "(void))))))" "(values" " linklet_0" -"(list-tail(vector->list new-module-use*s_0)(length body-imports_0)))))))))))))))))))" +"(list-tail" +"(vector->list new-module-use*s_0)" +"(length body-imports_0))))))))))))))))))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(optimize-linklet?_0 load-modules?_0 ns_0 get-module-linklet-info_0 init-mu*s_0)" @@ -37910,6 +37935,7 @@ static const char *startup_source = " #f" " serializable?19_0" " to-correlated-linklet?20_0" +" #f" " temp14_0" " cctx15_0" " mpis16_0))))" @@ -38531,6 +38557,7 @@ static const char *startup_source = "(root-expand-context/outer-use-site-scopes the-struct_0)" "(root-expand-context/outer-frame-id the-struct_0)))" " (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_0)))))))))" +"(define-values(initial-code-inspector)(current-code-inspector))" "(define-values" "(check-require-access.1)" "(lambda(skip-imports1_0" @@ -40694,6 +40721,7 @@ static const char *startup_source = " \"compile-context?\"" " the-struct_0)))))" "(let-values(((cross-phase-persistent?_0) #f))" +"(let-values(((unsafe?-box_0)(box #f)))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" "(lambda(e_0" @@ -40733,7 +40761,7 @@ static const char *startup_source = "(void)" "(let-values()" "(error" -" \"internal error: have post submodules, but not already compiled\")))" +" \"internal error: have post submodules, but not already compiled\")))" "(register-compiled-submodules" " modules-being-compiled_0" " pre-submodules_0" @@ -40749,7 +40777,8 @@ static const char *startup_source = " syntax-literals_0" " root-ctx-pos_0)" "(let-values(((bodys57_0) bodys_0)" -"((body-cctx58_0) body-cctx_0)" +"((body-cctx58_0)" +" body-cctx_0)" "((mpis59_0) mpis_0)" "((temp60_0)" "(list" @@ -40775,15 +40804,15 @@ static const char *startup_source = " body_0)" "(let-values()" "(let-values(((ok?_0" -" _72_0" -" kw73_0)" +" _73_0" +" kw74_0)" "(let-values(((s_0)" "(parsed-s" " body_0)))" "(let-values(((orig-s_0)" " s_0))" -"(let-values(((_72_0" -" kw73_0)" +"(let-values(((_73_0" +" kw74_0)" "(let-values(((s_1)" "(if(syntax?$1" " s_0)" @@ -40792,12 +40821,12 @@ static const char *startup_source = " s_0)))" "(if(pair?" " s_1)" -"(let-values(((_74_0)" +"(let-values(((_75_0)" "(let-values(((s_2)" "(car" " s_1)))" " s_2))" -"((kw75_0)" +"((kw76_0)" "(let-values(((s_2)" "(cdr" " s_1)))" @@ -40815,24 +40844,24 @@ static const char *startup_source = "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_0))" "(let-values()" " flat-s_0)))))))" "(values" -" _74_0" -" kw75_0))" +" _75_0" +" kw76_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_0)))))" "(values" " #t" -" _72_0" -" kw73_0))))))" +" _73_0" +" kw74_0))))))" "(begin" "(let-values(((lst_0)" -" kw73_0))" +" kw74_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -40878,6 +40907,15 @@ static const char *startup_source = "(set-box!" " encoded-root-expand-ctx-box_0" " #f)))" +"(void))" +"(if(eq?" +"(syntax-e$1" +" kw_0)" +" '#:unsafe)" +"(let-values()" +"(set-box!" +" unsafe?-box_0" +" #t))" "(void))))" "(values)))))" "(values)))))" @@ -40893,7 +40931,8 @@ static const char *startup_source = " #f)))" "(let-values() #f))))" "((temp68_0)" -"(lambda(mod-name_0 phase_0)" +"(lambda(mod-name_0" +" phase_0)" "(let-values(((ht_0)" "(if modules-being-compiled_0" "(hash-ref" @@ -40911,7 +40950,9 @@ static const char *startup_source = " serializable?_0)" "((temp70_0) #t)" "((to-correlated-linklet?71_0)" -" to-correlated-linklet?_0))" +" to-correlated-linklet?_0)" +"((unsafe?-box72_0)" +" unsafe?-box_0))" "(compile-forms.1" " temp61_0" " temp60_0" @@ -40927,6 +40968,7 @@ static const char *startup_source = " body-context-simple?65_0" " serializable?69_0" " to-correlated-linklet?71_0" +" unsafe?-box72_0" " bodys57_0" " body-cctx58_0" " mpis59_0))))" @@ -41083,27 +41125,28 @@ static const char *startup_source = "(list*" " deserialized-syntax-vector-id" "(if serializable?_0" -"(list deserialize-syntax-id)" +"(list" +" deserialize-syntax-id)" " '()))" " instance-imports)" "(list*" " get-syntax-literal!-id" " '(get-encoded-root-expand-ctx))" "(qq-append" -"(let-values(((syntax-literals76_0)" +"(let-values(((syntax-literals77_0)" " syntax-literals_0)" -"((mpis77_0)" +"((mpis78_0)" " mpis_0)" -"((self78_0)" +"((self79_0)" " self_0)" -"((temp79_0)" +"((temp80_0)" "(not" " serializable?_0)))" "(generate-lazy-syntax-literals!.1" -" temp79_0" -" syntax-literals76_0" -" mpis77_0" -" self78_0))" +" temp80_0" +" syntax-literals77_0" +" mpis78_0" +" self79_0))" "(list" "(list" " 'define-values" @@ -41305,16 +41348,16 @@ static const char *startup_source = "(hash-set" " bundle_10" " 'side-effects" -"(let-values(((temp80_0)" +"(let-values(((temp81_0)" "(hash-keys" " side-effects_0))" -"((<81_0)" +"((<82_0)" " <))" "(sort.1" " #f" " #f" -" temp80_0" -" <81_0)))" +" temp81_0" +" <82_0)))" " bundle_10)))" "(let-values(((bundle_12)" "(if empty-result-for-module->namespace?_0" @@ -41323,8 +41366,16 @@ static const char *startup_source = " 'module->namespace" " 'empty)" " bundle_11)))" +"(let-values(((bundle_13)" +"(if(unbox" +" unsafe?-box_0)" +"(hash-set" +" bundle_12" +" 'unsafe?" +" #t)" +" bundle_12)))" "(hash->linklet-bundle" -" bundle_12))))))))))))))))" +" bundle_13)))))))))))))))))" "(let-values(((ld_0)" "(if(if(null?" " pre-submodules_0)" @@ -41403,7 +41454,7 @@ static const char *startup_source = "(map2 cdr pre-submodules_0)" "(map2 cdr post-submodules_0)" " #f" -" #f)))))))))))))))))))))))))" +" #f))))))))))))))))))))))))))" "(if log-performance?(let-values()(end-performance-region))(void))))))))))))))))))" "(define-values" "(update-submodule-names)" @@ -41851,6 +41902,7 @@ static const char *startup_source = "(let-values()" "(let-values(((self_0)(decl_0 'self-mpi)))" "(let-values(((phase-to-link-modules_0)(decl_0 'phase-to-link-modules)))" +"(let-values(((unsafe?_0)(hash-ref orig-h_0 'unsafe? #f)))" "(let-values(((find-submodule_0)" "(lambda(mod-name_0 phase_0)" "(begin" @@ -41873,24 +41925,25 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'compiled-expression-recompile" -" \"cycle in linklet imports\"))" +" \"cycle in linklet imports\"))" "(void))" "(values))))" "(let-values(((b_1)(recompiled-bundle r_0)))" "(let-values(((linklet_0)" "(let-values(((or-part_0)" "(hash-ref" -"(linklet-bundle->hash b_1)" +"(linklet-bundle->hash" +" b_1)" " phase_0" " #f)))" "(if or-part_0" " or-part_0" "(raise-arguments-error" " 'compiled-expression-recompile" -" \"cannot find submodule at phase\"" -" \"submodule\"" +" \"cannot find submodule at phase\"" +" \"submodule\"" " mod-name_0" -" \"phase\"" +" \"phase\"" " phase_0)))))" "(module-linklet-info2.1" " linklet_0" @@ -41921,7 +41974,8 @@ static const char *startup_source = "(let-values(((table_1)" "(let-values(((table_1)" " table_0))" -"(if(exact-integer? phase_0)" +"(if(exact-integer?" +" phase_0)" "(let-values(((table_2)" " table_1))" "(let-values(((table_3)" @@ -41968,21 +42022,24 @@ static const char *startup_source = " module-use*s_0)" "((temp11_0)" " #t)" -"((temp12_0)" +"((unsafe?12_0)" +" unsafe?_0)" +"((temp13_0)" " #t)" -"((ns13_0)" +"((ns14_0)" " ns_0))" "(compile-module-linklet.1" " temp6_0" " temp5_0" " temp4_0" " find-submodule7_0" -" temp12_0" +" temp13_0" " temp9_0" " module-use*s10_0" -" ns13_0" +" ns14_0" " temp11_0" " temp8_0" +" unsafe?12_0" " temp3_0))))" "(values" " phase_0" @@ -42085,7 +42142,9 @@ static const char *startup_source = " phase-to-link-module-uses_0" " mpis_0)))" "(let-values(((data-linklet_0)" -"(1/compile-linklet(generate-module-data-linklet mpis_0) 'data)))" +"(1/compile-linklet" +"(generate-module-data-linklet mpis_0)" +" 'data)))" "(let-values(((declaration-linklet_0)" "(1/compile-linklet" "(generate-module-declaration-linklet" @@ -42108,7 +42167,7 @@ static const char *startup_source = "(recompiled1.1" " new-bundle_0" " phase-to-link-module-uses_0" -" self_0))))))))))))))))))))))))" +" self_0)))))))))))))))))))))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" "(lambda(tops_0 data-linklet_0 ns_0)" @@ -65281,7 +65340,7 @@ static const char *startup_source = "(let-values(((temp59_0) #t)" "((primitive?60_0) primitive?_0)" "((temp61_0) #t)" -"((temp62_0)(not protected?_0))" +"((temp62_0)(if(not protected?_0)(null? protected-syms_0) #f))" "((mpi63_0) mpi_0)" "((temp64_0)" "(hasheqv" @@ -81626,7 +81685,8 @@ static const char *startup_source = "(syntax-e$1" " kw_0)" " '(#:cross-phase-persistent" -" #:empty-namespace))" +" #:empty-namespace" +" #:unsafe))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -81646,6 +81706,22 @@ static const char *startup_source = " exp-body_0" " kw_0))" "(void))" +"(if(eq?" +"(syntax-e$1" +" kw_0)" +" '#:unsafe)" +"(let-values()" +"(if(eq?" +"(current-code-inspector)" +" initial-code-inspector)" +"(void)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"unsafe compilation disallowed by code inspector\"" +" exp-body_0" +" kw_0))))" +"(void))" "(hash-set!" " declared-keywords_0" "(syntax-e$1" @@ -84853,23 +84929,25 @@ static const char *startup_source = "((linklet-primitives18_0) linklet-primitives_0)" "((ns19_0) ns_0)" "((temp20_0) #t)" -"((temp21_0) #t))" -"(declare-hash-based-module!.1 ns19_0 temp20_0 null #f temp21_0 temp17_0 linklet-primitives18_0))" -"(let-values(((temp22_0) '#%linklet-expander)" -"((linklet-expander-primitives23_0) linklet-expander-primitives)" -"((ns24_0) ns_0))" -"(declare-hash-based-module!.1 ns24_0 #f null #f #f temp22_0 linklet-expander-primitives23_0))" -"(let-values(((temp25_0) '#%linklet)" -"((temp26_0)(list '#%linklet-primitive '#%linklet-expander))" -"((ns27_0) ns_0))" -"(declare-reexporting-module!.1 ns27_0 #t temp25_0 temp26_0))))" -"(let-values(((temp28_0) '#%expobs)" -"((expobs-primitives29_0) expobs-primitives)" -"((ns30_0) ns_0)" -"((temp31_0) #t))" -"(declare-hash-based-module!.1 ns30_0 #f null temp31_0 #f temp28_0 expobs-primitives29_0))" -"(let-values(((ns32_0) ns_0)" -"((temp33_0)" +"((temp21_0) #t)" +"((temp22_0) #t))" +"(declare-hash-based-module!.1 ns19_0 temp20_0 null temp22_0 temp21_0 temp17_0 linklet-primitives18_0))" +"(let-values(((temp23_0) '#%linklet-expander)" +"((linklet-expander-primitives24_0) linklet-expander-primitives)" +"((ns25_0) ns_0)" +"((temp26_0) #t))" +"(declare-hash-based-module!.1 ns25_0 #f null temp26_0 #f temp23_0 linklet-expander-primitives24_0))" +"(let-values(((temp27_0) '#%linklet)" +"((temp28_0)(list '#%linklet-primitive '#%linklet-expander))" +"((ns29_0) ns_0))" +"(declare-reexporting-module!.1 ns29_0 #t temp27_0 temp28_0))))" +"(let-values(((temp30_0) '#%expobs)" +"((expobs-primitives31_0) expobs-primitives)" +"((ns32_0) ns_0)" +"((temp33_0) #t))" +"(declare-hash-based-module!.1 ns32_0 #f null temp33_0 #f temp30_0 expobs-primitives31_0))" +"(let-values(((ns34_0) ns_0)" +"((temp35_0)" "(let-values(((ht_0) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -84903,7 +84981,7 @@ static const char *startup_source = " for-loop_0)" " '#hash()" "(hash-iterate-first ht_0)))))" -"((temp34_0)" +"((temp36_0)" "(let-values(((ht_0) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -84937,7 +85015,7 @@ static const char *startup_source = " for-loop_0)" " '#hash()" "(hash-iterate-first ht_0))))))" -"(declare-kernel-module!.1 temp33_0 temp34_0 ns32_0))" +"(declare-kernel-module!.1 temp35_0 temp36_0 ns34_0))" "(begin" "(let-values(((lst_0) runtime-instances))" "(begin" @@ -84957,9 +85035,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((name35_0) name_0)" -"((ns36_0) ns_0)" -"((temp37_0)" +"(let-values(((name37_0) name_0)" +"((ns38_0) ns_0)" +"((temp39_0)" "(let-values(((or-part_0)" "(eq?" " name_0" @@ -84978,12 +85056,12 @@ static const char *startup_source = "(copy-runtime-module!.1" " '#hasheq()" " '#hasheq()" -" ns36_0" +" ns38_0" " #t" -" temp37_0" +" temp39_0" " unsafe-undefined" " unsafe-undefined" -" name35_0)))" +" name37_0)))" "(values)))))" "(values)))))))" "(if(not #f)(for-loop_0 rest_0)(values))))" @@ -84991,11 +85069,11 @@ static const char *startup_source = " for-loop_0)" " lst_0)))" "(void))" -"(let-values(((temp38_0) '#%builtin)" -"((temp39_0)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" -"((ns40_0) ns_0)" -"((temp41_0) #f))" -"(declare-reexporting-module!.1 ns40_0 temp41_0 temp38_0 temp39_0))" +"(let-values(((temp40_0) '#%builtin)" +"((temp41_0)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" +"((ns42_0) ns_0)" +"((temp43_0) #f))" +"(declare-reexporting-module!.1 ns42_0 temp43_0 temp40_0 temp41_0))" "(1/current-namespace ns_0)" "(1/dynamic-require ''#%kernel 0)))))))" "(call-with-values(lambda()(namespace-init!)) print-values)" diff --git a/racket/src/cs/c/cross-serve.ss b/racket/src/cs/c/cross-serve.ss index c4fc8726ab..0999784a43 100644 --- a/racket/src/cs/c/cross-serve.ss +++ b/racket/src/cs/c/cross-serve.ss @@ -34,11 +34,14 @@ (let-values ([(o get) (open-bytevector-output-port)]) (let ([sfd-paths (case (integer->char cmd) - [(#\c) + [(#\c #\u) (call-with-fasled in (lambda (v pred) - (compile-to-port (list `(lambda () ,v)) o #f #f #f (string->symbol target) #f pred)))] + (parameterize ([optimize-level (if (fx= cmd (char->integer #\u)) + 3 + (optimize-level))]) + (compile-to-port (list `(lambda () ,v)) o #f #f #f (string->symbol target) #f pred))))] [(#\f) ;; Reads host fasl format, then writes target fasl format (call-with-fasled diff --git a/racket/src/cs/compile-file.ss b/racket/src/cs/compile-file.ss index 1efe306f91..6ddb7c409f 100644 --- a/racket/src/cs/compile-file.ss +++ b/racket/src/cs/compile-file.ss @@ -2,7 +2,7 @@ ;; Check to make we're using a build of Chez Scheme ;; that has all the features we need. (define-values (need-maj need-min need-sub need-dev) - (values 9 5 3 38)) + (values 9 5 3 49)) (unless (guard (x [else #f]) (eval 'scheme-fork-version-number)) (error 'compile-file diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls index c06c25a372..ff50c7abf6 100644 --- a/racket/src/cs/linklet.sls +++ b/racket/src/cs/linklet.sls @@ -222,17 +222,17 @@ ;; engines/threads. (define compile* (case-lambda - [(e safe?) + [(e unsafe?) (call-with-system-wind (lambda () - (parameterize ([optimize-level (if safe? - (optimize-level) - 3)]) + (parameterize ([optimize-level (if unsafe? + 3 + (optimize-level))]) (if assembly-on? (parameterize ([#%$assembly-output (#%current-output-port)]) (printf ";; assembly ---------------------\n") (compile e)) (compile e)))))] - [(e) (compile* e #t)])) + [(e) (compile* e #f)])) (define (interpret* e) ; result is not safe for space (call-with-system-wind (lambda () (interpret e)))) (define (fasl-write* s o) @@ -248,12 +248,21 @@ (call-getting-sfd-paths (lambda (pred) (fasl-write s o pred 'omit-rtds))))))) - (define (compile-to-port* s o) + (define (compile-to-port* s o unsafe?) (call-with-system-wind (lambda () - (parameterize ([fasl-compressed compress-code?]) + (parameterize ([fasl-compressed compress-code?] + [optimize-level (if unsafe? + 3 + (optimize-level))]) (call-getting-sfd-paths (lambda (pred) (compile-to-port s o #f #f #f (machine-type) #f pred 'omit-rtds))))))) + (define (expand/optimize* e unsafe?) + (call-with-system-wind (lambda () + (parameterize ([optimize-level (if unsafe? + 3 + (optimize-level))]) + (#%expand/optimize e))))) (define (call-getting-sfd-paths proc) (let ([sfd-paths '()]) @@ -267,7 +276,7 @@ (define (eval/foreign e mode) (performance-region mode - (compile* e #f))) + (compile* e #t))) (define primitives (make-hasheq)) ; hash of sym -> known (define primitive-tables '()) ; list of (cons sym hash) @@ -287,34 +296,34 @@ (define (run-interpret s paths) (interpret-linklet s paths)) - (define (compile-to-proc s paths format) + (define (compile-to-proc s paths format unsafe?) (if (eq? format 'interpret) (run-interpret s paths) - (let ([proc (compile* s)]) + (let ([proc (compile* s unsafe?)]) (if (null? paths) proc (#%apply proc paths))))) ;; returns code bytevector and sfd-paths vector - (define (compile*-to-bytevector s) + (define (compile*-to-bytevector s unsafe?) (let-values ([(o get) (open-bytevector-output-port)]) - (let ([sfd-paths (compile-to-port* (list `(lambda () ,s)) o)]) + (let ([sfd-paths (compile-to-port* (list `(lambda () ,s)) o unsafe?)]) (values (get) sfd-paths)))) ;; returns code bytevector and sfd-paths vector - (define (compile-to-bytevector s format) + (define (compile-to-bytevector s format unsafe?) (cond [(eq? format 'interpret) (let-values ([(o get) (open-bytevector-output-port)]) (let ([sfd-paths (fasl-write-code* s o)]) (values (get) sfd-paths)))] - [else (compile*-to-bytevector s)])) + [else (compile*-to-bytevector s unsafe?)])) ;; returns code bytevector and sfd-paths vector - (define (cross-compile-to-bytevector machine s format) + (define (cross-compile-to-bytevector machine s format unsafe?) (cond [(eq? format 'interpret) (cross-fasl-to-string machine s)] - [else (cross-compile machine s)])) + [else (cross-compile machine s unsafe?)])) (define (eval-from-bytevector bv paths sfd-paths format) (add-performance-memory! 'faslin-code (bytevector-length bv)) @@ -490,6 +499,7 @@ (define check-result (check-compile-args 'compile-linklet import-keys get-import options)) (define serializable? (#%memq 'serializable options)) (define use-prompt? (#%memq 'use-prompt options)) + (define unsafe? (and (#%memq 'unsafe options) #t)) (define cross-machine (and serializable? (let ([m (|#%app| current-compile-target-machine)]) (and (not (eq? m (machine-type))) @@ -524,7 +534,7 @@ (not (#%memq 'uninterned-literal options)) (eq? format 'interpret) (|#%app| compile-allow-set!-undefined) - #f ;; safe mode + unsafe? enforce-constant? inline? (not use-prompt?) @@ -574,10 +584,10 @@ (let ([expr (show lambda-on? "lambda" (correlated->annotation expr serializable? sfd-cache))]) (if serializable? (let-values ([(code sfd-paths) (if cross-machine - (cross-compile cross-machine expr) - (compile*-to-bytevector expr))]) + (cross-compile cross-machine expr unsafe?) + (compile*-to-bytevector expr unsafe?))]) (make-wrapped-code code sfd-paths arity-mask (extract-inferred-name expr name))) - (compile* expr)))))])))])) + (compile* expr unsafe?)))))])))])) (define-values (paths impl-lam/paths) (if serializable? (extract-paths-and-fasls-from-schemified-linklet impl-lam/jitified (eq? format 'compile)) @@ -595,7 +605,7 @@ (when known-on? (show "known" (hash-map exports-info (lambda (k v) (list k v))))) (when (and cp0-on? (eq? format 'compile)) - (show "cp0" (#%expand/optimize (correlated->annotation impl-lam/paths)))) + (show "cp0" (expand/optimize* (correlated->annotation impl-lam/paths) unsafe?))) (performance-region 'compile-linklet ;; Create the linklet: @@ -603,9 +613,9 @@ (let-values ([(code sfd-paths) (if serializable? (if cross-machine - (cross-compile-to-bytevector cross-machine impl format) - (compile-to-bytevector impl format)) - (values (compile-to-proc impl paths format) '#()))]) + (cross-compile-to-bytevector cross-machine impl format unsafe?) + (compile-to-bytevector impl format unsafe?)) + (values (compile-to-proc impl paths format unsafe?) '#()))]) (when paths-on? (show "source paths" sfd-paths)) (let ([lk (make-linklet code diff --git a/racket/src/cs/linklet/cross-compile.ss b/racket/src/cs/linklet/cross-compile.ss index e392cc4404..c80e289597 100644 --- a/racket/src/cs/linklet/cross-compile.ss +++ b/racket/src/cs/linklet/cross-compile.ss @@ -63,8 +63,8 @@ (cache-cross-compiler a) (values (car bv+paths) (cdr bv+paths))))) -(define (cross-compile machine v) - (do-cross 'c machine v)) +(define (cross-compile machine v unsafe?) + (do-cross (if unsafe? 'u 'c) machine v)) (define (cross-fasl-to-string machine v) (do-cross 'f machine v)) diff --git a/racket/src/cs/schemified/expander.scm b/racket/src/cs/schemified/expander.scm index 5602d18cd5..89d9ccb041 100644 --- a/racket/src/cs/schemified/expander.scm +++ b/racket/src/cs/schemified/expander.scm @@ -231,6 +231,7 @@ '4)) (define kw2208 (string->keyword "cross-phase-persistent")) (define kw2910 (string->keyword "empty-namespace")) +(define kw2838 (string->keyword "unsafe")) (define hash3012 (hash 'block->letrec @@ -452,10 +453,12 @@ '5 'struct '6)) -(define kws2094 +(define kws2278 (cons (string->keyword "cross-phase-persistent") - (cons (string->keyword "empty-namespace") '()))) + (cons + (string->keyword "empty-namespace") + (cons (string->keyword "unsafe") '())))) (define call/ec call-with-escape-continuation) (define qq-append (lambda (a_0 b_0) @@ -484,7 +487,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memq "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memq + "not a proper list: " + orig-l_0)) (if (eq? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define memv @@ -501,7 +508,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memv "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memv + "not a proper list: " + orig-l_0)) (if (eqv? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define member @@ -519,10 +530,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_0)) (if (equal? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -552,10 +564,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_1) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_1)) (if (|#%app| eq?_0 v_1 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -698,13 +711,22 @@ ((ht_0 key_0 xform_0 default_0) (do-hash-update 'hash-update #f hash-set ht_0 key_0 xform_0 default_0)) ((ht_0 key_0 xform_0) - (do-hash-update 'hash-update #f hash-set ht_0 key_0 xform_0 not-there)))) + (begin-unsafe + (do-hash-update 'hash-update #f hash-set ht_0 key_0 xform_0 not-there))))) (define hash-update! (case-lambda ((ht_0 key_0 xform_0 default_0) (do-hash-update 'hash-update! #t hash-set! ht_0 key_0 xform_0 default_0)) ((ht_0 key_0 xform_0) - (do-hash-update 'hash-update! #t hash-set! ht_0 key_0 xform_0 not-there)))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_0 + key_0 + xform_0 + not-there))))) (define hash-ref! (lambda (ht_0 key_0 new_0) (begin @@ -813,10 +835,11 @@ (if (string? s_0) (let ((bstr_1 (string->bytes/locale (norm_0 (norm-tail_0 s_0))))) - (begin (bytes->path bstr_1 'windows))) + (begin-unsafe (begin (bytes->path bstr_1 'windows)))) (let ((c_0 (bytes-open-converter "" "UTF-8"))) (let ((bstr_1 (loop_0 bstr_0 c_0 0))) - (begin (bytes->path bstr_1 'windows)))))))) + (begin-unsafe + (begin (bytes->path bstr_1 'windows))))))))) (if (string? s_0) (string->path s_0) s_0)))))) (define check-extension-call (lambda (s_0 sfx_0 who_0 sep_0 trust-sep?_0) @@ -3669,7 +3692,8 @@ (for-loop_0 s1_0 (unsafe-immutable-hash-iterate-first s2_0)))))) (define set-union (lambda (s1_0 s2_0) - (if (let ((app_0 (hash-count s1_0))) (< app_0 (hash-count s2_0))) + (if (let ((app_0 (begin-unsafe (hash-count s1_0)))) + (< app_0 (begin-unsafe (hash-count s2_0)))) (set-union s2_0 s1_0) (begin (letrec* @@ -3690,7 +3714,8 @@ (for-loop_0 s1_0 (unsafe-immutable-hash-iterate-first s2_0))))))) (define set-intersect (lambda (s1_0 s2_0) - (if (let ((app_0 (hash-count s1_0))) (< app_0 (hash-count s2_0))) + (if (let ((app_0 (begin-unsafe (hash-count s1_0)))) + (< app_0 (begin-unsafe (hash-count s2_0)))) (set-intersect s2_0 s1_0) (begin (letrec* @@ -3728,8 +3753,8 @@ (call-with-values (lambda () (if (|#%app| pred_0 v_0) - (values (hash-set y_0 v_0 #t) n_0) - (values y_0 (hash-set n_0 v_0 #t)))) + (values (begin-unsafe (hash-set y_0 v_0 #t)) n_0) + (values y_0 (begin-unsafe (hash-set n_0 v_0 #t))))) (case-lambda ((y_1 n_1) (values y_1 n_1)) (args (raise-binding-result-arity-error 2 args))))) @@ -3840,7 +3865,7 @@ (unsafe-place-local-set! cell.1$10 #f) (unsafe-place-local-set! cell.2$5 #f) (unsafe-place-local-set! cell.3$2 #f) - (unsafe-end-breakable-atomic)))) + (begin-unsafe (unsafe-end-breakable-atomic))))) (procz4 (lambda (exn_0) (if (continuation-mark-set-first #f exited-key) @@ -3851,7 +3876,7 @@ (procz3 (lambda () (begin - (unsafe-start-breakable-atomic) + (begin-unsafe (unsafe-start-breakable-atomic)) (unsafe-place-local-set! cell.1$10 (current-thread))))) (procz2 (lambda () @@ -3859,11 +3884,11 @@ (unsafe-place-local-set! cell.4$2 (sub1 (unsafe-place-local-ref cell.4$2))) - (unsafe-end-breakable-atomic)))) + (begin-unsafe (unsafe-end-breakable-atomic))))) (procz1 (lambda () (begin - (unsafe-start-breakable-atomic) + (begin-unsafe (unsafe-start-breakable-atomic)) (unsafe-place-local-set! cell.4$2 (add1 (unsafe-place-local-ref cell.4$2))))))) @@ -3934,7 +3959,7 @@ (begin (unsafe-place-local-set! cell.1$10 #f) (unsafe-place-local-set! cell.4$2 0) - (unsafe-end-breakable-atomic) + (begin-unsafe (unsafe-end-breakable-atomic)) (letrec* ((loop_0 (|#%name| @@ -3944,13 +3969,14 @@ (if (zero? i_0) (void) (begin - (unsafe-end-breakable-atomic) + (begin-unsafe + (unsafe-end-breakable-atomic)) (loop_0 (sub1 i_0))))))))) (loop_0 extra-depth_0)))) f_0 (lambda () (begin - (unsafe-start-breakable-atomic) + (begin-unsafe (unsafe-start-breakable-atomic)) (unsafe-place-local-set! cell.2$5 paramz_0) (unsafe-place-local-set! cell.3$2 break-paramz_0) (letrec* @@ -3962,7 +3988,8 @@ (if (zero? i_0) (void) (begin - (unsafe-start-breakable-atomic) + (begin-unsafe + (unsafe-start-breakable-atomic)) (loop_0 (sub1 i_0))))))))) (loop_0 extra-depth_0)) (unsafe-place-local-set! cell.4$2 extra-depth_0) @@ -4955,8 +4982,9 @@ or-part_0 (let ((or-part_1 (let ((v_1 (caddr pkg_0))) - (exact-nonnegative-integer? - v_1)))) + (begin-unsafe + (exact-nonnegative-integer? + v_1))))) (if or-part_1 or-part_1 (let ((or-part_2 @@ -5004,7 +5032,7 @@ (define planet-version-number? (lambda (v_0) (exact-nonnegative-integer? v_0))) (define planet-version-minor-spec? (lambda (v_0) - (let ((or-part_0 (exact-nonnegative-integer? v_0))) + (let ((or-part_0 (begin-unsafe (exact-nonnegative-integer? v_0)))) (if or-part_0 or-part_0 (if (pair? v_0) @@ -5014,9 +5042,12 @@ (if (if (eq? tmp_0 '=) #t (if (eq? tmp_0 '+) #t (eq? tmp_0 '-))) - (let ((v_1 (cadr v_0))) (exact-nonnegative-integer? v_1)) - (if (let ((v_1 (car v_0))) (exact-nonnegative-integer? v_1)) - (let ((v_1 (cadr v_0))) (exact-nonnegative-integer? v_1)) + (let ((v_1 (cadr v_0))) + (begin-unsafe (exact-nonnegative-integer? v_1))) + (if (let ((v_1 (car v_0))) + (begin-unsafe (exact-nonnegative-integer? v_1))) + (let ((v_1 (cadr v_0))) + (begin-unsafe (exact-nonnegative-integer? v_1))) #f))) #f) #f) @@ -5883,7 +5914,7 @@ root-mod-path_0)))))) (define struct:module-path-index (make-record-type-descriptor* 'module-path-index #f #f #f #f 4 15)) -(define effect_1824 +(define effect_2717 (struct-type-install-properties! struct:module-path-index 'module-path-index @@ -5927,7 +5958,7 @@ (lambda (r_0 port_0 mode_0) (begin (write-string "#_0 v_0) (begin v_0)))))) + (begin + (if (syntax?$1 v_0) + (s->_0 v_0) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -9951,18 +9992,18 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((x_0 (let ((app_0 (loop_0 #f (car s_0) depth_0))) (cons app_0 (loop_0 1 (cdr s_0) depth_0))))) - (begin x_0)) + (begin-unsafe (begin x_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -9986,7 +10027,8 @@ s-> (lambda (sub-s_0) (begin - (if (let ((v_0 (syntax-tamper sub-s_0))) (symbol? v_0)) + (if (let ((v_0 (syntax-tamper sub-s_0))) + (begin-unsafe (symbol? v_0))) sub-s_0 (let ((t_0 (tamper-tainted-for-content @@ -10035,19 +10077,20 @@ (define syntax-tainted?$1 (|#%name| syntax-tainted? - (lambda (s_0) (begin (let ((v_0 (syntax-tamper s_0))) (symbol? v_0)))))) + (lambda (s_0) + (begin (let ((v_0 (syntax-tamper s_0))) (begin-unsafe (symbol? v_0))))))) (define syntax-clean? - (lambda (s_0) (let ((v_0 (syntax-tamper s_0))) (not v_0)))) + (lambda (s_0) (let ((v_0 (syntax-tamper s_0))) (begin-unsafe (not v_0))))) (define syntax-arm$1 (|#%name| syntax-arm (lambda (s_0 insp_0) (begin (let ((t_0 (syntax-tamper s_0))) - (if (symbol? t_0) + (if (begin-unsafe (symbol? t_0)) s_0 (if (if t_0 - (let ((or-part_0 (hash-ref t_0 insp_0 #f))) + (let ((or-part_0 (begin-unsafe (hash-ref t_0 insp_0 #f)))) (if or-part_0 or-part_0 (begin @@ -10088,7 +10131,7 @@ s_0 (let ((t_1 (let ((s_1 (if t_0 (remove-inferior t_0 insp_0) (seteq)))) - (hash-set s_1 insp_0 #t)))) + (begin-unsafe (hash-set s_1 insp_0 #t))))) (let ((content*_0 (syntax-content* s_0))) (let ((content_0 (if (modified-content? content*_0) @@ -10168,7 +10211,7 @@ (lambda (s2_0 insp1_0) (begin (let ((t_0 (syntax-tamper s2_0))) - (if (not (hash? t_0)) + (if (not (begin-unsafe (begin-unsafe (hash? t_0)))) s2_0 (if (not insp1_0) (let ((content*_0 (syntax-content* s2_0))) @@ -10213,7 +10256,8 @@ s2_0))))) (let ((new-t_0 (remove-inferior t_0 insp1_0))) (let ((t_1 - (if (not (zero? (hash-count new-t_0))) + (if (not + (begin-unsafe (zero? (hash-count new-t_0)))) new-t_0 #f))) (let ((content*_0 (syntax-content* s2_0))) @@ -10270,12 +10314,12 @@ (lambda (s_0 from-s_0) (begin (let ((t_0 (syntax-tamper s_0))) - (if (symbol? t_0) + (if (begin-unsafe (symbol? t_0)) s_0 (let ((from-t_0 (syntax-tamper from-s_0))) - (if (not from-t_0) + (if (begin-unsafe (not from-t_0)) s_0 - (if (symbol? from-t_0) + (if (begin-unsafe (symbol? from-t_0)) (let ((t_1 (tamper-tainted-for-content (syntax-content s_0)))) (let ((content*_0 (syntax-content* s_0))) (let ((content_0 @@ -10316,7 +10360,7 @@ 'struct-copy "syntax?" s_0)))))) - (if (not t_0) + (if (begin-unsafe (not t_0)) (let ((content*_0 (syntax-content* s_0))) (let ((content_0 (if (modified-content? content*_0) @@ -10371,10 +10415,11 @@ i_0))) (let ((t_2 (let ((t_2 - (if (hash-ref - t_1 - from-i_0 - #f) + (if (begin-unsafe + (hash-ref + t_1 + from-i_0 + #f)) t_1 (if (any-superior? t_1 @@ -10384,10 +10429,11 @@ (remove-inferior t_1 from-i_0))) - (hash-set - s_1 - from-i_0 - #t)))))) + (begin-unsafe + (hash-set + s_1 + from-i_0 + #t))))))) (values t_2)))) (for-loop_0 t_2 @@ -10444,7 +10490,7 @@ syntax-taint (lambda (s_0) (begin - (if (let ((v_0 (syntax-tamper s_0))) (symbol? v_0)) + (if (let ((v_0 (syntax-tamper s_0))) (begin-unsafe (symbol? v_0))) s_0 (let ((t_0 (tamper-tainted-for-content (syntax-content s_0)))) (let ((content*_0 (syntax-content* s_0))) @@ -10917,7 +10963,7 @@ (define cache-place-init! (lambda () (begin (resolve-cache-place-init!) (sets-place-init!)))) (define struct:scope (make-record-type-descriptor* 'scope #f #f #f #f 3 7)) -(define effect_2867 +(define effect_2612 (struct-type-install-properties! struct:scope 'scope @@ -10952,7 +10998,7 @@ (lambda (s_0 ser-push!_0 state_0) (begin (if (let ((s_1 (serialize-state-reachable-scopes state_0))) - (hash-ref s_1 s_0 #f)) + (begin-unsafe (hash-ref s_1 s_0 #f))) (void) (error "internal error: found supposedly unreachable scope")) (if (eq? s_0 top-level-common-scope) @@ -11004,7 +11050,7 @@ (lambda (s_0 bt_0) (set-scope-binding-table! s_0 bt_0))) (define struct:interned-scope (make-record-type-descriptor* 'interned-scope struct:scope #f #f #f 1 1)) -(define effect_2670 +(define effect_2683 (struct-type-install-properties! struct:interned-scope 'interned-scope @@ -11018,7 +11064,7 @@ (lambda (s_0 ser-push!_0 state_0) (begin (if (let ((s_1 (serialize-state-reachable-scopes state_0))) - (hash-ref s_1 s_0 #f)) + (begin-unsafe (hash-ref s_1 s_0 #f))) (void) (error "internal error: found supposedly unreachable scope")) (|#%app| ser-push!_0 'tag kw2241) @@ -11059,7 +11105,7 @@ (void))) (define struct:multi-scope (make-record-type-descriptor* 'multi-scope #f #f #f #f 5 31)) -(define effect_2965 +(define effect_2089 (struct-type-install-properties! struct:multi-scope 'multi-scope @@ -11129,7 +11175,11 @@ (if (let ((s_0 (serialize-state-reachable-scopes state_0))) - (hash-ref s_0 sc_0 #f)) + (begin-unsafe + (hash-ref + s_0 + sc_0 + #f))) (let ((table_1 (call-with-values (lambda () @@ -11323,7 +11373,7 @@ (define deserialize-representative-scope-fill! (lambda (s_0 bt_0 owner_0) (begin - (set-scope-binding-table! s_0 bt_0) + (begin-unsafe (set-scope-binding-table! s_0 bt_0)) (set-representative-scope-owner! s_0 owner_0)))) (define struct:shifted-multi-scope (make-record-type-descriptor* 'shifted-multi-scope #f #f #f #f 2 3)) @@ -11582,7 +11632,7 @@ (let ((s_0 (representative-scope4.1 (if (let ((scope-id_0 (multi-scope-id ms_0))) - (negative? scope-id_0)) + (begin-unsafe (negative? scope-id_0))) (new-deserialize-scope-id!) (new-scope-id!)) 'module @@ -11628,12 +11678,17 @@ gf (lambda (prop_0 s_0 tail?_0 v_0) (begin - (if (syntax?$1 v_0) (s->_0 prop_0 s_0 v_0) (begin v_0)))))) + (if (syntax?$1 v_0) + (s->_0 prop_0 s_0 v_0) + (begin-unsafe (begin v_0))))))) (gf_1 (|#%name| gf (lambda (tail?_0 v_0) - (begin (if (syntax?$1 v_0) (s->_1 v_0) (begin v_0)))))) + (begin + (if (syntax?$1 v_0) + (s->_1 v_0) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -11641,7 +11696,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_1) - (begin s_1) + (begin-unsafe (begin s_1)) (if (pair? s_1) (let ((x_0 (let ((app_0 @@ -11649,13 +11704,13 @@ (cons app_0 (loop_0 prop_0 s_0 1 (cdr s_1) depth_0))))) - (begin x_0)) + (begin-unsafe (begin x_0))) (if (symbol? s_1) - (begin s_1) + (begin-unsafe (begin s_1)) (if (boolean? s_1) - (begin s_1) + (begin-unsafe (begin s_1)) (if (number? s_1) - (begin s_1) + (begin-unsafe (begin s_1)) (if (let ((or-part_0 (vector? s_1))) (if or-part_0 or-part_0 @@ -11682,18 +11737,18 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((x_0 (let ((app_0 (loop_1 #f (car s_0) depth_0))) (cons app_0 (loop_1 1 (cdr s_0) depth_0))))) - (begin x_0)) + (begin-unsafe (begin x_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -11838,7 +11893,7 @@ (if (let ((or-part_0 (propagation? prop_0))) (if or-part_0 or-part_0 - (eq? prop_0 'tainted/need-propagate))) + (begin-unsafe (eq? prop_0 'tainted/need-propagate)))) (let ((content_0 (modified-content-content content*_0))) (let ((new-content_0 (if (propagation? prop_0) @@ -11856,7 +11911,12 @@ (if new-tamper_0 (modified-content1.1 new-content_0 new-tamper_0) new-content_0))) - (if (unsafe-struct*-cas! s_0 0 content*_0 new-content*_0) + (if (begin-unsafe + (unsafe-struct*-cas! + s_0 + 0 + content*_0 + new-content*_0)) new-content*_0 (syntax-propagated-content* s_0)))))) content*_0))))))) @@ -11880,7 +11940,7 @@ (let ((prop_0 (modified-content-scope-propagations+tamper content*_0))) - (if (not (hash? prop_0)) + (if (not (begin-unsafe (begin-unsafe (hash? prop_0)))) content_0 (if (datum-has-elements? content_0) (taint-content content_0) @@ -11909,7 +11969,7 @@ (syntax-shifted-multi-scopes s_0) (lambda (smss_0) (let ((s_1 (fallback-first smss_0))) - (hash-set s_1 sc_2 #t)))))) + (begin-unsafe (hash-set s_1 sc_2 #t))))))) (let ((content*48_0 (if (datum-has-elements? content_0) (let ((prop_0 @@ -11950,7 +12010,7 @@ (if (syntax?$1 s_0) (let ((scopes49_0 (let ((s_1 (syntax-scopes s_0))) - (hash-set s_1 sc_2 #t)))) + (begin-unsafe (hash-set s_1 sc_2 #t))))) (let ((content*50_0 (if (datum-has-elements? content_0) (let ((prop_0 @@ -12021,7 +12081,7 @@ (syntax-shifted-multi-scopes s_0) (lambda (smss_0) (let ((s_1 (fallback-first smss_0))) - (hash-remove s_1 sc_2)))))) + (begin-unsafe (hash-remove s_1 sc_2))))))) (let ((content*52_0 (if (datum-has-elements? content_0) (let ((prop_0 @@ -12062,7 +12122,7 @@ (if (syntax?$1 s_0) (let ((scopes53_0 (let ((s_1 (syntax-scopes s_0))) - (hash-remove s_1 sc_2)))) + (begin-unsafe (hash-remove s_1 sc_2))))) (let ((content*54_0 (if (datum-has-elements? content_0) (let ((prop_0 @@ -12118,7 +12178,9 @@ (for-loop_0 s_0 scs_0))))) (define set-flip (lambda (s_0 e_0) - (if (hash-ref s_0 e_0 #f) (hash-remove s_0 e_0) (hash-set s_0 e_0 #t)))) + (if (begin-unsafe (hash-ref s_0 e_0 #f)) + (begin-unsafe (hash-remove s_0 e_0)) + (begin-unsafe (hash-set s_0 e_0 #t))))) (define flip-scope (lambda (s_0 sc_0) (let ((sc_1 (generalize-scope sc_0))) @@ -12274,7 +12336,7 @@ sms_0 smss/maybe-fallbacks59_0 (syntax-e/no-taint v_0))) - (begin v_0)))))) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -12302,7 +12364,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((x_0 (let ((app_0 @@ -12324,13 +12386,13 @@ 1 (cdr s_0) depth_0))))) - (begin x_0)) + (begin-unsafe (begin x_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -12377,12 +12439,12 @@ (let ((r_0 (let ((smss_0 (fallback-first smss/maybe-fallbacks_0))) - (if (zero? (hash-count smss_0)) - (hash-set smss_0 sms_0 #t) - (if (hash-ref smss_0 sms_0 #f) + (if (begin-unsafe (zero? (hash-count smss_0))) + (begin-unsafe (hash-set smss_0 sms_0 #t)) + (if (begin-unsafe (hash-ref smss_0 sms_0 #f)) smss/maybe-fallbacks_0 (fallback-push - (hash-set smss_0 sms_0 #t) + (begin-unsafe (hash-set smss_0 sms_0 #t)) smss/maybe-fallbacks_0)))))) (begin (unsafe-set-box*! @@ -12624,9 +12686,11 @@ (if (not (shifted-multi-scope? sc_0)) (let ((scs_2 (if (eq? op_0 'add) - (hash-set scs_1 sc_0 #t) + (begin-unsafe + (hash-set scs_1 sc_0 #t)) (if (eq? op_0 'remove) - (hash-remove scs_1 sc_0) + (begin-unsafe + (hash-remove scs_1 sc_0)) (set-flip scs_1 sc_0))))) (values scs_2)) scs_1))) @@ -12671,9 +12735,13 @@ smss_1 (lambda (smss_2) (if (eq? op_0 'add) - (hash-set smss_2 sms_0 #t) + (begin-unsafe + (hash-set smss_2 sms_0 #t)) (if (eq? op_0 'remove) - (hash-remove smss_2 sms_0) + (begin-unsafe + (hash-remove + smss_2 + sms_0)) (set-flip smss_2 sms_0))))))) @@ -12690,8 +12758,10 @@ smss_0 (unsafe-immutable-hash-iterate-first ht_0))))))) (let ((parent-smss_0 (syntax-shifted-multi-scopes parent-s_0))) - (if (if (hash? new-smss_0) - (if (hash? parent-smss_0) (set=? new-smss_0 parent-smss_0) #f) + (if (if (begin-unsafe (hash? new-smss_0)) + (if (begin-unsafe (hash? parent-smss_0)) + (set=? new-smss_0 parent-smss_0) + #f) #f) parent-smss_0 (cache-or-reuse-hash new-smss_0))))))) @@ -12725,7 +12795,8 @@ (define propagation-merge (lambda (content_0 prop_0 base-prop_0 prev-scs_0 prev-smss_0 prev-mss_0) (if (not (datum-has-elements? content_0)) - (if (let ((v_0 (propagation-tamper prop_0))) (symbol? v_0)) + (if (let ((v_0 (propagation-tamper prop_0))) + (begin-unsafe (symbol? v_0))) 'tainted base-prop_0) (if (not (propagation? base-prop_0)) @@ -12747,7 +12818,8 @@ prev-mss_0 app_1 app_2 - (if (let ((v_0 (propagation-tamper prop_0))) (symbol? v_0)) + (if (let ((v_0 (propagation-tamper prop_0))) + (begin-unsafe (symbol? v_0))) 'tainted/need-propagate base-prop_0)))))) (let ((new-ops_0 @@ -12817,11 +12889,11 @@ (let ((new-tamper_0 (if (let ((or-part_0 (let ((v_0 (propagation-tamper prop_0))) - (symbol? v_0)))) + (begin-unsafe (symbol? v_0))))) (if or-part_0 or-part_0 (let ((v_0 (propagation-tamper base-prop_0))) - (symbol? v_0)))) + (begin-unsafe (symbol? v_0))))) 'tainted/need-propagate (propagation-tamper base-prop_0)))) (if (if (zero? (hash-count new-ops_0)) @@ -12866,9 +12938,9 @@ base-prop_0))))))))))) (define shift-multi-scope (lambda (sms_0 delta_0) - (if (eq? delta_0 0) + (if (begin-unsafe (eq? delta_0 0)) sms_0 - (if (not delta_0) + (if (begin-unsafe (not delta_0)) (if (shifted-to-label-phase? (shifted-multi-scope-phase sms_0)) #f (let ((app_0 @@ -12929,7 +13001,7 @@ prev-result_0 smss73_0 (syntax-e/no-taint v_0))) - (begin v_0)))))) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -12950,7 +13022,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((d_0 (let ((app_0 @@ -12972,13 +13044,13 @@ 1 (cdr s_0) depth_0))))) - (begin d_0)) + (begin-unsafe (begin d_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -13178,7 +13250,7 @@ src-scs_0 src-smss_0 (syntax-e/no-taint v_0))) - (begin v_0)))))) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -13225,7 +13297,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((d_0 (let ((app_0 @@ -13257,13 +13329,13 @@ 1 (cdr s_0) depth_0))))) - (begin d_0)) + (begin-unsafe (begin d_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -13313,7 +13385,8 @@ (if (eq? (unsafe-unbox* scs76_0) scs_0) (unsafe-unbox* prev-result_0) (let ((r_0 - (if (hash-keys-subset? src-scs_0 scs_0) + (if (begin-unsafe + (hash-keys-subset? src-scs_0 scs_0)) (set-union (set-subtract scs_0 src-scs_0) dest-scs_0) @@ -13333,7 +13406,8 @@ (fallback-update-first smss_0 (lambda (smss_1) - (if (hash-keys-subset? src-smss_0 smss_1) + (if (begin-unsafe + (hash-keys-subset? src-smss_0 smss_1)) (set-union (set-subtract smss_1 src-smss_0) dest-smss_0) @@ -13475,7 +13549,7 @@ (if i_0 (let ((sms_0 (unsafe-immutable-hash-iterate-key smss_0 i_0))) (let ((scopes_1 - (if (let ((or-part_0 (not phase_0))) + (if (let ((or-part_0 (begin-unsafe (not phase_0)))) (if or-part_0 or-part_0 (not @@ -13496,7 +13570,8 @@ (shifted-to-label-phase-from ph_0) (phase- ph_0 phase_0))))))) - (hash-set scopes_0 e_0 #t)))) + (begin-unsafe + (hash-set scopes_0 e_0 #t))))) (values scopes_1)) scopes_0))) (for-loop_0 @@ -13509,7 +13584,7 @@ (define find-max-scope (lambda (scopes_0) (begin - (if (zero? (hash-count scopes_0)) + (if (begin-unsafe (zero? (hash-count scopes_0))) (error "cannot bind in empty scope set") (void)) (begin @@ -13524,8 +13599,9 @@ (unsafe-immutable-hash-iterate-key scopes_0 i_0))) (let ((max-sc_1 (let ((max-sc_1 - (if (let ((app_0 (scope-id sc_0))) - (> app_0 (scope-id max-sc_0))) + (if (begin-unsafe + (let ((app_0 (scope-id sc_0))) + (> app_0 (scope-id max-sc_0)))) sc_0 max-sc_0))) (values max-sc_1)))) @@ -13717,9 +13793,10 @@ #f))) (if b-info_0 (|#%app| - (bulk-binding-class-create - (bulk-binding-ref - bulk_0)) + (begin-unsafe + (bulk-binding-class-create + (bulk-binding-ref + bulk_0))) bulk_0 b-info_0 sym_0) @@ -13733,9 +13810,10 @@ (lambda () (if (if b-scopes_1 (if binding_0 - (hash-keys-subset? - b-scopes_1 - scopes_0) + (begin-unsafe + (hash-keys-subset? + b-scopes_1 + scopes_0)) #f) #f) (call-with-values @@ -13760,9 +13838,10 @@ lst_0))) (let ((result_1 (let ((result_1 - (hash-keys-subset? - amb-scopes_0 - b-scopes_1))) + (begin-unsafe + (hash-keys-subset? + amb-scopes_0 + b-scopes_1)))) (values result_1)))) (if (if (not @@ -13794,15 +13873,17 @@ (values b-scopes_1 binding_0) - (if (hash-keys-subset? - b-scopes_1 - best-scopes_1) + (if (begin-unsafe + (hash-keys-subset? + b-scopes_1 + best-scopes_1)) (values best-scopes_1 best-binding_1) - (if (hash-keys-subset? - best-scopes_1 - b-scopes_1) + (if (begin-unsafe + (hash-keys-subset? + best-scopes_1 + b-scopes_1)) (values b-scopes_1 binding_0) @@ -13899,10 +13980,13 @@ (if (let ((or-part_0 (not exactly?25_0))) (if or-part_0 or-part_0 - (let ((app_0 (hash-count scopes_0))) + (let ((app_0 + (begin-unsafe + (hash-count scopes_0)))) (eqv? app_0 - (hash-count best-scopes_0))))) + (begin-unsafe + (hash-count best-scopes_0)))))) (if get-scopes?26_0 best-scopes_0 best-binding_0) @@ -14186,7 +14270,7 @@ (lambda (b_0) (if (if (module-binding? b_0) (let ((mpi_0 (module-binding-module b_0))) - (eq? top-level-module-path-index mpi_0)) + (begin-unsafe (eq? top-level-module-path-index mpi_0))) #f) (module-binding-sym b_0) b_0))) @@ -14257,7 +14341,7 @@ phase3_0))) (if (module-binding? b_0) (if (let ((mpi_0 (module-binding-module b_0))) - (eq? top-level-module-path-index mpi_0)) + (begin-unsafe (eq? top-level-module-path-index mpi_0))) (if top-level-symbol?1_0 (list (module-binding-nominal-sym b_0)) #f) @@ -15621,18 +15705,19 @@ (all-scopes-stx_1 all-scopes-stx_0) (top-level-bind-scope_1 top-level-bind-scope_0)) - (root-expand-context/outer1.1 - (root-expand-context/inner2.1 - self-mpi3_0 - module-scopes_0 - top-level-bind-scope_1 - all-scopes-stx_1 - defined-syms_1 - counter_1 - lift-key_0) - post-expansion-scope_0 - use-site-scopes_1 - frame-id_1)))))))))))))))) + (begin-unsafe + (root-expand-context/outer1.1 + (root-expand-context/inner2.1 + self-mpi3_0 + module-scopes_0 + top-level-bind-scope_1 + all-scopes-stx_1 + defined-syms_1 + counter_1 + lift-key_0) + post-expansion-scope_0 + use-site-scopes_1 + frame-id_1))))))))))))))))) (define apply-post-expansion (lambda (pe_0 s_0) (if (not pe_0) @@ -15662,16 +15747,18 @@ (let ((app_0 (add-scopes empty-syntax - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner ctx_0)))))) (let ((app_1 (apply-post-expansion - (root-expand-context/outer-post-expansion ctx_0) + (begin-unsafe (root-expand-context/outer-post-expansion ctx_0)) empty-syntax))) (let ((app_2 (let ((temp18_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner ctx_0))))) (syntax-module-path-index-shift.1 #f temp18_0 @@ -15681,11 +15768,14 @@ (let ((app_3 (add-scopes empty-syntax - (unbox (root-expand-context/outer-use-site-scopes ctx_0))))) + (unbox + (begin-unsafe + (root-expand-context/outer-use-site-scopes ctx_0)))))) (let ((app_4 (let ((ht_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner ctx_0))))) (begin (letrec* ((for-loop_0 @@ -15724,7 +15814,9 @@ args)))) table_0)))))) (for-loop_0 hash2589 (hash-iterate-first ht_0))))))) - (let ((app_5 (root-expand-context/outer-frame-id ctx_0))) + (let ((app_5 + (begin-unsafe + (root-expand-context/outer-frame-id ctx_0)))) (vector app_0 app_1 @@ -15733,8 +15825,9 @@ app_4 app_5 (unbox - (root-expand-context/inner-counter - (root-expand-context/outer-inner ctx_0))))))))))))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner ctx_0)))))))))))))) (define root-expand-context-decode-for-module (lambda (vec-s_0 self_0) (let ((vec_0 (if (syntax?$1 vec-s_0) (syntax-e$1 vec-s_0) #f))) @@ -15769,7 +15862,7 @@ (cons app_0 (let ((stx_0 (vector-ref vec_0 1))) - (syntax-mpi-shifts stx_0)))))) + (begin-unsafe (syntax-mpi-shifts stx_0))))))) (let ((top-level-bind-scope_0 (new-scope 'module))) (let ((all-scopes-stx_0 (vector-ref vec_0 2))) (let ((use-site-scopes_0 @@ -15788,18 +15881,19 @@ (top-level-bind-scope_1 top-level-bind-scope_0) (post-expansion_1 post-expansion_0) (module-scopes_1 module-scopes_0)) - (root-expand-context/outer1.1 - (root-expand-context/inner2.1 - self_0 - module-scopes_1 - top-level-bind-scope_1 - all-scopes-stx_1 - defined-syms_1 - counter_1 - lift-key_0) - post-expansion_1 - use-site-scopes_1 - frame-id_1))))))))))))))) + (begin-unsafe + (root-expand-context/outer1.1 + (root-expand-context/inner2.1 + self_0 + module-scopes_1 + top-level-bind-scope_1 + all-scopes-stx_1 + defined-syms_1 + counter_1 + lift-key_0) + post-expansion_1 + use-site-scopes_1 + frame-id_1)))))))))))))))) (define defined-syms-hash? (lambda (v_0) (begin @@ -15885,7 +15979,10 @@ (define syntax-with-one-scope? (lambda (stx_0) (if (syntax?$1 stx_0) - (= 1 (let ((s_0 (syntax-scope-set stx_0 0))) (hash-count s_0))) + (= + 1 + (let ((s_0 (syntax-scope-set stx_0 0))) + (begin-unsafe (hash-count s_0)))) #f))) (define extract-scope (lambda (stx_0) @@ -16140,7 +16237,7 @@ (loop_0 lock-box_0 proc_0))))) (define struct:namespace (make-record-type-descriptor* 'namespace #f #f #f #f 15 32767)) -(define effect_2336 +(define effect_2453 (struct-type-install-properties! struct:namespace 'namespace @@ -16160,10 +16257,10 @@ (let ((0-phase_0 (namespace-0-phase ns_0))) (let ((phase-level_0 (phase- (namespace-phase ns_0) 0-phase_0))) (begin - (if (eq? phase-level_0 0) + (if (begin-unsafe (eq? phase-level_0 0)) (void) (fprintf port_0 ":~s" phase-level_0)) - (if (eq? 0-phase_0 0) + (if (begin-unsafe (eq? 0-phase_0 0)) (void) (fprintf port_0 @@ -16386,9 +16483,10 @@ (begin (if register?4_0 (let ((small-ht_0 (namespace-phase-to-namespace ns_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) phase_0 ns_0))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) phase_0 ns_0)))) (void)) ns_0)))))))) (define 1/current-namespace @@ -16409,20 +16507,24 @@ (define namespace-self-mpi (lambda (ns_0) (let ((v_0 (namespace-get-root-expand-ctx ns_0))) - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner v_0))))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner v_0)))))) (define namespace-self-mpi/no-top-level (lambda (ns_0) (let ((mpi_0 (let ((v_0 (namespace-get-root-expand-ctx ns_0))) - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner v_0))))) - (if (if mpi_0 (eq? top-level-module-path-index mpi_0) #f) #f mpi_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner v_0)))))) + (if (if mpi_0 (begin-unsafe (eq? top-level-module-path-index mpi_0)) #f) + #f + mpi_0)))) (define namespace->module (lambda (ns_0 name_0) (let ((or-part_0 (let ((small-ht_0 (namespace-submodule-declarations ns_0))) - (hash-ref (unbox small-ht_0) name_0 #f)))) + (begin-unsafe (hash-ref (unbox small-ht_0) name_0 #f))))) (if or-part_0 or-part_0 (hash-ref @@ -16433,7 +16535,7 @@ (lambda (ns_0 phase_0) (let ((or-part_0 (let ((small-ht_0 (namespace-phase-to-namespace ns_0))) - (hash-ref (unbox small-ht_0) phase_0 #f)))) + (begin-unsafe (hash-ref (unbox small-ht_0) phase_0 #f))))) (if or-part_0 or-part_0 (let ((p-ns_0 @@ -16485,9 +16587,10 @@ (raise-argument-error 'struct-copy "namespace?" ns_0)))) (begin (let ((small-ht_0 (namespace-phase-to-namespace ns_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) phase_0 p-ns_0))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) phase_0 p-ns_0)))) p-ns_0)))))) (define namespace->name (lambda (ns_0) @@ -16512,7 +16615,7 @@ (lambda (ns_0 phase-level_0) (let ((d_0 (let ((small-ht_0 (namespace-phase-level-to-definitions ns_0))) - (hash-ref (unbox small-ht_0) phase-level_0 #f)))) + (begin-unsafe (hash-ref (unbox small-ht_0) phase-level_0 #f))))) (if d_0 d_0 (let ((p-ns_0 @@ -16524,9 +16627,10 @@ (definitions2.1 app_0 (make-hasheq))))) (begin (let ((small-ht_0 (namespace-phase-level-to-definitions ns_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) phase-level_0 d_1))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) phase-level_0 d_1)))) d_1))))))) (define namespace-set-variable! (let ((namespace-set-variable!_0 @@ -16586,11 +16690,11 @@ (lambda (a-ns_0 b-ns_0) (let ((app_0 (let ((small-ht_0 (namespace-phase-level-to-definitions a-ns_0))) - (hash-ref (unbox small-ht_0) 0 'no-a)))) + (begin-unsafe (hash-ref (unbox small-ht_0) 0 'no-a))))) (eq? app_0 (let ((small-ht_0 (namespace-phase-level-to-definitions b-ns_0))) - (hash-ref (unbox small-ht_0) 0 'no-b)))))) + (begin-unsafe (hash-ref (unbox small-ht_0) 0 'no-b))))))) (define original-property-sym (gensym 'original)) (define syntax->list$1 (letrec ((loop_0 @@ -17903,7 +18007,8 @@ the-struct_0))))) (begin (let ((small-ht_0 (namespace-phase-to-namespace m-ns_0))) - (set-box! small-ht_0 (hash-set (unbox small-ht_0) 0 m-ns_0))) + (begin-unsafe + (set-box! small-ht_0 (hash-set (unbox small-ht_0) 0 m-ns_0)))) (let ((at-phase_0 (make-hasheq))) (begin (hash-set! (namespace-module-instances m-ns_0) 0 at-phase_0) @@ -17946,9 +18051,10 @@ mod-name53_0 m52_0) (let ((small-ht_0 (namespace-submodule-declarations ns51_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) mod-name53_0 m52_0)))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) mod-name53_0 m52_0))))) (if with-submodules?49_0 (begin (let ((bulk-binding-registry_0 @@ -17957,10 +18063,12 @@ (let ((provides_0 (module-provides m52_0))) (let ((self_1 self_0) (bulk-binding-registry_1 bulk-binding-registry_0)) - (hash-set! - (bulk-binding-registry-table bulk-binding-registry_1) - mod-name53_0 - (bulk-provide13.1 self_1 provides_0)))))) + (begin-unsafe + (hash-set! + (bulk-binding-registry-table + bulk-binding-registry_1) + mod-name53_0 + (bulk-provide13.1 self_1 provides_0))))))) (|#%app| (|#%app| 1/current-module-name-resolver) mod-name53_0 @@ -17975,11 +18083,13 @@ (eq? 'started (let ((key_0 (add1 phase_0))) - (hash-ref (unbox states_0) key_0 #f))))) + (begin-unsafe + (hash-ref (unbox states_0) key_0 #f)))))) (let ((run?_0 (eq? 'started - (hash-ref (unbox states_0) phase_0 #f)))) + (begin-unsafe + (hash-ref (unbox states_0) phase_0 #f))))) (let ((at-phase_0 (hash-ref (namespace-module-instances ns51_0) @@ -18171,25 +18281,29 @@ (if (module-cross-phase-persistent? m_0) (begin (let ((small-ht_0 (namespace-phase-to-namespace m-ns_0))) - (set-box! small-ht_0 (hash-set (unbox small-ht_0) 0 m-ns_0))) + (begin-unsafe + (set-box! small-ht_0 (hash-set (unbox small-ht_0) 0 m-ns_0)))) (let ((small-ht_0 (namespace-phase-level-to-definitions m-ns_0))) (let ((val_0 (namespace->definitions existing-m-ns_0 0))) (let ((small-ht_1 small-ht_0)) - (set-box! - small-ht_1 - (hash-set (unbox small-ht_1) 0 val_0))))) + (begin-unsafe + (set-box! + small-ht_1 + (hash-set (unbox small-ht_1) 0 val_0)))))) (let ((small-ht_0 (namespace-phase-to-namespace m-ns_0))) (let ((val_0 (namespace->namespace-at-phase m-ns_0 1))) (let ((small-ht_1 small-ht_0)) - (set-box! - small-ht_1 - (hash-set (unbox small-ht_1) 1 val_0))))) + (begin-unsafe + (set-box! + small-ht_1 + (hash-set (unbox small-ht_1) 1 val_0)))))) (let ((small-ht_0 (namespace-phase-level-to-definitions m-ns_0))) (let ((val_0 (namespace->definitions existing-m-ns_0 1))) (let ((small-ht_1 small-ht_0)) - (set-box! - small-ht_1 - (hash-set (unbox small-ht_1) 1 val_0))))) + (begin-unsafe + (set-box! + small-ht_1 + (hash-set (unbox small-ht_1) 1 val_0)))))) (hash-set! (namespace-module-instances (let ((or-part_0 (namespace-root-namespace ns_0))) @@ -18197,28 +18311,32 @@ name_0 mi_0) (let ((small-ht_0 (module-instance-phase-level-to-state mi_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) 0 'started)))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) 0 'started))))) (begin (let ((small-ht_0 (namespace-phase-to-namespace m-ns_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) 0-phase_0 m-ns_0))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) 0-phase_0 m-ns_0)))) (begin (let ((small-ht_0 (namespace-phase-level-to-definitions m-ns_0))) (let ((val_0 (namespace->definitions existing-m-ns_0 0))) (let ((small-ht_1 small-ht_0)) - (set-box! - small-ht_1 - (hash-set (unbox small-ht_1) 0 val_0))))) + (begin-unsafe + (set-box! + small-ht_1 + (hash-set (unbox small-ht_1) 0 val_0)))))) (begin (let ((small-ht_0 (module-instance-phase-level-to-state mi_0))) - (set-box! - small-ht_0 - (hash-set (unbox small-ht_0) 0 'started))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) 0 'started)))) (let ((at-phase_0 (let ((or-part_0 (hash-ref @@ -18289,7 +18407,10 @@ (raise-argument-error 'struct-copy "namespace?" ns_0)))) (begin (let ((small-ht_0 (namespace-phase-to-namespace m-ns_0))) - (set-box! small-ht_0 (hash-set (unbox small-ht_0) 0-phase_0 m-ns_0))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set (unbox small-ht_0) 0-phase_0 m-ns_0)))) (let ((mi_0 (make-module-instance m-ns_0 m_0))) (begin (if (module-cross-phase-persistent? m_0) @@ -18322,7 +18443,7 @@ (let ((small-ht_0 (module-instance-phase-level-to-state mi_0))) (let ((key_0 (add1 check-available-at-phase-level_0))) (let ((small-ht_1 small-ht_0)) - (hash-ref (unbox small-ht_1) key_0 #f))))) + (begin-unsafe (hash-ref (unbox small-ht_1) key_0 #f)))))) #f) #f) (|#%app| unavailable-callback_0 mi_0) @@ -18419,11 +18540,12 @@ (begin (if m_0 (void) - (raise-arguments-error - 'instantiate - "unknown module" - "module name" - (module-name->error-string name_0))) + (begin-unsafe + (raise-arguments-error + 'instantiate + "unknown module" + "module name" + (module-name->error-string name_0)))) (if (module-cross-phase-persistent? m_0) (instantiate!_0 m_0 @@ -18513,10 +18635,11 @@ (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (hash-ref - (unbox small-ht_0) - run-phase-level_0 - #f)))) + (begin-unsafe + (hash-ref + (unbox small-ht_0) + run-phase-level_0 + #f))))) (let ((or-part_0 (not otherwise-available?103_0))) (if or-part_0 or-part_0 @@ -18689,7 +18812,7 @@ (values))))))) (for-loop_0 lst_0)))) (void) - (if (not instance-phase_0) + (if (begin-unsafe (not instance-phase_0)) (void) (begin (let ((start_0 (module-max-phase-level m_0))) @@ -18720,23 +18843,25 @@ (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (hash-ref - (unbox - small-ht_0) - pos_0 - #f))) + (begin-unsafe + (hash-ref + (unbox + small-ht_0) + pos_0 + #f)))) (void) (begin (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (set-box! - small-ht_0 - (hash-set - (unbox - small-ht_0) - pos_0 - 'started))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set + (unbox + small-ht_0) + pos_0 + 'started)))) (begin (void (namespace->definitions @@ -18784,11 +18909,12 @@ (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (hash-ref - (unbox - small-ht_0) - pos_0 - #f))) + (begin-unsafe + (hash-ref + (unbox + small-ht_0) + pos_0 + #f)))) #f) #f) (begin @@ -18802,24 +18928,26 @@ l_0)))) (let ((ht_1 ht_0)) - (do-hash-update - 'hash-update! - #t - hash-set! - ht_1 - phase_0 - xform_0 - null)))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_1 + phase_0 + xform_0 + null))))) (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (set-box! - small-ht_0 - (hash-set - (unbox - small-ht_0) - pos_0 - 'available)))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set + (unbox + small-ht_0) + pos_0 + 'available))))) (void)))) (for-loop_0 (+ pos_0 -1))) (values))))))) @@ -18835,12 +18963,13 @@ (let ((small-ht_0 (module-instance-phase-level-to-state mi111_0))) - (set-box! - small-ht_0 - (hash-set - (unbox small-ht_0) - run-phase-level_0 - 'started))))))))))))) + (begin-unsafe + (set-box! + small-ht_0 + (hash-set + (unbox small-ht_0) + run-phase-level_0 + 'started)))))))))))))) (if log-performance? (end-performance-region) (void)))))))) (define namespace-visit-available-modules! (let ((namespace-visit-available-modules!_0 @@ -18957,7 +19086,8 @@ (namespace-phase-level-to-definitions m-ns_0))) (let ((key_0 (module-use-phase mu125_0))) (let ((small-ht_1 small-ht_0)) - (hash-ref (unbox small-ht_1) key_0 #f)))))) + (begin-unsafe + (hash-ref (unbox small-ht_1) key_0 #f))))))) (if d_0 (values mi_0 (definitions-variables d_0)) (let ((app_0 @@ -18974,7 +19104,8 @@ app_1 (let ((small-ht_0 (namespace-phase-level-to-definitions m-ns_0))) - (hash-keys (unbox small-ht_0))))))))))))))) + (begin-unsafe + (hash-keys (unbox small-ht_0)))))))))))))))) (define unresolve-requires (lambda (requires_0) (reverse$1 @@ -19277,7 +19408,8 @@ (if (if (module-binding? b_0) (not (let ((mpi_0 (module-binding-module b_0))) - (eq? top-level-module-path-index mpi_0))) + (begin-unsafe + (eq? top-level-module-path-index mpi_0)))) #f) (let ((mi_0 (binding->module-instance @@ -19656,7 +19788,7 @@ (if (module-binding? b38_0) (let ((top-level?_0 (let ((mpi_0 (module-binding-module b38_0))) - (eq? top-level-module-path-index mpi_0)))) + (begin-unsafe (eq? top-level-module-path-index mpi_0))))) (let ((mi_0 (if (not top-level?_0) (binding->module-instance b38_0 ns41_0 phase42_0 id43_0) @@ -19700,7 +19832,7 @@ (if (local-binding? b38_0) (let ((t_0 (let ((key_0 (local-binding-key b38_0))) - (hash-ref env39_0 key_0 missing)))) + (begin-unsafe (hash-ref env39_0 key_0 missing))))) (if (eq? t_0 missing) (values (let ((or-part_0 @@ -19723,10 +19855,11 @@ (local-binding-key b38_0))) (let ((env_1 env_0)) - (hash-ref - env_1 - key_0 - #f)))))) + (begin-unsafe + (hash-ref + env_1 + key_0 + #f))))))) (values result_1)))) (if (if (not (let ((x_0 @@ -19800,7 +19933,7 @@ (define free-id-set-empty? (lambda (fs_0) (eq? fs_0 empty-free-id-set))) (define free-id-set-member? (lambda (fs_0 phase_0 given-id_0) - (if (eq? fs_0 empty-free-id-set) + (if (begin-unsafe (eq? fs_0 empty-free-id-set)) #f (let ((lst_0 (hash-ref @@ -20368,39 +20501,51 @@ (begin (let ((root-ctx_0 (namespace-get-root-expand-ctx ns13_0))) (let ((self-mpi_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner root-ctx_0))))) (let ((module-scopes_0 - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner root-ctx_0))))) (let ((post-expansion_0 - (root-expand-context/outer-post-expansion root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-post-expansion root-ctx_0)))) (let ((top-level-bind-scope_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner root-ctx_0))))) (let ((all-scopes-stx_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner root-ctx_0))))) (let ((use-site-scopes_0 - (root-expand-context/outer-use-site-scopes - root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-use-site-scopes + root-ctx_0)))) (let ((defined-syms_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner root-ctx_0))))) (let ((frame-id_0 - (root-expand-context/outer-frame-id root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-frame-id + root-ctx_0)))) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + root-ctx_0))))) (let ((lift-key_0 - (root-expand-context/inner-lift-key - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-lift-key + (root-expand-context/outer-inner + root-ctx_0))))) (let ((phase_0 (namespace-phase ns13_0))) (let ((binding-layer_0 - (root-expand-context/outer-frame-id - root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-frame-id + root-ctx_0)))) (let ((declared-submodule-names_0 hash2610)) (let ((binding-layer_1 binding-layer_0) (phase_1 phase_0) @@ -20415,93 +20560,106 @@ (post-expansion_1 post-expansion_0) (module-scopes_1 module-scopes_0) (self-mpi_1 self-mpi_0)) - (expand-context/outer1.1 - (expand-context/inner2.1 - self-mpi_1 - module-scopes_1 - top-level-bind-scope_1 - all-scopes-stx_1 - defined-syms_1 - counter_1 - lift-key_1 - to-parsed?3_0 - phase_1 - ns13_0 + (begin-unsafe + (expand-context/outer1.1 + (expand-context/inner2.1 + self-mpi_1 + module-scopes_1 + top-level-bind-scope_1 + all-scopes-stx_1 + defined-syms_1 + counter_1 + lift-key_1 + to-parsed?3_0 + phase_1 + ns13_0 + #f + #f + #t + #f + #f + empty-free-id-set + declared-submodule-names_0 + #f + '() + #f + #f + #f + #f + observer6_0 + for-serializable?4_0 + to-correlated-linklet?5_0 + to-correlated-linklet?5_0 + #f + skip-visit-available?7_0) + post-expansion_1 + use-site-scopes_1 + frame-id_1 + 'top-level + empty-env + null + #f + binding-layer_1 + null #f #f - #t - #f - #f - empty-free-id-set - declared-submodule-names_0 - #f - '() - #f - #f - #f - #f - observer6_0 - for-serializable?4_0 - to-correlated-linklet?5_0 - to-correlated-linklet?5_0 - #f - skip-visit-available?7_0) - post-expansion_1 - use-site-scopes_1 - frame-id_1 - 'top-level - empty-env - null - #f - binding-layer_1 - null - #f - #f - null - null - #f)))))))))))))))))))) + null + null + #f))))))))))))))))))))) (define copy-root-expand-context (lambda (ctx_0 root-ctx_0) (if (expand-context/outer? ctx_0) (let ((post-expansion25_0 - (root-expand-context/outer-post-expansion root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-post-expansion root-ctx_0)))) (let ((use-site-scopes26_0 - (root-expand-context/outer-use-site-scopes root-ctx_0))) - (let ((frame-id27_0 (root-expand-context/outer-frame-id root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-use-site-scopes root-ctx_0)))) + (let ((frame-id27_0 + (begin-unsafe + (root-expand-context/outer-frame-id root-ctx_0)))) (let ((binding-layer28_0 - (root-expand-context/outer-frame-id root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-frame-id root-ctx_0)))) (let ((inner29_0 (let ((the-struct_0 (root-expand-context/outer-inner ctx_0))) (if (expand-context/inner? the-struct_0) (let ((self-mpi30_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner + root-ctx_0))))) (let ((module-scopes31_0 - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner + root-ctx_0))))) (let ((top-level-bind-scope32_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner + root-ctx_0))))) (let ((all-scopes-stx33_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner + root-ctx_0))))) (let ((defined-syms34_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner + root-ctx_0))))) (let ((counter35_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + root-ctx_0))))) (let ((lift-key36_0 - (root-expand-context/inner-lift-key - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-lift-key + (root-expand-context/outer-inner + root-ctx_0))))) (let ((counter35_1 counter35_0) (defined-syms34_1 defined-syms34_0) @@ -20685,8 +20843,10 @@ 'current-expand-observe)) (define as-expression-context (lambda (ctx_0) - (if (if (eq? 'expression (expand-context/outer-context ctx_0)) - (not (expand-context/outer-name ctx_0)) + (if (if (eq? + 'expression + (begin-unsafe (expand-context/outer-context ctx_0))) + (not (begin-unsafe (expand-context/outer-name ctx_0))) #f) ctx_0 (if (expand-context/outer? ctx_0) @@ -20726,7 +20886,7 @@ (raise-argument-error 'struct-copy "expand-context/outer?" ctx_0))))) (define as-begin-expression-context (lambda (ctx_0) - (if (not (expand-context/outer-name ctx_0)) + (if (not (begin-unsafe (expand-context/outer-name ctx_0))) ctx_0 (if (expand-context/outer? ctx_0) (let ((inner42_0 (root-expand-context/outer-inner ctx_0))) @@ -20775,9 +20935,9 @@ as-tail-context (lambda (wrt19_0 ctx21_0) (begin - (if (expand-context/outer-name wrt19_0) + (if (begin-unsafe (expand-context/outer-name wrt19_0)) (if (expand-context/outer? ctx21_0) - (let ((name43_0 (expand-context/outer-name wrt19_0))) + (let ((name43_0 (begin-unsafe (expand-context/outer-name wrt19_0)))) (let ((inner44_0 (root-expand-context/outer-inner ctx21_0))) (let ((name43_1 name43_0)) (let ((app_0 @@ -21029,7 +21189,7 @@ (expand-context/outer-name ctx_0)))))))))))))))) (raise-argument-error 'struct-copy "expand-context/outer?" ctx_0)))) -(define effect_3045 +(define effect_2716 (begin (|#%call-with-values| (letrec ((procz1 @@ -21037,18 +21197,21 @@ (let ((ctx_0 (force (current-expand-context)))) (let ((phase-to-ids_0 (if ctx_0 - (expand-context/outer-need-eventually-defined - ctx_0) + (begin-unsafe + (expand-context/outer-need-eventually-defined + ctx_0)) #f))) (if phase-to-ids_0 (hash-ref phase-to-ids_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) null) #f)))))) (lambda () - (let ((proc_0 procz1)) (set! current-previously-unbound proc_0)))) + (let ((proc_0 procz1)) + (begin-unsafe (set! current-previously-unbound proc_0))))) print-values) (void))) (define to-syntax-list.1 @@ -21141,7 +21304,8 @@ 0))) (if ns_1 (module-linklet-info2.1 - (definitions-variables (namespace->definitions ns_1 0)) + (begin-unsafe + (definitions-variables (namespace->definitions ns_1 0))) #f core-mpi #f @@ -21399,7 +21563,7 @@ (begin (if (syntax?$1 v_0) (s->_0 phase_0 proc_0 v_0) - (begin v_0)))))) + (begin-unsafe (begin v_0))))))) (gf_1 (|#%name| gf @@ -21407,7 +21571,7 @@ (begin (if (syntax?$1 v_0) (s->_1 phase_0 proc_0 v_0) - (begin v_0)))))) + (begin-unsafe (begin v_0))))))) (loop_0 (|#%name| loop @@ -21415,7 +21579,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((d_0 (let ((app_0 @@ -21433,13 +21597,13 @@ 1 (cdr s_0) depth_0))))) - (begin d_0)) + (begin-unsafe (begin d_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -21576,7 +21740,7 @@ (begin (let ((depth_0 (fx+ 1 prev-depth_0))) (if (null? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (pair? s_0) (let ((d_0 (let ((app_0 @@ -21594,13 +21758,13 @@ 1 (cdr s_0) depth_0))))) - (begin d_0)) + (begin-unsafe (begin d_0))) (if (symbol? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (boolean? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (number? s_0) - (begin s_0) + (begin-unsafe (begin s_0)) (if (let ((or-part_0 (vector? s_0))) (if or-part_0 or-part_0 @@ -21809,9 +21973,10 @@ #f))) (if b-info_0 (|#%app| - (bulk-binding-class-create - (bulk-binding-ref - bulk_0)) + (begin-unsafe + (bulk-binding-class-create + (bulk-binding-ref + bulk_0))) bulk_0 b-info_0 sym_0) @@ -21826,10 +21991,11 @@ (if (if scs_1 (if b_0 (not - (hash-ref - covered-scope-sets_1 - scs_1 - #f)) + (begin-unsafe + (hash-ref + covered-scope-sets_1 + scs_1 + #f))) #f) #f) (call-with-values @@ -21843,9 +22009,10 @@ (scope-set->context scs_1))) (let ((app_2 - (hash-keys-subset? - scs_1 - s-scs_0))) + (begin-unsafe + (hash-keys-subset? + scs_1 + s-scs_0)))) (let ((app_3 (classify-binding_0 b_0))) @@ -21862,10 +22029,11 @@ bindings_1))) (values app_0 - (hash-set - covered-scope-sets_1 - scs_1 - #t)))) + (begin-unsafe + (hash-set + covered-scope-sets_1 + scs_1 + #t))))) (case-lambda ((bindings_2 covered-scope-sets_2) @@ -22366,8 +22534,9 @@ (let ((info_0 (syntax-debug-info$1 s_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) #f))) (if (not (let ((or-part_0 (pair? (hash-ref info_0 'bindings null)))) @@ -22430,7 +22599,7 @@ (let ((app_0 (loop_1 common-scopes_0 info_0 0))) (string-append app_0 - (if (zero? (hash-count common-scopes_0)) + (if (begin-unsafe (zero? (hash-count common-scopes_0))) "" (string-append "\n common scopes...:" @@ -22448,10 +22617,11 @@ (let ((s_1 (unsafe-car lst_1))) (let ((rest_0 (unsafe-cdr lst_1))) (let ((fold-var_1 - (if (hash-ref - common-scopes_0 - s_1 - #f) + (if (begin-unsafe + (hash-ref + common-scopes_0 + s_1 + #f)) (let ((fold-var_1 (cons s_1 @@ -22490,7 +22660,7 @@ (loop_0 (cons str_0 strs_0) (cdr scopes_1)))))))))) (loop_0 null - (if (zero? (hash-count common-scopes_0)) + (if (begin-unsafe (zero? (hash-count common-scopes_0))) scopes_0 (append (reverse$1 @@ -22506,7 +22676,11 @@ (let ((rest_0 (unsafe-cdr lst_0))) (let ((fold-var_1 (if (not - (hash-ref common-scopes_0 s_0 #f)) + (begin-unsafe + (hash-ref + common-scopes_0 + s_0 + #f))) (let ((fold-var_1 (cons s_0 fold-var_0))) (values fold-var_1)) @@ -22544,16 +22718,18 @@ (define raise-syntax-implicit-error (lambda (s_0 sym_0 trigger-id_0 ctx_0) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((what_0 (if (eq? sym_0 '|#%app|) "function application" (if (eq? sym_0 '|#%datum|) "literal data" (if (eq? sym_0 '|#%top|) - (if (expand-context/inner-allow-unbound? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-allow-unbound? + (root-expand-context/outer-inner ctx_0))) "reference to a top-level identifier" "reference to an unbound identifier") (void)))))) @@ -22659,7 +22835,8 @@ (loop_0 phase5_0 s6_0 what_0 ids4_0 ht_0)))))))) (define remove-use-site-scopes (lambda (s_0 ctx_0) - (let ((use-sites_0 (root-expand-context/outer-use-site-scopes ctx_0))) + (let ((use-sites_0 + (begin-unsafe (root-expand-context/outer-use-site-scopes ctx_0)))) (if (if use-sites_0 (pair? (unbox use-sites_0)) #f) (if (syntax?$1 s_0) (remove-scopes s_0 (unbox use-sites_0)) @@ -22783,9 +22960,11 @@ phase3_0))) (let ((self_0 (if (eq? self4_0 unsafe-undefined) - (let ((v_0 (namespace-get-root-expand-ctx namespace_0))) - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner v_0))) + (begin-unsafe + (let ((v_0 (namespace-get-root-expand-ctx namespace_0))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner v_0))))) self4_0))) (let ((lazy-syntax-literals?_0 (if (eq? lazy-syntax-literals?7_0 unsafe-undefined) @@ -23304,14 +23483,15 @@ (if or-part_3 or-part_3 (path? v_0))))))))) - (do-hash-update - 'hash-update! - #t - hash-set! - shared_0 - v_0 - add1 - 0) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + shared_0 + v_0 + add1 + 0)) (if (pair? v_0) (begin (loop_0 @@ -23446,24 +23626,27 @@ shared-counter_0 shared_0 (srcloc-source v_0)) - (if (|#%app| syntax?$3 v_0) + (if (begin-unsafe (|#%app| syntax?$3 v_0)) (begin (loop_0 external-lift?7_0 external-lift_0 shared-counter_0 shared_0 - (|#%app| syntax-e$4 v_0)) + (begin-unsafe + (|#%app| syntax-e$4 v_0))) (loop_0 external-lift?7_0 external-lift_0 shared-counter_0 shared_0 - (|#%app| syntax-source$3 v_0)) + (begin-unsafe + (|#%app| syntax-source$3 v_0))) (let ((lst_0 - (|#%app| - syntax-property-symbol-keys$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-property-symbol-keys$3 + v_0)))) (begin (letrec* ((for-loop_0 @@ -23491,10 +23674,11 @@ external-lift_0 shared-counter_0 shared_0 - (|#%app| - syntax-property$3 - v_0 - k_0))) + (begin-unsafe + (|#%app| + syntax-property$3 + v_0 + k_0)))) (for-loop_0 rest_0)))) (values))))))) @@ -23516,14 +23700,14 @@ (let ((c_0 (hash-ref shared_0 v_0))) (if (negative? c_0) (begin - (write-byte 2 o_0) + (begin-unsafe (write-byte 2 o_0)) (write-fasl-integer (sub1 (- c_0)) o_0)) (let ((pos_0 (unsafe-unbox* shared-counter_0))) (begin (unsafe-set-box*! shared-counter_0 (add1 (unsafe-unbox* shared-counter_0))) - (write-byte 1 o_0) + (begin-unsafe (write-byte 1 o_0)) (write-fasl-integer pos_0 o_0) (hash-remove! shared_0 v_0) (loop_1 @@ -23536,25 +23720,25 @@ v_0) (hash-set! shared_0 v_0 (- (add1 pos_0))))))) (if (not v_0) - (write-byte 3 o_0) + (begin-unsafe (write-byte 3 o_0)) (if (eq? v_0 #t) - (write-byte 4 o_0) + (begin-unsafe (write-byte 4 o_0)) (if (null? v_0) - (write-byte 5 o_0) + (begin-unsafe (write-byte 5 o_0)) (if (void? v_0) - (write-byte 6 o_0) + (begin-unsafe (write-byte 6 o_0)) (if (eof-object? v_0) - (write-byte 7 o_0) + (begin-unsafe (write-byte 7 o_0)) (if (exact-integer? v_0) (if (<= -10 v_0 144) (let ((byte_0 (+ 100 (- v_0 -10)))) - (write-byte byte_0 o_0)) + (begin-unsafe (write-byte byte_0 o_0))) (begin - (write-byte 8 o_0) + (begin-unsafe (write-byte 8 o_0)) (write-fasl-integer v_0 o_0))) (if (flonum? v_0) (begin - (write-byte 9 o_0) + (begin-unsafe (write-byte 9 o_0)) (1/write-bytes (if (eqv? v_0 +nan.0) #vu8(0 0 0 0 0 0 248 127) @@ -23562,7 +23746,7 @@ o_0)) (if (single-flonum? v_0) (begin - (write-byte 10 o_0) + (begin-unsafe (write-byte 10 o_0)) (1/write-bytes (if (eqv? v_0 @@ -23572,7 +23756,7 @@ o_0)) (if (extflonum? v_0) (begin - (write-byte 39 o_0) + (begin-unsafe (write-byte 39 o_0)) (let ((bstr_0 (string->bytes/utf-8 (format "~a" v_0)))) @@ -23583,7 +23767,7 @@ (1/write-bytes bstr_0 o_0)))) (if (rational? v_0) (begin - (write-byte 11 o_0) + (begin-unsafe (write-byte 11 o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -23602,7 +23786,7 @@ (denominator v_0))) (if (complex? v_0) (begin - (write-byte 12 o_0) + (begin-unsafe (write-byte 12 o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -23621,17 +23805,20 @@ (imag-part v_0))) (if (char? v_0) (begin - (write-byte 13 o_0) + (begin-unsafe (write-byte 13 o_0)) (write-fasl-integer (char->integer v_0) o_0)) (if (symbol? v_0) (begin (if (symbol-interned? v_0) - (write-byte 14 o_0) + (begin-unsafe + (write-byte 14 o_0)) (if (symbol-unreadable? v_0) - (write-byte 15 o_0) - (write-byte 16 o_0))) + (begin-unsafe + (write-byte 15 o_0)) + (begin-unsafe + (write-byte 16 o_0)))) (let ((bstr_0 (string->bytes/utf-8 (symbol->string v_0)))) @@ -23645,7 +23832,8 @@ o_0)))) (if (keyword? v_0) (begin - (write-byte 17 o_0) + (begin-unsafe + (write-byte 17 o_0)) (let ((bstr_0 (string->bytes/utf-8 (keyword->string @@ -23688,7 +23876,10 @@ v_0))) (if rel-elems_0 (begin - (write-byte 23 o_0) + (begin-unsafe + (write-byte + 23 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -23698,7 +23889,10 @@ shared_0 rel-elems_0)) (begin - (write-byte 22 o_0) + (begin-unsafe + (write-byte + 22 + o_0)) (write-fasl-bytes (path->bytes v_0) o_0) @@ -23837,9 +24031,10 @@ (if normal-list?_0 28 29))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer n_0 o_0) @@ -23881,9 +24076,10 @@ 2 args)))) (begin - (write-byte - 30 - o_0) + (begin-unsafe + (write-byte + 30 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -23908,9 +24104,10 @@ v_0) 32 31))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer (vector-length v_0) @@ -23970,9 +24167,10 @@ v_0) 34 33))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -23986,9 +24184,10 @@ v_0))) (if c2_0 (begin - (write-byte - 35 - o_0) + (begin-unsafe + (write-byte + 35 + o_0)) (begin (loop_1 handle-fail6_0 @@ -24065,9 +24264,10 @@ v_0) 37 36))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (let ((byte_0 (if (hash-eq? v_0) @@ -24076,9 +24276,10 @@ v_0) 2 1)))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer (hash-count v_0) @@ -24113,9 +24314,10 @@ v_0) 24 25))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-string (object-name v_0) @@ -24128,20 +24330,23 @@ v_0) 26 27))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-bytes (object-name v_0) o_0)) - (if (|#%app| - syntax?$3 - v_0) + (if (begin-unsafe + (|#%app| + syntax?$3 + v_0)) (begin - (write-byte - 40 - o_0) + (begin-unsafe + (write-byte + 40 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -24149,9 +24354,10 @@ path->relative-path-elements_0 shared-counter_0 shared_0 - (|#%app| - syntax-e$4 - v_0)) + (begin-unsafe + (|#%app| + syntax-e$4 + v_0))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -24160,29 +24366,34 @@ shared-counter_0 shared_0 (let ((app_0 - (|#%app| - syntax-source$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-source$3 + v_0)))) (let ((app_1 - (|#%app| - syntax-line$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-line$3 + v_0)))) (let ((app_2 - (|#%app| - syntax-column$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-column$3 + v_0)))) (let ((app_3 - (|#%app| - syntax-position$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-position$3 + v_0)))) (unsafe-make-srcloc app_0 app_1 app_2 app_3 - (|#%app| - syntax-span$3 - v_0))))))) + (begin-unsafe + (|#%app| + syntax-span$3 + v_0)))))))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -24192,9 +24403,10 @@ shared_0 (reverse$1 (let ((lst_0 - (|#%app| - syntax-property-symbol-keys$3 - v_0))) + (begin-unsafe + (|#%app| + syntax-property-symbol-keys$3 + v_0)))) (begin (letrec* ((for-loop_0 @@ -24216,10 +24428,11 @@ (cons (cons k_0 - (|#%app| - syntax-property$3 - v_0 - k_0)) + (begin-unsafe + (|#%app| + syntax-property$3 + v_0 + k_0))) fold-var_0))) (values fold-var_1)))) @@ -24233,9 +24446,10 @@ (if (eq? v_0 unsafe-undefined) - (write-byte - 41 - o_0) + (begin-unsafe + (write-byte + 41 + o_0)) (if handle-fail6_0 (loop_1 handle-fail6_0 @@ -24921,11 +25135,12 @@ p_0))) (let ((k_1 k_0)) - (|#%app| - syntax-property$3 - c_1 - k_1 - v_0)))))) + (begin-unsafe + (|#%app| + syntax-property$3 + c_1 + k_1 + v_0))))))) (values c_2)))) (for-loop_0 @@ -25043,22 +25258,22 @@ (lambda (i_0 o_0) (if (<= -124 i_0 127) (if (negative? i_0) - (let ((byte_0 (+ i_0 256))) (write-byte byte_0 o_0)) - (write-byte i_0 o_0)) + (let ((byte_0 (+ i_0 256))) (begin-unsafe (write-byte byte_0 o_0))) + (begin-unsafe (write-byte i_0 o_0))) (if (<= -32768 i_0 32767) (begin - (write-byte 128 o_0) + (begin-unsafe (write-byte 128 o_0)) (1/write-bytes (integer->integer-bytes i_0 2 #t #f) o_0)) (if (<= -2147483648 i_0 2147483647) (begin - (write-byte 129 o_0) + (begin-unsafe (write-byte 129 o_0)) (1/write-bytes (integer->integer-bytes i_0 4 #t #f) o_0)) (if (<= -9223372036854775808 i_0 9223372036854775807) (begin - (write-byte 130 o_0) + (begin-unsafe (write-byte 130 o_0)) (1/write-bytes (integer->integer-bytes i_0 8 #t #f) o_0)) (begin - (write-byte 131 o_0) + (begin-unsafe (write-byte 131 o_0)) (let ((s_0 (format "~x" i_0))) (begin (write-fasl-integer (string-length s_0) o_0) @@ -25302,8 +25517,10 @@ (define make-built-in-symbol! (lambda (s_0) (let ((built-in-s_0 (string->symbol (format ".~s" s_0)))) - (begin (hash-set! built-in-symbols built-in-s_0 #t) built-in-s_0)))) -(define effect_2932 + (begin + (begin-unsafe (hash-set! built-in-symbols built-in-s_0 #t)) + built-in-s_0)))) +(define effect_2489 (begin (void (begin @@ -25337,6 +25554,7 @@ $value with-continuation-mark* pariah + begin-unsafe variable-set! variable-ref variable-ref/no-check @@ -25704,9 +25922,10 @@ (case-lambda ((path_0 base_0) - (if (eq? - top-level-module-path-index - mpi_0) + (if (begin-unsafe + (eq? + top-level-module-path-index + mpi_0)) 'top (if (not path_0) @@ -25841,11 +26060,12 @@ gen_0 pos_1 (if (eq? d_0 'top) - top-level-module-path-index + (begin-unsafe top-level-module-path-index) (if (box? d_0) (let ((name_0 (unbox d_0))) - (make-self-module-path-index - (1/make-resolved-module-path name_0))) + (begin-unsafe + (make-self-module-path-index + (1/make-resolved-module-path name_0)))) (let ((path_0 (unsafe-vector*-ref d_0 0))) (let ((base_0 (if (> @@ -25856,9 +26076,10 @@ (unsafe-vector*-ref d_0 1)) #f))) (let ((path_1 path_0)) - (1/module-path-index-join - path_1 - base_0))))))) + (begin-unsafe + (1/module-path-index-join + path_1 + base_0)))))))) (for-loop_0 (unsafe-fx+ 1 pos_0) (+ pos_1 1)))) (values))))))) (for-loop_0 0 start_0)))))) @@ -26542,7 +26763,8 @@ (if (pair? v_0) (pair? (cdr v_0)) #f) #f) (let ((start-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 'tag kw2802) (begin @@ -26563,9 +26785,10 @@ (let ((all-quoted?_1 (let ((all-quoted?_1 (let ((i-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (ser-push!_0 i_0) @@ -26593,16 +26816,19 @@ (void)))))) (if (pair? v_0) (let ((start-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 'tag kw2821) (let ((a-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 (car v_0)) (let ((d-pos_0 - (begin - (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 (cdr v_0)) (if (if (quoted?_0 @@ -26624,11 +26850,14 @@ (void)))))))) (if (box? v_0) (let ((start-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 'tag kw2525) (let ((v-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 (unbox v_0)) (if (quoted?_0 @@ -26645,7 +26874,8 @@ (void)))))) (if (vector? v_0) (let ((start-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin (unsafe-unbox* stream-size_0))))) (begin (ser-push!_0 'tag kw2967) (begin @@ -26679,9 +26909,10 @@ (let ((all-quoted?_1 (let ((all-quoted?_1 (let ((i-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (ser-push!_0 i_0) @@ -26715,7 +26946,9 @@ (void)))))) (if (hash? v_0) (let ((start-pos_0 - (begin (unsafe-unbox* stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* stream-size_0))))) (let ((as-set?_0 (begin (letrec* @@ -26788,16 +27021,18 @@ (let ((all-quoted?_1 (let ((all-quoted?_1 (let ((k-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (ser-push!_0 k_0) (let ((v-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (if as-set?_0 (void) @@ -26838,9 +27073,10 @@ (if c3_0 (let ((vec_0 (struct->vector v_0))) (let ((start-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (ser-push!_0 'tag kw2931) (begin @@ -26882,9 +27118,10 @@ (let ((all-quoted?_1 (let ((all-quoted?_1 (let ((i-pos_0 - (begin - (unsafe-unbox* - stream-size_0)))) + (begin-unsafe + (begin + (unsafe-unbox* + stream-size_0))))) (begin (ser-push!_0 i_0) @@ -28087,7 +28324,7 @@ (if (eq? tmp_1 kw3357) (seteq) (if (eq? tmp_1 kw2333) - the-empty-hasheqv + (begin-unsafe the-empty-hasheqv) (void))))))) (let ((len_0 (unsafe-vector*-ref vec_0 (add1 pos_0)))) (begin @@ -28114,7 +28351,8 @@ (case-lambda ((k_0 next-pos_0) (values - (hash-set s_1 k_0 #t) + (begin-unsafe + (hash-set s_1 k_0 #t)) next-pos_0)) (args (raise-binding-result-arity-error @@ -28207,7 +28445,9 @@ done-pos_0)) (args (raise-binding-result-arity-error 2 args)))))) (args (raise-binding-result-arity-error 2 args)))) - (values top-level-common-scope (add1 pos_0)))) + (values + (begin-unsafe top-level-common-scope) + (add1 pos_0)))) (if (unsafe-fx< index_0 18) (call-with-values (lambda () @@ -28221,10 +28461,11 @@ (case-lambda ((kind_0 next-pos_0) (values - (scope1.1 - (new-deserialize-scope-id!) - kind_0 - empty-binding-table) + (begin-unsafe + (scope1.1 + (new-deserialize-scope-id!) + kind_0 + empty-binding-table)) next-pos_0)) (args (raise-binding-result-arity-error 2 args)))) (if (unsafe-fx< index_0 19) @@ -28292,7 +28533,10 @@ (case-lambda ((multi-scope_0 next-pos_1) (values - (intern-shifted-multi-scope phase_0 multi-scope_0) + (begin-unsafe + (intern-shifted-multi-scope + phase_0 + multi-scope_0)) next-pos_1)) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 2 args)))))))) @@ -28321,10 +28565,11 @@ (case-lambda ((bulk-bindings_0 next-pos_1) (values - (table-with-bulk-bindings1.1 - syms_0 - syms_0 - bulk-bindings_0) + (begin-unsafe + (table-with-bulk-bindings1.1 + syms_0 + syms_0 + bulk-bindings_0)) next-pos_1)) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 2 args)))) @@ -28352,7 +28597,7 @@ (case-lambda ((bulk_0 next-pos_1) (values - (bulk-binding-at2.1 scopes_0 bulk_0) + (begin-unsafe (bulk-binding-at2.1 scopes_0 bulk_0)) next-pos_1)) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 2 args)))) @@ -28583,11 +28828,12 @@ (case-lambda ((nominal-module_0 next-pos_3) (values - (simple-module-binding46.1 - module_0 - phase_0 - sym_0 - nominal-module_0) + (begin-unsafe + (simple-module-binding46.1 + module_0 + phase_0 + sym_0 + nominal-module_0)) next-pos_3)) (args (raise-binding-result-arity-error 2 args))))) @@ -28618,7 +28864,8 @@ (case-lambda ((free=id_0 next-pos_1) (values - (full-local-binding1.1 #f free=id_0 key_0) + (begin-unsafe + (full-local-binding1.1 #f free=id_0 key_0)) next-pos_1)) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 2 args)))) @@ -28690,15 +28937,16 @@ (case-lambda ((bulk-binding-registry_1 next-pos_5) (values - (bulk-binding12.1 - #f - prefix_0 - excepts_0 - #f - mpi_0 - provide-phase-level_0 - phase-shift_0 - bulk-binding-registry_1) + (begin-unsafe + (bulk-binding12.1 + #f + prefix_0 + excepts_0 + #f + mpi_0 + provide-phase-level_0 + phase-shift_0 + bulk-binding-registry_1)) next-pos_5)) (args (raise-binding-result-arity-error @@ -28748,7 +28996,11 @@ (case-lambda ((syntax?_0 next-pos_2) (values - (provided1.1 binding_0 protected?_0 syntax?_0) + (begin-unsafe + (provided1.1 + binding_0 + protected?_0 + syntax?_0)) next-pos_2)) (args (raise-binding-result-arity-error 2 args))))) @@ -28870,7 +29122,9 @@ shared_0)) (case-lambda ((c_0 next-pos_0) - (begin (set-scope-binding-table! v_0 c_0) next-pos_0)) + (begin + (begin-unsafe (set-scope-binding-table! v_0 c_0)) + next-pos_0)) (args (raise-binding-result-arity-error 2 args)))) (if (eq? tmp_0 kw2073) (call-with-values @@ -28896,9 +29150,10 @@ (case-lambda ((d_0 done-pos_0) (begin - (begin - (set-scope-binding-table! v_0 a_0) - (set-representative-scope-owner! v_0 d_0)) + (begin-unsafe + (begin + (begin-unsafe (set-scope-binding-table! v_0 a_0)) + (set-representative-scope-owner! v_0 d_0))) done-pos_0)) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 2 args)))) @@ -28932,7 +29187,7 @@ (begin (set! reachable-scopes_0 (let ((s_0 reachable-scopes_0)) - (hash-set s_0 v_1 #t))) + (begin-unsafe (hash-set s_0 v_1 #t)))) (|#%app| (reach-scopes-ref v_1) v_1 loop_0) (let ((lst_0 (hash-ref scope-triggers_0 v_1 null))) @@ -28963,14 +29218,15 @@ (lambda (sc-unreachable_0 b_0) (let ((xform_0 (lambda (l_0) (cons b_0 l_0)))) - (do-hash-update - 'hash-update! - #t - hash-set! - scope-triggers_0 - sc-unreachable_0 - xform_0 - null))))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + scope-triggers_0 + sc-unreachable_0 + xform_0 + null)))))) (if (reach-scopes? v_1) (|#%app| (reach-scopes-ref v_1) v_1 loop_0) (if (pair? v_1) @@ -30213,11 +30469,13 @@ (lambda (mod-path_0 ctx_0) (let ((temp7_0 (namespace-mpi - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0)))))) (let ((temp8_0 - (expand-context/inner-declared-submodule-names - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-declared-submodule-names + (root-expand-context/outer-inner ctx_0))))) (let ((temp7_1 temp7_0)) (module-path->mpi.1 temp8_0 mod-path_0 temp7_1)))))) (define syntax-mapped-names @@ -30542,9 +30800,10 @@ (define add-required-module! (lambda (r+p_0 mod-name_0 phase-shift_0 is-cross-phase-persistent?_0) (let ((mpi_0 - (intern-module-path-index! - (requires+provides-require-mpis r+p_0) - mod-name_0))) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p_0) + mod-name_0)))) (begin (if (hash-ref (hash-ref (requires+provides-requires r+p_0) mpi_0 hash2589) @@ -30555,14 +30814,15 @@ (let ((ht_0 (requires+provides-require-mpis-in-order r+p_0))) (let ((xform_0 (lambda (l_0) (cons mpi_0 l_0)))) (let ((ht_1 ht_0)) - (do-hash-update - 'hash-update! - #t - hash-set! - ht_1 - phase-shift_0 - xform_0 - null)))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_1 + phase-shift_0 + xform_0 + null))))) (let ((app_0 (hash-ref! (requires+provides-requires r+p_0) @@ -30619,9 +30879,10 @@ (let ((app_0 (requires+provides-requires r+p26_0))) (hash-ref! app_0 - (intern-module-path-index! - (requires+provides-require-mpis r+p26_0) - nominal-module18_0) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p26_0) + nominal-module18_0)) make-hasheqv)))) (let ((sym-to-reqds_0 (hash-ref! at-mod_0 nominal-require-phase19_0 make-hasheq))) @@ -30663,9 +30924,10 @@ #f) #f))) (let ((mpi_0 - (intern-module-path-index! - (requires+provides-require-mpis r+p46_0) - nominal-module49_0))) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p46_0) + nominal-module49_0)))) (let ((at-mod_0 (hash-ref! (requires+provides-requires r+p46_0) @@ -30903,14 +31165,15 @@ reqd/maybe-bulk_0)) (begin (let ((reqd_0 - (if (bulk-required? - reqd/maybe-bulk_1) - (bulk-required->required - reqd/maybe-bulk_1 - mod-name_0 - phase_0 - sym_0) - reqd/maybe-bulk_1))) + (begin-unsafe + (if (bulk-required? + reqd/maybe-bulk_1) + (bulk-required->required + reqd/maybe-bulk_1 + mod-name_0 + phase_0 + sym_0) + reqd/maybe-bulk_1)))) (let ((temp130_0 (syntax-shift-phase-level$1 (let ((temp136_0 @@ -31010,9 +31273,10 @@ (if b_0 (let ((mpi_0 (let ((mpi_0 (module-binding-nominal-module b_0))) - (intern-module-path-index! - (requires+provides-require-mpis r+p62_0) - mpi_0)))) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p62_0) + mpi_0))))) (let ((at-mod_0 (hash-ref (requires+provides-requires r+p62_0) mpi_0 #f))) (if at-mod_0 @@ -31056,13 +31320,14 @@ (let ((r_1 r_0)) (let ((fold-var_1 (let ((r_2 - (if (bulk-required? r_1) - (bulk-required->required - r_1 - mpi_0 - nominal-phase_0 - sym_0) - r_1))) + (begin-unsafe + (if (bulk-required? r_1) + (bulk-required->required + r_1 + mpi_0 + nominal-phase_0 + sym_0) + r_1)))) (begin #t (letrec* @@ -31103,9 +31368,9 @@ (string-append "identifier already " app_0 - (if (eq? phase82_0 0) + (if (begin-unsafe (eq? phase82_0 0)) "" - (if (not phase82_0) + (if (begin-unsafe (not phase82_0)) " for label" (if (= 1 phase82_0) " for syntax" @@ -31169,9 +31434,10 @@ #f))) (let ((mpi_0 (let ((mpi_0 (module-binding-nominal-module b_0))) - (intern-module-path-index! - (requires+provides-require-mpis r+p80_0) - mpi_0)))) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p80_0) + mpi_0))))) (let ((at-mod_0 (hash-ref (requires+provides-requires r+p80_0) @@ -31405,9 +31671,10 @@ (define extract-module-requires (lambda (r+p_0 mod-name_0 phase_0) (let ((mpi_0 - (intern-module-path-index! - (requires+provides-require-mpis r+p_0) - mod-name_0))) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p_0) + mod-name_0)))) (let ((at-mod_0 (hash-ref (requires+provides-requires r+p_0) mpi_0 #f))) (if at-mod_0 (reverse$1 @@ -31445,14 +31712,15 @@ (let ((fold-var_2 (let ((fold-var_2 (cons - (if (bulk-required? - reqd_1) - (bulk-required->required - reqd_1 - mpi_0 - phase_0 - sym_0) - reqd_1) + (begin-unsafe + (if (bulk-required? + reqd_1) + (bulk-required->required + reqd_1 + mpi_0 + phase_0 + sym_0) + reqd_1)) fold-var_1))) (values fold-var_2)))) @@ -31483,9 +31751,10 @@ (let ((lst_0 (if mod-name_0 (list - (intern-module-path-index! - (requires+provides-require-mpis r+p_0) - mod-name_0)) + (begin-unsafe + (intern-module-path-index! + (requires+provides-require-mpis r+p_0) + mod-name_0))) (hash-keys requires_0)))) (begin (letrec* @@ -31593,14 +31862,15 @@ (let ((fold-var_5 (let ((fold-var_5 (cons - (if (bulk-required? - reqd_1) - (bulk-required->required - reqd_1 - mod-name_1 - phase_1 - sym_0) - reqd_1) + (begin-unsafe + (if (bulk-required? + reqd_1) + (bulk-required->required + reqd_1 + mod-name_1 + phase_1 + sym_0) + reqd_1)) fold-var_4))) (values fold-var_5)))) @@ -31703,14 +31973,15 @@ id99_0)))))))) (let ((default_0 hash2610)) (let ((xform_1 xform_0) (ht_1 ht_0)) - (do-hash-update - 'hash-update! - #t - hash-set! - ht_1 - phase96_0 - xform_1 - default_0)))))))))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_1 + phase96_0 + xform_1 + default_0))))))))))) (define extract-requires-and-provides (letrec ((extract-provides_0 (|#%name| @@ -34138,11 +34409,12 @@ (begin (if m_0 (void) - (raise-arguments-error - 'require - "unknown module" - "module name" - (module-name->error-string module-name_0))) + (begin-unsafe + (raise-arguments-error + 'require + "unknown module" + "module name" + (module-name->error-string module-name_0)))) (let ((interned-mpi_0 (if requires+provides45_0 (add-required-module! @@ -34304,10 +34576,11 @@ (if (let ((s_0 (adjust-only-syms adjust44_0))) - (hash-ref - s_0 - sym_0 - #f)) + (begin-unsafe + (hash-ref + s_0 + sym_0 + #f))) (if (hash-set! done-syms_0 sym_0 @@ -34332,10 +34605,11 @@ (if (let ((s_0 (adjust-all-except-syms adjust44_0))) - (hash-ref - s_0 - sym_0 - #f)) + (begin-unsafe + (hash-ref + s_0 + sym_0 + #f))) (hash-set! done-syms_0 sym_0 @@ -34491,8 +34765,9 @@ (if (if need-syms_0 (not (let ((app_0 - (hash-count - need-syms_0))) + (begin-unsafe + (hash-count + need-syms_0)))) (= app_0 (hash-count @@ -34808,12 +35083,13 @@ for-meta297_0 app_0 (map_2960 (loop_0 #t) spec299_0))))) - (begin - (datum->syntax$1 - req_0 - new-req_0 - req_0 - req_0)))))) + (begin-unsafe + (begin + (datum->syntax$1 + req_0 + new-req_0 + req_0 + req_0))))))) (args (raise-binding-result-arity-error 4 args)))) (if (eq? fm_0 'for-syntax) (call-with-values @@ -34859,12 +35135,13 @@ 'for-meta 2 (map_2960 (loop_0 #t) spec306_0)))) - (begin - (datum->syntax$1 - req_0 - new-req_0 - req_0 - req_0)))) + (begin-unsafe + (begin + (datum->syntax$1 + req_0 + new-req_0 + req_0 + req_0))))) (args (raise-binding-result-arity-error 3 args)))) (if (eq? fm_0 'for-template) (call-with-values @@ -34914,12 +35191,13 @@ 'for-meta 0 (map_2960 (loop_0 #t) spec310_0)))) - (begin - (datum->syntax$1 - req_0 - new-req_0 - req_0 - req_0)))) + (begin-unsafe + (begin + (datum->syntax$1 + req_0 + new-req_0 + req_0 + req_0))))) (args (raise-binding-result-arity-error 3 args)))) (if (eq? fm_0 'for-label) (call-with-values @@ -34970,12 +35248,13 @@ (list* for-label313_0 (map_2960 (loop_0 #t) spec314_0)))) - (begin - (datum->syntax$1 - req_0 - new-req_0 - req_0 - req_0)))) + (begin-unsafe + (begin + (datum->syntax$1 + req_0 + new-req_0 + req_0 + req_0))))) (args (raise-binding-result-arity-error 3 args)))) (if (eq? fm_0 'just-meta) @@ -35069,12 +35348,13 @@ just-meta317_0 phase-level318_0 (map_2960 (loop_0 #f) spec319_0)))) - (begin - (datum->syntax$1 - req_0 - new-req_0 - req_0 - req_0)))) + (begin-unsafe + (begin + (datum->syntax$1 + req_0 + new-req_0 + req_0 + req_0))))) (args (raise-binding-result-arity-error 4 args)))) (if shifted?_0 @@ -35160,7 +35440,8 @@ (let ((b_0 (let ((temp7_0 (let ((v_0 (namespace-get-root-expand-ctx ns_0))) - (root-expand-context/outer-frame-id v_0)))) + (begin-unsafe + (root-expand-context/outer-frame-id v_0))))) (make-module-binding.1 #f null @@ -35205,7 +35486,7 @@ temp15_0))))))))) (define struct:compiled-in-memory (make-record-type-descriptor* 'compiled-in-memory #f #f #f #f 13 8191)) -(define effect_2489 +(define effect_2491 (struct-type-install-properties! struct:compiled-in-memory 'compiled-in-memory @@ -35992,13 +36273,13 @@ (if (if (eq? a_0 (car v_0)) (eq? d_0 (cdr v_0)) #f) v_0 (cons a_0 d_0)))) - (if (syntax? v_0) + (if (begin-unsafe (syntax? v_0)) (let ((app_0 (->faslable (correlated-e v_0)))) - (let ((app_1 (syntax-source v_0))) - (let ((app_2 (syntax-position v_0))) - (let ((app_3 (syntax-line v_0))) - (let ((app_4 (syntax-column v_0))) - (let ((app_5 (syntax-span v_0))) + (let ((app_1 (begin-unsafe (syntax-source v_0)))) + (let ((app_2 (begin-unsafe (syntax-position v_0)))) + (let ((app_3 (begin-unsafe (syntax-line v_0)))) + (let ((app_4 (begin-unsafe (syntax-column v_0)))) + (let ((app_5 (begin-unsafe (syntax-span v_0)))) (faslable-correlated2.1 app_0 app_1 @@ -36024,9 +36305,10 @@ (let ((ht_1 (let ((ht_1 (let ((p_0 - (syntax-property - v_0 - k_0))) + (begin-unsafe + (syntax-property + v_0 + k_0)))) (if p_0 (hash-set (if ht_0 @@ -36188,7 +36470,9 @@ (case-lambda ((k_0 p_0) (let ((c_2 - (let ((c_2 (syntax-property c_1 k_0 p_0))) + (let ((c_2 + (begin-unsafe + (syntax-property c_1 k_0 p_0)))) (values c_2)))) (for-loop_0 c_2 @@ -36305,7 +36589,7 @@ (let ((name_0 (faslable-> (faslable-correlated-linklet-name v_0)))) (let ((expr_1 expr_0)) - (correlated-linklet1.1 expr_1 name_0 #f)))) + (begin-unsafe (correlated-linklet1.1 expr_1 name_0 #f))))) v_0)))))) (define write-linklet-bundle (lambda (b_0 as-correlated-linklet?_0 linklet-bundle->hash_0 port_0) @@ -37078,15 +37362,17 @@ (let ((root-ctx_0 (namespace-get-root-expand-ctx ns_0))) (let ((post-expansion-sc_0 (post-expansion-scope - (root-expand-context/outer-post-expansion root-ctx_0)))) + (begin-unsafe + (root-expand-context/outer-post-expansion root-ctx_0))))) (let ((app_0 (seteq post-expansion-sc_0))) (values app_0 (let ((s_0 (list->seteq - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner root-ctx_0))))) - (hash-remove s_0 post-expansion-sc_0)))))))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner root-ctx_0)))))) + (begin-unsafe (hash-remove s_0 post-expansion-sc_0))))))))) (define extract-namespace-scopes (lambda (ns_0) (call-with-values @@ -37567,7 +37853,7 @@ (define make-header (lambda (mpis_0 syntax-literals_0) (let ((app_0 (make-hasheq))) - (let ((app_1 (make-hash))) + (let ((app_1 (begin-unsafe (make-hash)))) (let ((app_2 (make-hasheq))) (header2.1 mpis_0 @@ -37711,7 +37997,7 @@ '((loop)))))))))))))))))) (define generate-lazy-syntax-literals-data! (lambda (sl_0 mpis_0) - (if (null? (syntax-literals-stxes sl_0)) + (if (begin-unsafe (null? (syntax-literals-stxes sl_0))) (list (list* 'define-values (list deserialize-syntax-id) '(#f))) (list (list @@ -37738,7 +38024,7 @@ (lambda (pos_0) (list get-syntax-literal!-id pos_0))) (define generate-eager-syntax-literals! (lambda (sl_0 mpis_0 base-phase_0 self_0 ns_0) - (if (null? (syntax-literals-stxes sl_0)) + (if (begin-unsafe (null? (syntax-literals-stxes sl_0))) #f (let ((app_0 (list @@ -37800,7 +38086,7 @@ sym_0))) (define symbol-conflicts? (lambda (sym_0 header_0) - (let ((or-part_0 (hash-ref built-in-symbols sym_0 #f))) + (let ((or-part_0 (begin-unsafe (hash-ref built-in-symbols sym_0 #f)))) (if or-part_0 or-part_0 (hash-ref (header-define-and-import-syms header_0) sym_0 #f))))) @@ -37845,16 +38131,18 @@ (header-import-sym-to-extra-inspectors header12_0))) (let ((xform_0 (lambda (s_0) - (hash-set s_0 extra-inspector16_0 #t)))) + (begin-unsafe + (hash-set s_0 extra-inspector16_0 #t))))) (let ((default_0 hash2610)) - (do-hash-update - 'hash-update! - #t - hash-set! - extra-inspectors_0 - var-sym_0 - xform_0 - default_0)))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + extra-inspectors_0 + var-sym_0 + xform_0 + default_0))))) (void)) var-sym_0))))))))) (define register-as-defined! @@ -37900,9 +38188,10 @@ or-part_1 (let ((mpi_0 (module-use-module mu_0))) - (eq? - top-level-module-path-index - mpi_0)))))) + (begin-unsafe + (eq? + top-level-module-path-index + mpi_0))))))) (values ht_0 link-mod-uses_0) (values (hash-set ht_0 mu_0 #t) @@ -38133,9 +38422,10 @@ cctx_0)))) (if or-part_0 or-part_0 - (eq? - top-level-module-path-index - mod_0)))) + (begin-unsafe + (eq? + top-level-module-path-index + mod_0))))) (let ((fold-var_1 (cons (let ((var-sym_0 @@ -38315,14 +38605,16 @@ (define correlate~ (lambda (stx_0 s-exp_0) s-exp_0)) (define correlate/app (lambda (stx_0 s-exp_0) - (if keep-source-locations? (correlate* stx_0 s-exp_0) s-exp_0))) + (if keep-source-locations? + (correlate* stx_0 s-exp_0) + (begin-unsafe s-exp_0)))) (define ->correlated (lambda (s_0) (datum->correlated s_0 #f))) (define correlate-source-name (lambda (sym_0 e-sym_0) (if (eq? sym_0 e-sym_0) sym_0 (let ((e_0 (datum->correlated sym_0 #f))) - (syntax-property e_0 'source-name e-sym_0))))) + (begin-unsafe (syntax-property e_0 'source-name e-sym_0)))))) (define compile-keep-source-locations! (lambda (on?_0) (set! keep-source-locations? on?_0))) (define compile$2 @@ -38349,16 +38641,18 @@ (let ((formals_0 (parsed-lambda-keys p3_0))) (let ((bodys_0 (parsed-lambda-body p3_0))) (let ((formals_1 formals_0)) - (list - formals_1 - (compile-sequence - bodys_0 - cctx4_0 - #f - #t))))))) + (begin-unsafe + (list + formals_1 + (compile-sequence + bodys_0 + cctx4_0 + #f + #t)))))))) name1_0 s_0) - (let ((s-exp_0 ''unused-lambda)) s-exp_0)) + (let ((s-exp_0 ''unused-lambda)) + (begin-unsafe s-exp_0))) (if (parsed-case-lambda? p3_0) (if result-used?2_0 (add-lambda-properties @@ -38391,13 +38685,14 @@ clause_0))) (let ((formals_1 formals_0)) - (list - formals_1 - (compile-sequence - bodys_0 - cctx4_0 - #f - #t))))) + (begin-unsafe + (list + formals_1 + (compile-sequence + bodys_0 + cctx4_0 + #f + #t)))))) fold-var_0))) (values fold-var_1)))) (for-loop_0 @@ -38407,14 +38702,17 @@ (for-loop_0 null lst_0))))))) name1_0 s_0) - (let ((s-exp_0 ''unused-case-lambda)) s-exp_0)) + (let ((s-exp_0 ''unused-case-lambda)) + (begin-unsafe s-exp_0))) (if (parsed-app? p3_0) (let ((rands_0 (parsed-app-rands p3_0))) (correlate/app s_0 (let ((app_0 (let ((p_0 (parsed-app-rator p3_0))) - (begin (compile$2 p_0 cctx4_0 #f #t))))) + (begin-unsafe + (begin + (compile$2 p_0 cctx4_0 #f #t)))))) (cons app_0 (reverse$1 @@ -38432,12 +38730,13 @@ (let ((fold-var_1 (let ((fold-var_1 (cons - (begin - (compile$2 - r_0 - cctx4_0 - #f - #t)) + (begin-unsafe + (begin + (compile$2 + r_0 + cctx4_0 + #f + #t))) fold-var_0))) (values fold-var_1)))) @@ -38449,67 +38748,74 @@ (if (parsed-if? p3_0) (let ((tst-e_0 (let ((p_0 (parsed-if-tst p3_0))) - (begin (compile$2 p_0 cctx4_0 #f #f))))) + (begin-unsafe + (begin (compile$2 p_0 cctx4_0 #f #f)))))) (if (eq? (correlated-e tst-e_0) #t) (let ((p_0 (parsed-if-thn p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0)))) (if (eq? (correlated-e tst-e_0) #f) (let ((p_0 (parsed-if-els p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0)))) (let ((s-exp_0 (let ((app_0 (let ((p_0 (parsed-if-thn p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0))))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0)))))) (list 'if tst-e_0 app_0 (let ((p_0 (parsed-if-els p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0))))))) - s-exp_0)))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0)))))))) + (begin-unsafe s-exp_0))))) (if (parsed-with-continuation-mark? p3_0) (let ((s-exp_0 (let ((app_0 (let ((p_0 (parsed-with-continuation-mark-key p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - #f - #t))))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + #f + #t)))))) (let ((app_1 (let ((p_0 (parsed-with-continuation-mark-val p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - #f - #t))))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + #f + #t)))))) (list 'with-continuation-mark app_0 @@ -38517,13 +38823,14 @@ (let ((p_0 (parsed-with-continuation-mark-body p3_0))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0)))))))) - s-exp_0) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0))))))))) + (begin-unsafe s-exp_0)) (if (parsed-begin0? p3_0) (let ((s-exp_0 (let ((app_0 @@ -38531,12 +38838,13 @@ (car (parsed-begin0-body p3_0)))) - (begin - (compile$2 - p_0 - cctx4_0 - name1_0 - result-used?2_0))))) + (begin-unsafe + (begin + (compile$2 + p_0 + cctx4_0 + name1_0 + result-used?2_0)))))) (list* 'begin0 app_0 @@ -38561,12 +38869,13 @@ (let ((fold-var_1 (let ((fold-var_1 (cons - (begin - (compile$2 - e_0 - cctx4_0 - #f - #f)) + (begin-unsafe + (begin + (compile$2 + e_0 + cctx4_0 + #f + #f))) fold-var_0))) (values fold-var_1)))) @@ -38575,7 +38884,7 @@ rest_0)))) fold-var_0)))))) (for-loop_0 null lst_0))))))))) - s-exp_0) + (begin-unsafe s-exp_0)) (if (parsed-begin? p3_0) (let ((s-exp_0 (compile-begin @@ -38583,7 +38892,7 @@ cctx4_0 name1_0 result-used?2_0))) - s-exp_0) + (begin-unsafe s-exp_0)) (if (parsed-set!? p3_0) (let ((s-exp_0 (let ((temp21_0 @@ -38597,19 +38906,20 @@ (parsed-set!-id p3_0)))) (let ((p_1 p_0)) - (begin - (compile$2 - p_1 - cctx4_0 - name_0 - #t))))))) + (begin-unsafe + (begin + (compile$2 + p_1 + cctx4_0 + name_0 + #t)))))))) (let ((temp21_1 temp21_0)) (compile-identifier.1 temp24_0 #t temp21_1 cctx4_0)))))) - s-exp_0) + (begin-unsafe s-exp_0)) (if (parsed-let-values? p3_0) (compile-let.1 #f @@ -38629,17 +38939,17 @@ (parsed-quote-datum p3_0))) (if (self-quoting-in-linklet? datum_0) - datum_0 + (begin-unsafe datum_0) (let ((s-exp_0 (list 'quote datum_0))) - s-exp_0))) + (begin-unsafe s-exp_0)))) (if (parsed-quote-syntax? p3_0) (if result-used?2_0 (compile-quote-syntax (parsed-quote-syntax-datum p3_0) cctx4_0) (let ((s-exp_0 ''syntax)) - s-exp_0)) + (begin-unsafe s-exp_0))) (if (|parsed-#%variable-reference?| p3_0) (let ((id_0 @@ -38655,7 +38965,7 @@ id_0 cctx4_0)) '(|#%variable-reference|)))) - s-exp_0)) + (begin-unsafe s-exp_0))) (error "unrecognized parsed form:" p3_0)))))))))))))))))))))) @@ -38735,16 +39045,18 @@ (if or-part_0 or-part_0 inferred-name_0)))) (let ((named-s_0 (if name_0 - (let ((e_0 (datum->correlated s_0 #f))) + (let ((e_0 (begin-unsafe (datum->correlated s_0 #f)))) (let ((v_0 (if (syntax?$1 name_0) (syntax-e$1 name_0) name_0))) (let ((e_1 e_0)) - (syntax-property e_1 'inferred-name v_0)))) + (begin-unsafe + (syntax-property e_1 'inferred-name v_0))))) s_0))) (let ((as-method_0 (syntax-property$1 orig-s_0 'method-arity-error))) (if as-method_0 - (let ((e_0 (datum->correlated named-s_0 #f))) - (syntax-property e_0 'method-arity-error as-method_0)) + (let ((e_0 (begin-unsafe (datum->correlated named-s_0 #f)))) + (begin-unsafe + (syntax-property e_0 'method-arity-error as-method_0))) named-s_0))))))) (define compile-let.1 (|#%name| @@ -38865,17 +39177,18 @@ cctx8_0 name9_0 result-used?10_0)))))) - (let ((stx_1 stx_0)) s-exp_0)))))))) + (let ((stx_1 stx_0)) (begin-unsafe s-exp_0))))))))) (define add-undefined-error-name-property (lambda (sym_0 orig-id_0) - (let ((id_0 sym_0)) - (let ((e_0 (datum->correlated id_0 #f))) + (let ((id_0 (begin-unsafe sym_0))) + (let ((e_0 (begin-unsafe (datum->correlated id_0 #f)))) (let ((v_0 (let ((or-part_0 (syntax-property$1 orig-id_0 'undefined-error-name))) (if or-part_0 or-part_0 (syntax-e$1 orig-id_0))))) (let ((e_1 e_0)) - (syntax-property e_1 'undefined-error-name v_0))))))) + (begin-unsafe + (syntax-property e_1 'undefined-error-name v_0)))))))) (define compile-identifier.1 (|#%name| compile-identifier @@ -38978,18 +39291,18 @@ (let ((stx_0 (parsed-s p16_0))) (let ((s-exp_0 (if set-to?12_0 (list 'set! sym_0 set-to13_0) sym_0))) - (let ((stx_1 stx_0)) s-exp_0)))))))))) + (let ((stx_1 stx_0)) (begin-unsafe s-exp_0))))))))))) (define compile-quote-syntax (lambda (q_0 cctx_0) (let ((pos_0 (add-syntax-literal! (compile-context-header cctx_0) q_0))) (if (compile-context-lazy-syntax-literals? cctx_0) - (list get-syntax-literal!-id pos_0) - (list 'unsafe-vector*-ref syntax-literals-id pos_0))))) + (begin-unsafe (list get-syntax-literal!-id pos_0)) + (begin-unsafe (list 'unsafe-vector*-ref syntax-literals-id pos_0)))))) (define extra-inspectors-allow? (lambda (extra-inspectors_0 guard-insp_0) (if (not extra-inspectors_0) #f - (if (hash? extra-inspectors_0) + (if (begin-unsafe (hash? extra-inspectors_0)) (begin (letrec* ((for-loop_0 @@ -39034,7 +39347,9 @@ (if (let ((or-part_0 (not extra-inspectors-1_0))) (if or-part_0 or-part_0 (not extra-inspectors-2_0))) #f - (if (if (hash? extra-inspectors-1_0) (hash? extra-inspectors-2_0) #f) + (if (if (begin-unsafe (hash? extra-inspectors-1_0)) + (begin-unsafe (hash? extra-inspectors-2_0)) + #f) (set-union extra-inspectors-1_0 extra-inspectors-2_0) (lambda (guard-insp_0) (if (extra-inspectors-allow? extra-inspectors-1_0 guard-insp_0) @@ -39609,14 +39924,15 @@ (lambda (phase-to-body_0 phase_0 body_0) (begin (let ((xform_0 (lambda (l_0) (cons body_0 l_0)))) - (do-hash-update - 'hash-update! - #t - hash-set! - phase-to-body_0 - phase_0 - xform_0 - null)))))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + phase-to-body_0 + phase_0 + xform_0 + null))))))) (as-required?_0 (|#%name| as-required? @@ -39626,19 +39942,19 @@ (find-or-create-header!_0 (|#%name| find-or-create-header! - (lambda (mpis32_0 phase-to-header_0 syntax-literals_0 phase_0) + (lambda (mpis34_0 phase-to-header_0 syntax-literals_0 phase_0) (begin (let ((or-part_0 (hash-ref phase-to-header_0 phase_0 #f))) (if or-part_0 or-part_0 - (let ((header_0 (make-header mpis32_0 syntax-literals_0))) + (let ((header_0 (make-header mpis34_0 syntax-literals_0))) (begin (hash-set! phase-to-header_0 phase_0 header_0) header_0)))))))) (loop!_0 (|#%name| loop! - (lambda (mpis32_0 + (lambda (mpis34_0 phase-to-header_0 syntax-literals_0 bodys_0 @@ -39693,11 +40009,12 @@ sym_0 (header-binding-syms-in-order header_0))) - (hash-set! - (header-define-and-import-syms - header_0) - def-sym_0 - 'defined))) + (begin-unsafe + (hash-set! + (header-define-and-import-syms + header_0) + def-sym_0 + 'defined)))) (for-loop_1 rest_1)))) (values))))))) @@ -39709,13 +40026,13 @@ body_0))) (let ((app_1 (add1 phase_0))) (loop!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 app_0 app_1 (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 (add1 phase_0))))) @@ -39727,11 +40044,11 @@ (loop!_1 (|#%name| loop! - (lambda (cctx31_0 + (lambda (cctx33_0 compiled-expression-callback8_0 definition-callback9_0 last-i_0 - mpis32_0 + mpis34_0 other-form-callback10_0 phase-to-body_0 phase-to-header_0 @@ -39762,7 +40079,7 @@ body_0))) (let ((def-syms_0 (if (compile-context-module-self - cctx31_0) + cctx33_0) (reverse$1 (begin (letrec* @@ -39834,13 +40151,13 @@ (let ((fold-var_1 (let ((fold-var_1 (cons - (let ((temp58_0 + (let ((temp62_0 (compile-context-self - cctx31_0))) + cctx33_0))) (register-required-variable-use!.1 #t header_0 - temp58_0 + temp62_0 phase_0 binding-sym_0 #f)) @@ -39860,19 +40177,19 @@ body_0))) (let ((app_1 (if (compile-context? - cctx31_0) + cctx33_0) (let ((app_1 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_4 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_1 phase_0 @@ -39880,12 +40197,12 @@ app_3 app_4 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) header_0))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0)))) + cctx33_0)))) (compile$2 app_0 app_1 @@ -39920,7 +40237,7 @@ (parsed-s body_0)))) (if (let ((or-part_0 (compile-context-module-self - cctx31_0))) + cctx33_0))) (if or-part_0 or-part_0 (null? ids_0))) @@ -39976,19 +40293,19 @@ ids_0 binding-syms_0 (if (compile-context? - cctx31_0) + cctx33_0) (let ((app_0 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_1 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_0 phase_0 @@ -39996,12 +40313,12 @@ app_2 app_3 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) header_0))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0)) + cctx33_0)) #f))))))))) (if (parsed-define-syntaxes? body_0) (let ((ids_0 @@ -40012,7 +40329,7 @@ body_0))) (let ((next-header_0 (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 (add1 phase_0)))) @@ -40042,11 +40359,12 @@ binding-sym_0 next-header_0))) (begin - (hash-set! - (header-define-and-import-syms - next-header_0) - gen-sym_0 - 'defined) + (begin-unsafe + (hash-set! + (header-define-and-import-syms + next-header_0) + gen-sym_0 + 'defined)) gen-sym_0)) fold-var_0))) (values @@ -40065,35 +40383,35 @@ (compile$2 app_0 (if (compile-context? - cctx31_0) - (let ((phase67_0 + cctx33_0) + (let ((phase71_0 (add1 phase_0))) (let ((app_1 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_4 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_1 - phase67_0 + phase71_0 app_2 app_3 app_4 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) next-header_0)))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0)))))) + cctx33_0)))))) (begin (|#%app| definition-callback9_0) @@ -40162,7 +40480,7 @@ gen-syms_0)))))) (begin (if (compile-context-module-self - cctx31_0) + cctx33_0) (let ((app_0 (add1 phase_0))) @@ -40194,19 +40512,19 @@ ids_0 binding-syms_0 (if (compile-context? - cctx31_0) + cctx33_0) (let ((app_1 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_4 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_1 phase_0 @@ -40214,12 +40532,12 @@ app_3 app_4 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) header_0))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0)) + cctx33_0)) gen-syms_0))))) (unsafe-set-box*! saw-define-syntaxes?_0 @@ -40230,11 +40548,11 @@ body_0))) (let ((app_1 (add1 phase_0))) (loop!_1 - cctx31_0 + cctx33_0 compiled-expression-callback8_0 definition-callback9_0 last-i_0 - mpis32_0 + mpis34_0 other-form-callback10_0 phase-to-body_0 phase-to-header_0 @@ -40243,7 +40561,7 @@ app_0 app_1 (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 (add1 phase_0))))) @@ -40264,19 +40582,19 @@ other-form-callback10_0 body_0 (if (compile-context? - cctx31_0) + cctx33_0) (let ((app_0 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_1 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_0 phase_0 @@ -40284,12 +40602,12 @@ app_2 app_3 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) header_0))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0))))) + cctx33_0))))) (if e_0 (begin (|#%app| @@ -40306,19 +40624,19 @@ (let ((e_0 (let ((app_0 (if (compile-context? - cctx31_0) + cctx33_0) (let ((app_0 (compile-context-namespace - cctx31_0))) + cctx33_0))) (let ((app_1 (compile-context-self - cctx31_0))) + cctx33_0))) (let ((app_2 (compile-context-module-self - cctx31_0))) + cctx33_0))) (let ((app_3 (compile-context-full-module-name - cctx31_0))) + cctx33_0))) (compile-context1.1 app_0 phase_0 @@ -40326,12 +40644,12 @@ app_2 app_3 (compile-context-lazy-syntax-literals? - cctx31_0) + cctx33_0) header_0))))) (raise-argument-error 'struct-copy "compile-context?" - cctx31_0)))) + cctx33_0)))) (compile$2 body_0 app_0 @@ -40368,16 +40686,17 @@ root-ctx-only-if-syntax?7_0 serializable?12_0 to-correlated-linklet?14_0 - bodys30_0 - cctx31_0 - mpis32_0) + unsafe?-box16_0 + bodys32_0 + cctx33_0 + mpis34_0) (begin (let ((get-module-linklet-info_0 (if (eq? get-module-linklet-info11_0 unsafe-undefined) procz1 get-module-linklet-info11_0))) - (let ((phase_0 (compile-context-phase cctx31_0))) - (let ((self_0 (compile-context-self cctx31_0))) + (let ((phase_0 (compile-context-phase cctx33_0))) + (let ((self_0 (compile-context-self cctx33_0))) (let ((syntax-literals_0 (make-syntax-literals))) (let ((phase-to-body_0 (make-hasheqv))) (let ((phase-to-header_0 (make-hasheqv))) @@ -40395,7 +40714,7 @@ (begin (begin (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 phase_1) @@ -40408,36 +40727,36 @@ (for-loop_0 force-phases5_0))) (let ((saw-define-syntaxes?_0 (box #f))) (begin - (if (compile-context-module-self cctx31_0) + (if (compile-context-module-self cctx33_0) (loop!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 - bodys30_0 + bodys32_0 phase_0 (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 phase_0)) (void)) - (let ((last-i_0 (sub1 (length bodys30_0)))) + (let ((last-i_0 (sub1 (length bodys32_0)))) (begin (loop!_1 - cctx31_0 + cctx33_0 compiled-expression-callback8_0 definition-callback9_0 last-i_0 - mpis32_0 + mpis34_0 other-form-callback10_0 phase-to-body_0 phase-to-header_0 saw-define-syntaxes?_0 syntax-literals_0 - bodys30_0 + bodys32_0 phase_0 (find-or-create-header!_0 - mpis32_0 + mpis34_0 phase-to-header_0 syntax-literals_0 phase_0)) @@ -40450,9 +40769,10 @@ (if (not (unsafe-unbox* saw-define-syntaxes?_0)) - (null? - (syntax-literals-stxes - syntax-literals_0)) + (begin-unsafe + (null? + (syntax-literals-stxes + syntax-literals_0))) #f) #f)) (add-syntax-literal! @@ -40463,9 +40783,9 @@ #f) #f))) (let ((phases-in-order_0 - (let ((temp75_0 + (let ((temp79_0 (hash-keys phase-to-body_0))) - (sort.1 #f #f temp75_0 <)))) + (sort.1 #f #f temp79_0 <)))) (let ((min-phase_0 (if (pair? phases-in-order_0) (car phases-in-order_0) @@ -40504,7 +40824,7 @@ (generate-links+imports header_0 phase_1 - cctx31_0 + cctx33_0 optimize-linklet?15_0)) (case-lambda ((link-module-uses_0 @@ -40652,26 +40972,35 @@ (lambda () (if to-correlated-linklet?14_0 (values - (correlated-linklet1.1 - body-linklet_0 - 'module - #f) + (begin-unsafe + (correlated-linklet1.1 + body-linklet_0 + 'module + #f)) module-use*s_0) - (let ((temp86_0 - (compile-context-namespace - cctx31_0))) - (compile-module-linklet.1 - body-import-instances3_0 - body-imports2_0 - unsafe-undefined - get-module-linklet-info_0 - #f - module-prompt?13_0 - module-use*s_0 - temp86_0 - optimize-linklet?15_0 - serializable?12_0 - body-linklet_0)))) + (let ((temp89_0 + (if unsafe?-box16_0 + (unbox + unsafe?-box16_0) + #f))) + (let ((temp91_0 + (compile-context-namespace + cctx33_0))) + (let ((temp89_1 + temp89_0)) + (compile-module-linklet.1 + body-import-instances3_0 + body-imports2_0 + unsafe-undefined + get-module-linklet-info_0 + #f + module-prompt?13_0 + module-use*s_0 + temp91_0 + optimize-linklet?15_0 + serializable?12_0 + temp89_1 + body-linklet_0)))))) (case-lambda ((linklet_0 new-module-use*s_0) @@ -40812,7 +41141,7 @@ (let ((phase-to-link-module-uses-expr_0 (serialize-phase-to-link-module-uses phase-to-link-module-uses_0 - mpis32_0))) + mpis34_0))) (let ((phase-to-link-extra-inspectorsss_0 (begin (letrec* @@ -40916,8 +41245,9 @@ (let ((v_0 (namespace-get-root-expand-ctx (compile-context-namespace cctx_0)))) - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner v_0))))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner v_0)))))) (let ((self-expr_0 (add-module-path-index! mpis_0 self_0))) (list* 'begin @@ -41059,27 +41389,29 @@ (let ((v_0 (syntax-property$1 orig-s_0 'compiler-hint:cross-module-inline))) (if v_0 - (syntax-property e_0 'compiler-hint:cross-module-inline v_0) + (begin-unsafe + (syntax-property e_0 'compiler-hint:cross-module-inline v_0)) e_0)))) (define compile-module-linklet.1 (|#%name| compile-module-linklet - (lambda (body-import-instances36_0 - body-imports35_0 - compile-linklet34_0 - get-module-linklet-info37_0 - load-modules?42_0 - module-prompt?39_0 - module-use*s40_0 - namespace43_0 - optimize-linklet?41_0 - serializable?38_0 - body-linklet54_0) + (lambda (body-import-instances38_0 + body-imports37_0 + compile-linklet36_0 + get-module-linklet-info39_0 + load-modules?45_0 + module-prompt?41_0 + module-use*s42_0 + namespace46_0 + optimize-linklet?43_0 + serializable?40_0 + unsafe?44_0 + body-linklet58_0) (begin (let ((compile-linklet_0 - (if (eq? compile-linklet34_0 unsafe-undefined) + (if (eq? compile-linklet36_0 unsafe-undefined) compile-linklet - compile-linklet34_0))) + compile-linklet36_0))) (call-with-values (lambda () (begin @@ -41089,35 +41421,37 @@ (begin0 (let ((keys_0 (list->vector - (append body-import-instances36_0 module-use*s40_0)))) + (append body-import-instances38_0 module-use*s42_0)))) (let ((getter_0 (make-module-use-to-linklet - optimize-linklet?41_0 - load-modules?42_0 - namespace43_0 - get-module-linklet-info37_0 - module-use*s40_0))) + optimize-linklet?43_0 + load-modules?45_0 + namespace46_0 + get-module-linklet-info39_0 + module-use*s42_0))) (let ((keys_1 keys_0)) (|#%app| compile-linklet_0 - body-linklet54_0 + body-linklet58_0 'module keys_1 getter_0 - (if serializable?38_0 - (if module-prompt?39_0 - '(serializable use-prompt) - '(serializable)) - (if module-prompt?39_0 - '(use-prompt) - (if optimize-linklet?41_0 '() '(quick)))))))) + (let ((flags_0 + (if serializable?40_0 + (if module-prompt?41_0 + '(serializable use-prompt) + '(serializable)) + (if module-prompt?41_0 + '(use-prompt) + (if optimize-linklet?43_0 '() '(quick)))))) + (if unsafe?44_0 (cons 'unsafe flags_0) flags_0)))))) (if log-performance? (end-performance-region) (void))))) (case-lambda ((linklet_0 new-module-use*s_0) (values linklet_0 (let ((app_0 (vector->list new-module-use*s_0))) - (list-tail app_0 (length body-imports35_0))))) + (list-tail app_0 (length body-imports37_0))))) (args (raise-binding-result-arity-error 2 args))))))))) (define make-module-use-to-linklet (letrec ((intern-module-use*_0 @@ -41193,9 +41527,10 @@ (begin (if mli_0 (let ((insp_0 (module-linklet-info-inspector mli_0))) - (set-module-use*-self-inspector! - mu*-or-instance_0 - insp_0)) + (begin-unsafe + (set-module-use*-self-inspector! + mu*-or-instance_0 + insp_0))) (void)) (if mli_0 (let ((app_0 @@ -41485,7 +41820,8 @@ '(syntax-literals-trees) (list 'quote syntax-literals-trees_0))))) (if to-correlated-linklet?1_0 - (correlated-linklet1.1 linklet-s_0 #f #f) + (begin-unsafe + (correlated-linklet1.1 linklet-s_0 #f #f)) (compile-linklet linklet-s_0)))))))))))))))) (define map-cim-tree (letrec ((loop_0 @@ -42546,10 +42882,11 @@ (if or-part_2 or-part_2 (let ((or-part_3 - (hash-ref - built-in-symbols - v_0 - #f))) + (begin-unsafe + (hash-ref + built-in-symbols + v_0 + #f)))) (if or-part_3 or-part_3 (|#%app| @@ -44816,7 +45153,7 @@ (for-loop_0 table_1 rest_0)))) table_0)))))) (for-loop_0 hash2725 lst_0)))))) - (hash-count s_0)))) + (begin-unsafe (hash-count s_0))))) #f) #f) #f))))))) @@ -45063,7 +45400,7 @@ (for-loop_0 table_1 rest_0)))) table_0)))))) (for-loop_0 hash2725 lst_0)))))) - (hash-count s_0)))) + (begin-unsafe (hash-count s_0))))) #f) #f) #f))))))) @@ -45143,7 +45480,7 @@ loop (lambda (args_0 arity_1) (begin - (if (syntax? args_0) + (if (begin-unsafe (syntax? args_0)) (loop_0 (correlated-e args_0) arity_1) (if (null? args_0) (zero? arity_1) @@ -45202,7 +45539,8 @@ (if (let ((app_0 (length l_0))) (= app_0 - (let ((s_0 (list->set l_0))) (hash-count s_0)))) + (let ((s_0 (list->set l_0))) + (begin-unsafe (hash-count s_0))))) l_0 #f) #f)) @@ -45361,6 +45699,7 @@ #f serializable?1_0 to-correlated-linklet?3_0 + #f temp14_1 cctx8_0 mpis_0)))))))))) @@ -45437,7 +45776,11 @@ (list syntax-literals-id) syntax-literals-expr_0))))) (if to-correlated-linklet?3_0 - (correlated-linklet1.1 s_0 #f #f) + (begin-unsafe + (correlated-linklet1.1 + s_0 + #f + #f)) (begin (if log-performance? (start-performance-region @@ -45666,21 +46009,27 @@ (define select-defined-syms-and-bind!/ctx (lambda (tl-ids_0 ctx_0) (let ((temp36_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner ctx_0))))) (let ((temp37_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner ctx_0))))) (let ((temp38_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((temp39_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner ctx_0)))) - (let ((temp40_0 (root-expand-context/outer-frame-id ctx_0))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner ctx_0))))) + (let ((temp40_0 + (begin-unsafe (root-expand-context/outer-frame-id ctx_0)))) (let ((temp41_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner ctx_0))))) (let ((temp40_1 temp40_0) (temp39_1 temp39_0) (temp38_1 temp38_0) @@ -45720,8 +46069,9 @@ (let ((s_0 (add-scopes empty-syntax - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner root-ctx_0))))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner root-ctx_0)))))) (begin (begin (letrec* @@ -45787,8 +46137,9 @@ (values))))))) (for-loop_0 requires_0))) (let ((defined-syms_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner root-ctx_0))))) (begin (begin (letrec* @@ -45865,8 +46216,9 @@ (define shift-to-inside-root-context (lambda (root-context_0) (let ((outside-mpi_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner root-context_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner root-context_0))))) (let ((inside-mpi_0 (make-self-module-path-index (module-path-index-resolved outside-mpi_0)))) @@ -45877,9 +46229,10 @@ (if (root-expand-context/inner? the-struct_0) (let ((all-scopes-stx18_0 (let ((temp19_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner - root-context_0)))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner + root-context_0))))) (syntax-module-path-index-shift.1 #f temp19_0 @@ -45925,6 +46278,7 @@ 'struct-copy "root-expand-context/outer?" root-context_0)))))) +(define initial-code-inspector (current-code-inspector)) (define check-require-access.1 (|#%name| check-require-access @@ -46163,8 +46517,9 @@ syntax-literals-instance_0 module-body-instance-instance_0 import-instances_0) - (definitions-variables - (namespace->definitions ns_0 phase-level_0)))))))) + (begin-unsafe + (definitions-variables + (namespace->definitions ns_0 phase-level_0))))))))) (|#%name| eval-module (lambda (namespace1_0 supermodule-name3_0 with-submodules?2_0 c7_0) @@ -46191,7 +46546,8 @@ (let ((l_0 (hash-ref h_0 'stx-data #f))) (if l_0 (instantiate-linklet - (eval-linklet (force-compile-linklet l_0)) + (begin-unsafe + (eval-linklet (force-compile-linklet l_0))) (list deserialize-instance data-instance_0)) (if (eq? (hash-ref h_0 'module->namespace #f) @@ -46246,9 +46602,10 @@ (lambda () (values pos_0 - (eval-linklet - (force-compile-linklet - v_0)))) + (begin-unsafe + (eval-linklet + (force-compile-linklet + v_0))))) (case-lambda ((key_0 val_0) @@ -46277,8 +46634,10 @@ (let ((l_0 (hash-ref h_0 'stx #f))) (if l_0 - (eval-linklet - (force-compile-linklet l_0)) + (begin-unsafe + (eval-linklet + (force-compile-linklet + l_0))) #f)))) (let ((extra-inspector_0 (if (compiled-in-memory? c7_0) @@ -46291,25 +46650,29 @@ c7_0) hash2589))) (let ((requires_0 - (begin - (instance-variable-value - declaration-instance_0 - 'requires)))) + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'requires))))) (let ((provides_0 - (begin - (instance-variable-value - declaration-instance_0 - 'provides)))) + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'provides))))) (let ((original-self_0 - (begin - (instance-variable-value - declaration-instance_0 - 'self-mpi)))) + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'self-mpi))))) (let ((phase-to-link-modules_0 - (begin - (instance-variable-value - declaration-instance_0 - 'phase-to-link-modules)))) + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'phase-to-link-modules))))) (let ((create-root-expand-context-from-module_0 (make-create-root-expand-context-from-module requires_0 @@ -46613,9 +46976,10 @@ temp42_0)) (let ((module-body-instance-instance_0 (let ((temp50_0 - (if (eq? - phase-level_0 - 0) + (if (begin-unsafe + (eq? + phase-level_0 + 0)) procz1 (|#%name| temp50 @@ -46630,12 +46994,14 @@ val_0))))))) (make-module-body-instance-instance.1 temp50_0)))) - (if (eq? - phase-level_0 - 0) - (if (eq? - phase-shift_0 - 0) + (if (begin-unsafe + (eq? + phase-level_0 + 0)) + (if (begin-unsafe + (eq? + phase-shift_0 + 0)) (instantiate-body_0 import-instances_0 module-body-instance-instance_0 @@ -46915,7 +47281,8 @@ unsafe-undefined self_0))) #f))) - (set-box! (namespace-root-expand-ctx ns_0) root-ctx_0)) + (begin-unsafe + (set-box! (namespace-root-expand-ctx ns_0) root-ctx_0))) (if (procedure? get-encoded-root-expand-ctx_0) (let ((root-ctx_0 (promise1.1 @@ -46925,7 +47292,10 @@ (|#%app| get-encoded-root-expand-ctx_0) self_0))) #f))) - (set-box! (namespace-root-expand-ctx ns_0) root-ctx_0)) + (begin-unsafe + (set-box! + (namespace-root-expand-ctx ns_0) + root-ctx_0))) (let ((root-ctx_0 (promise1.1 (lambda () @@ -46937,9 +47307,10 @@ original-self_0 self_0))) #f))) - (set-box! - (namespace-root-expand-ctx ns_0) - root-ctx_0))))))))))))) + (begin-unsafe + (set-box! + (namespace-root-expand-ctx ns_0) + root-ctx_0)))))))))))))) (define force-syntax-deserialize (lambda (syntax-literals-data-instance_0 bulk-binding-registry_0) (if (let ((or-part_0 @@ -46989,7 +47360,7 @@ (make-data-instance-from-compiled-in-memory c_0) (instantiate-linklet (let ((l_0 (hash-ref h_0 'data))) - (eval-linklet (force-compile-linklet l_0))) + (begin-unsafe (eval-linklet (force-compile-linklet l_0)))) (list deserialize-instance))))) (let ((declaration-instance_0 (if (if (compiled-in-memory? c_0) @@ -46998,7 +47369,7 @@ (make-declaration-instance-from-compiled-in-memory c_0) (instantiate-linklet (let ((l_0 (hash-ref h_0 'decl))) - (eval-linklet (force-compile-linklet l_0))) + (begin-unsafe (eval-linklet (force-compile-linklet l_0)))) (list deserialize-instance data-instance_0))))) (values dh_0 h_0 data-instance_0 declaration-instance_0)))) (args (raise-binding-result-arity-error 2 args)))))) @@ -48227,381 +48598,323 @@ "compile-context?" cctx31_0)))) (let ((cross-phase-persistent?_0 (box #f))) - (let ((side-effects_0 (make-hasheqv))) - (let ((check-side-effects!_0 - (|#%name| - check-side-effects! - (lambda (e_0 - expected-results_0 - phase_0 - required-reference?_0) - (begin - (if (hash-ref - side-effects_0 - phase_0 - #f) - (void) - (if (any-side-effects?.1 - hash2610 - hash2610 - required-reference?_0 - e_0 - expected-results_0) - (hash-set! - side-effects_0 - phase_0 - #t) - (void)))))))) - (begin - (if (if need-compiled-submodule-rename?21_0 - modules-being-compiled18_0 - #f) - (begin - (if (null? post-submodules20_0) - (void) - (error - "internal error: have post submodules, but not already compiled")) - (register-compiled-submodules - modules-being-compiled18_0 - pre-submodules19_0 - self_0)) - (void)) - (call-with-values - (lambda () - (let ((temp60_0 - (list - (list - get-syntax-literal!-id) - (list - set-transformer!-id)))) - (let ((temp61_0 + (let ((unsafe?-box_0 (box #f))) + (let ((side-effects_0 (make-hasheqv))) + (let ((check-side-effects!_0 + (|#%name| + check-side-effects! + (lambda (e_0 + expected-results_0 + phase_0 + required-reference?_0) + (begin + (if (hash-ref + side-effects_0 + phase_0 + #f) + (void) + (if (any-side-effects?.1 + hash2610 + hash2610 + required-reference?_0 + e_0 + expected-results_0) + (hash-set! + side-effects_0 + phase_0 + #t) + (void)))))))) + (begin + (if (if need-compiled-submodule-rename?21_0 + modules-being-compiled18_0 + #f) + (begin + (if (null? + post-submodules20_0) + (void) + (error + "internal error: have post submodules, but not already compiled")) + (register-compiled-submodules + modules-being-compiled18_0 + pre-submodules19_0 + self_0)) + (void)) + (call-with-values + (lambda () + (let ((temp60_0 (list - empty-syntax-literals-instance - empty-module-body-instance))) - (let ((temp62_0 '((void)))) - (let ((temp63_0 '(0))) - (let ((temp67_0 - (lambda (body_0 - cctx_0) - (if (|parsed-#%declare?| - body_0) - (call-with-values - (lambda () - (let ((s_0 - (parsed-s - body_0))) - (call-with-values - (lambda () - (let ((s_1 - (if (syntax?$1 + (list + get-syntax-literal!-id) + (list + set-transformer!-id)))) + (let ((temp61_0 + (list + empty-syntax-literals-instance + empty-module-body-instance))) + (let ((temp62_0 '((void)))) + (let ((temp63_0 '(0))) + (let ((temp67_0 + (lambda (body_0 + cctx_0) + (if (|parsed-#%declare?| + body_0) + (call-with-values + (lambda () + (let ((s_0 + (parsed-s + body_0))) + (call-with-values + (lambda () + (let ((s_1 + (if (syntax?$1 + s_0) + (syntax-e$1 s_0) - (syntax-e$1 - s_0) - s_0))) - (if (pair? - s_1) - (let ((_0 - (let ((s_2 - (car - s_1))) - s_2))) - (let ((kw75_0 + s_0))) + (if (pair? + s_1) + (let ((_0 (let ((s_2 - (cdr + (car s_1))) - (let ((s_3 - (if (syntax?$1 + s_2))) + (let ((kw76_0 + (let ((s_2 + (cdr + s_1))) + (let ((s_3 + (if (syntax?$1 + s_2) + (syntax-e$1 s_2) - (syntax-e$1 - s_2) - s_2))) - (let ((flat-s_0 - (to-syntax-list.1 - s_3))) - (if (not - flat-s_0) - (raise-syntax-error$1 - #f - "bad syntax" - s_0) - flat-s_0)))))) - (let ((_1 - _0)) - (values - _1 - kw75_0)))) - (raise-syntax-error$1 - #f - "bad syntax" - s_0)))) - (case-lambda - ((_0 - kw73_0) - (values - #t - _0 - kw73_0)) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (case-lambda - ((ok?_0 - _0 - kw73_0) - (begin - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (lst_0) - (begin - (if (pair? - lst_0) - (let ((kw_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (begin - (begin - (if (eq? - (syntax-e$1 - kw_0) - kw2208) - (unsafe-set-box*! - cross-phase-persistent?_0 - #t) - (void)) - (if (eq? - (syntax-e$1 - kw_0) - kw2910) - (begin - (unsafe-set-box*! - empty-result-for-module->namespace?_0 - #t) - (set-box! - encoded-root-expand-ctx-box_0 - #f)) - (void))) - (for-loop_0 - rest_0)))) - (values))))))) - (for-loop_0 - kw73_0))) - (void) - #f)) - (args - (raise-binding-result-arity-error - 3 - args)))) - #f)))) - (let ((temp68_0 - (lambda (mod-name_0 - phase_0) - (let ((ht_0 - (if modules-being-compiled18_0 - (hash-ref - modules-being-compiled18_0 - mod-name_0 - #f) - #f))) - (if ht_0 - (hash-ref - ht_0 - phase_0 - #f) - #f))))) - (compile-forms.1 - temp61_0 - temp60_0 - temp62_0 - check-side-effects!_0 - void - encoded-root-expand-ctx-box_0 - temp63_0 - temp68_0 - #t - #t - temp67_0 - body-context-simple?_0 - serializable?16_0 - to-correlated-linklet?17_0 - bodys_0 - body-cctx_0 - mpis_0)))))))) - (case-lambda - ((body-linklets_0 - min-phase_0 - max-phase_0 - phase-to-link-module-uses_0 - phase-to-link-module-uses-expr_0 - phase-to-link-extra-inspectorsss_0 - syntax-literals_0 - root-ctx-pos_0) - (begin - (if modules-being-compiled18_0 - (let ((app_0 - (1/module-path-index-resolve - self_0))) - (hash-set! - modules-being-compiled18_0 - app_0 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (table_0 - i_0) - (begin - (if i_0 - (call-with-values - (lambda () - (hash-iterate-key+value - body-linklets_0 - i_0)) - (case-lambda - ((phase_0 - linklet_0) - (let ((table_1 - (let ((table_1 - (call-with-values - (lambda () + s_2))) + (let ((flat-s_0 + (to-syntax-list.1 + s_3))) + (if (not + flat-s_0) + (raise-syntax-error$1 + #f + "bad syntax" + s_0) + flat-s_0)))))) + (let ((_1 + _0)) (values - phase_0 - (let ((app_1 + _1 + kw76_0)))) + (raise-syntax-error$1 + #f + "bad syntax" + s_0)))) + (case-lambda + ((_0 + kw74_0) + (values + #t + _0 + kw74_0)) + (args + (raise-binding-result-arity-error + 2 + args)))))) + (case-lambda + ((ok?_0 + _0 + kw74_0) + (begin + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (lst_0) + (begin + (if (pair? + lst_0) + (let ((kw_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (begin + (begin + (if (eq? + (syntax-e$1 + kw_0) + kw2208) + (unsafe-set-box*! + cross-phase-persistent?_0 + #t) + (void)) + (if (eq? + (syntax-e$1 + kw_0) + kw2910) + (begin + (unsafe-set-box*! + empty-result-for-module->namespace?_0 + #t) + (set-box! + encoded-root-expand-ctx-box_0 + #f)) + (void)) + (if (eq? + (syntax-e$1 + kw_0) + kw2838) + (set-box! + unsafe?-box_0 + #t) + (void))) + (for-loop_0 + rest_0)))) + (values))))))) + (for-loop_0 + kw74_0))) + (void) + #f)) + (args + (raise-binding-result-arity-error + 3 + args)))) + #f)))) + (let ((temp68_0 + (lambda (mod-name_0 + phase_0) + (let ((ht_0 + (if modules-being-compiled18_0 + (hash-ref + modules-being-compiled18_0 + mod-name_0 + #f) + #f))) + (if ht_0 + (hash-ref + ht_0 + phase_0 + #f) + #f))))) + (compile-forms.1 + temp61_0 + temp60_0 + temp62_0 + check-side-effects!_0 + void + encoded-root-expand-ctx-box_0 + temp63_0 + temp68_0 + #t + #t + temp67_0 + body-context-simple?_0 + serializable?16_0 + to-correlated-linklet?17_0 + unsafe?-box_0 + bodys_0 + body-cctx_0 + mpis_0)))))))) + (case-lambda + ((body-linklets_0 + min-phase_0 + max-phase_0 + phase-to-link-module-uses_0 + phase-to-link-module-uses-expr_0 + phase-to-link-extra-inspectorsss_0 + syntax-literals_0 + root-ctx-pos_0) + (begin + (if modules-being-compiled18_0 + (let ((app_0 + (1/module-path-index-resolve + self_0))) + (hash-set! + modules-being-compiled18_0 + app_0 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (table_0 + i_0) + (begin + (if i_0 + (call-with-values + (lambda () + (hash-iterate-key+value + body-linklets_0 + i_0)) + (case-lambda + ((phase_0 + linklet_0) + (let ((table_1 + (let ((table_1 + (call-with-values + (lambda () + (values + phase_0 + (let ((app_1 + (hash-ref + phase-to-link-module-uses_0 + phase_0 + #f))) + (module-linklet-info2.1 + linklet_0 + app_1 + self_0 + #f + #f + (if phase-to-link-extra-inspectorsss_0 (hash-ref - phase-to-link-module-uses_0 + phase-to-link-extra-inspectorsss_0 phase_0 - #f))) - (module-linklet-info2.1 - linklet_0 - app_1 - self_0 - #f - #f - (if phase-to-link-extra-inspectorsss_0 - (hash-ref - phase-to-link-extra-inspectorsss_0 - phase_0 - #f) - #f))))) - (case-lambda - ((key_0 - val_0) - (hash-set - table_0 - key_0 - val_0)) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (values - table_1)))) - (for-loop_0 - table_1 - (hash-iterate-next - body-linklets_0 - i_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - table_0)))))) - (for-loop_0 - hash2610 - (hash-iterate-first - body-linklets_0)))))) - (void)) - (let ((declaration-linklet_0 - (if serializable?16_0 - (let ((s_0 - (generate-module-declaration-linklet - mpis_0 - self_0 - requires_0 - provides_0 - phase-to-link-module-uses-expr_0))) - (if to-correlated-linklet?17_0 - (correlated-linklet1.1 - s_0 - 'decl - #f) - (begin - (if log-performance? - (start-performance-region - 'compile - 'module - 'linklet) - (void)) - (begin0 - (compile-linklet - s_0 - 'decl) - (if log-performance? - (end-performance-region) - (void)))))) - #f))) - (let ((syntax-literals-linklet_0 - (if (not - (null? - (syntax-literals-stxes - syntax-literals_0))) + #f) + #f))))) + (case-lambda + ((key_0 + val_0) + (hash-set + table_0 + key_0 + val_0)) + (args + (raise-binding-result-arity-error + 2 + args)))))) + (values + table_1)))) + (for-loop_0 + table_1 + (hash-iterate-next + body-linklets_0 + i_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + table_0)))))) + (for-loop_0 + hash2610 + (hash-iterate-first + body-linklets_0)))))) + (void)) + (let ((declaration-linklet_0 + (if serializable?16_0 (let ((s_0 - (let ((app_0 - (list - deserialize-imports - (list - mpi-vector-id) - (list* - deserialized-syntax-vector-id - (if serializable?16_0 - (list - deserialize-syntax-id) - '())) - instance-imports))) - (list* - 'linklet - app_0 - (list* - get-syntax-literal!-id - '(get-encoded-root-expand-ctx)) - (let ((app_1 - (let ((temp79_0 - (not - serializable?16_0))) - (generate-lazy-syntax-literals!.1 - temp79_0 - syntax-literals_0 - mpis_0 - self_0)))) - (qq-append - app_1 - (list - (list - 'define-values - '(get-encoded-root-expand-ctx) - (if root-ctx-pos_0 - (list - 'lambda - '() - (list - get-syntax-literal!-id - root-ctx-pos_0)) - (if (unsafe-unbox* - empty-result-for-module->namespace?_0) - ''empty - ''#f)))))))))) + (generate-module-declaration-linklet + mpis_0 + self_0 + requires_0 + provides_0 + phase-to-link-module-uses-expr_0))) (if to-correlated-linklet?17_0 - (correlated-linklet1.1 - s_0 - 'syntax-literals - #f) + (begin-unsafe + (correlated-linklet1.1 + s_0 + 'decl + #f)) (begin (if log-performance? (start-performance-region @@ -48610,319 +48923,403 @@ 'linklet) (void)) (begin0 - (call-with-values - (lambda () - (compile-linklet - s_0 - 'syntax-literals - (vector - deserialize-instance - empty-top-syntax-literal-instance - empty-syntax-literals-data-instance - empty-instance-instance) - procz1 - (if serializable?16_0 - '(serializable) - '()))) - (case-lambda - ((linklet_0 - new-keys_0) - linklet_0) - (args - (raise-binding-result-arity-error - 2 - args)))) + (compile-linklet + s_0 + 'decl) (if log-performance? (end-performance-region) (void)))))) #f))) - (let ((syntax-literals-data-linklet_0 - (if serializable?16_0 - (if (not - (null? - (syntax-literals-stxes - syntax-literals_0))) - (let ((s_0 - (let ((app_0 - (list - 'define-values - (list - deserialized-syntax-vector-id) - (list* - 'make-vector - (syntax-literals-count - syntax-literals_0) - '(#f))))) - (list* - 'linklet - (list - deserialize-imports + (let ((syntax-literals-linklet_0 + (if (not + (begin-unsafe + (null? + (syntax-literals-stxes + syntax-literals_0)))) + (let ((s_0 + (let ((app_0 + (list + deserialize-imports + (list + mpi-vector-id) + (list* + deserialized-syntax-vector-id + (if serializable?16_0 + (list + deserialize-syntax-id) + '())) + instance-imports))) + (list* + 'linklet + app_0 + (list* + get-syntax-literal!-id + '(get-encoded-root-expand-ctx)) + (let ((app_1 + (let ((temp80_0 + (not + serializable?16_0))) + (generate-lazy-syntax-literals!.1 + temp80_0 + syntax-literals_0 + mpis_0 + self_0)))) + (qq-append + app_1 (list - mpi-vector-id)) - (list - deserialized-syntax-vector-id - deserialize-syntax-id) - app_0 - (begin - (if log-performance? - (start-performance-region - 'compile - 'module - 'serialize) - (void)) - (begin0 - (generate-lazy-syntax-literals-data! - syntax-literals_0 - mpis_0) - (if log-performance? - (end-performance-region) - (void)))))))) - (if to-correlated-linklet?17_0 - (correlated-linklet1.1 - s_0 - 'syntax-literals-data - #f) - (begin + (list + 'define-values + '(get-encoded-root-expand-ctx) + (if root-ctx-pos_0 + (list + 'lambda + '() + (begin-unsafe + (list + get-syntax-literal!-id + root-ctx-pos_0))) + (if (unsafe-unbox* + empty-result-for-module->namespace?_0) + ''empty + ''#f)))))))))) + (if to-correlated-linklet?17_0 + (begin-unsafe + (correlated-linklet1.1 + s_0 + 'syntax-literals + #f)) + (begin + (if log-performance? + (start-performance-region + 'compile + 'module + 'linklet) + (void)) + (begin0 + (call-with-values + (lambda () + (compile-linklet + s_0 + 'syntax-literals + (vector + deserialize-instance + empty-top-syntax-literal-instance + empty-syntax-literals-data-instance + empty-instance-instance) + procz1 + (if serializable?16_0 + '(serializable) + '()))) + (case-lambda + ((linklet_0 + new-keys_0) + linklet_0) + (args + (raise-binding-result-arity-error + 2 + args)))) (if log-performance? - (start-performance-region - 'compile - 'module - 'linklet) - (void)) - (begin0 - (compile-linklet - s_0 - 'syntax-literals-data - #f - #f - '(serializable)) - (if log-performance? - (end-performance-region) - (void)))))) - #f) + (end-performance-region) + (void)))))) #f))) - (let ((data-linklet_0 + (let ((syntax-literals-data-linklet_0 (if serializable?16_0 - (let ((s_0 - (generate-module-data-linklet - mpis_0))) - (if to-correlated-linklet?17_0 - (correlated-linklet1.1 - s_0 - 'data - #f) - (begin - (if log-performance? - (start-performance-region - 'compile - 'module - 'linklet) - (void)) - (begin0 - (compile-linklet - s_0 - 'data) + (if (not + (begin-unsafe + (null? + (syntax-literals-stxes + syntax-literals_0)))) + (let ((s_0 + (let ((app_0 + (list + 'define-values + (list + deserialized-syntax-vector-id) + (list* + 'make-vector + (syntax-literals-count + syntax-literals_0) + '(#f))))) + (list* + 'linklet + (list + deserialize-imports + (list + mpi-vector-id)) + (list + deserialized-syntax-vector-id + deserialize-syntax-id) + app_0 + (begin + (if log-performance? + (start-performance-region + 'compile + 'module + 'serialize) + (void)) + (begin0 + (generate-lazy-syntax-literals-data! + syntax-literals_0 + mpis_0) + (if log-performance? + (end-performance-region) + (void)))))))) + (if to-correlated-linklet?17_0 + (begin-unsafe + (correlated-linklet1.1 + s_0 + 'syntax-literals-data + #f)) + (begin (if log-performance? - (end-performance-region) - (void)))))) + (start-performance-region + 'compile + 'module + 'linklet) + (void)) + (begin0 + (compile-linklet + s_0 + 'syntax-literals-data + #f + #f + '(serializable)) + (if log-performance? + (end-performance-region) + (void)))))) + #f) #f))) - (let ((bundle_0 - (let ((bundle_0 - (hash-set - body-linklets_0 - 'name - full-module-name14_0))) - (let ((bundle_1 + (let ((data-linklet_0 + (if serializable?16_0 + (let ((s_0 + (generate-module-data-linklet + mpis_0))) + (if to-correlated-linklet?17_0 + (begin-unsafe + (correlated-linklet1.1 + s_0 + 'data + #f)) + (begin + (if log-performance? + (start-performance-region + 'compile + 'module + 'linklet) + (void)) + (begin0 + (compile-linklet + s_0 + 'data) + (if log-performance? + (end-performance-region) + (void)))))) + #f))) + (let ((bundle_0 + (let ((bundle_0 (hash-set - bundle_0 - 'decl - (if declaration-linklet_0 - declaration-linklet_0 - 'in-memory)))) - (let ((bundle_2 - (if data-linklet_0 - (hash-set - bundle_1 - 'data - data-linklet_0) - bundle_1))) - (let ((bundle_3 - (if syntax-literals-linklet_0 + body-linklets_0 + 'name + full-module-name14_0))) + (let ((bundle_1 + (hash-set + bundle_0 + 'decl + (if declaration-linklet_0 + declaration-linklet_0 + 'in-memory)))) + (let ((bundle_2 + (if data-linklet_0 (hash-set - bundle_2 - 'stx - syntax-literals-linklet_0) - bundle_2))) - (let ((bundle_4 - (if syntax-literals-data-linklet_0 + bundle_1 + 'data + data-linklet_0) + bundle_1))) + (let ((bundle_3 + (if syntax-literals-linklet_0 (hash-set - bundle_3 - 'stx-data - syntax-literals-data-linklet_0) - bundle_3))) - (let ((bundle_5 - (if (null? - pre-submodules19_0) - bundle_4 + bundle_2 + 'stx + syntax-literals-linklet_0) + bundle_2))) + (let ((bundle_4 + (if syntax-literals-data-linklet_0 (hash-set - bundle_4 - 'pre - (map_2960 - car - pre-submodules19_0))))) - (let ((bundle_6 + bundle_3 + 'stx-data + syntax-literals-data-linklet_0) + bundle_3))) + (let ((bundle_5 (if (null? - post-submodules20_0) - bundle_5 + pre-submodules19_0) + bundle_4 (hash-set - bundle_5 - 'post + bundle_4 + 'pre (map_2960 car - post-submodules20_0))))) - (let ((bundle_7 - (if (unsafe-unbox* - cross-phase-persistent?_0) + pre-submodules19_0))))) + (let ((bundle_6 + (if (null? + post-submodules20_0) + bundle_5 (hash-set - bundle_6 - 'cross-phase-persistent? - #t) - bundle_6))) - (let ((bundle_8 - (if language-info_0 + bundle_5 + 'post + (map_2960 + car + post-submodules20_0))))) + (let ((bundle_7 + (if (unsafe-unbox* + cross-phase-persistent?_0) (hash-set - bundle_7 - 'language-info - language-info_0) - bundle_7))) - (let ((bundle_9 - (if (zero? - min-phase_0) - bundle_8 + bundle_6 + 'cross-phase-persistent? + #t) + bundle_6))) + (let ((bundle_8 + (if language-info_0 (hash-set - bundle_8 - 'min-phase - min-phase_0)))) - (let ((bundle_10 + bundle_7 + 'language-info + language-info_0) + bundle_7))) + (let ((bundle_9 (if (zero? - max-phase_0) - bundle_9 + min-phase_0) + bundle_8 (hash-set - bundle_9 - 'max-phase - max-phase_0)))) - (let ((bundle_11 - (if (hash-count - side-effects_0) + bundle_8 + 'min-phase + min-phase_0)))) + (let ((bundle_10 + (if (zero? + max-phase_0) + bundle_9 (hash-set - bundle_10 - 'side-effects - (let ((temp80_0 - (hash-keys - side-effects_0))) - (sort.1 - #f - #f - temp80_0 - <))) - bundle_10))) - (let ((bundle_12 - (if (unsafe-unbox* - empty-result-for-module->namespace?_0) + bundle_9 + 'max-phase + max-phase_0)))) + (let ((bundle_11 + (if (hash-count + side-effects_0) (hash-set - bundle_11 - 'module->namespace - 'empty) - bundle_11))) - (hash->linklet-bundle - bundle_12)))))))))))))))) - (let ((ld_0 - (if (if (null? - pre-submodules19_0) - (if (null? - post-submodules20_0) - (not - force-linklet-directory?15_0) + bundle_10 + 'side-effects + (let ((temp81_0 + (hash-keys + side-effects_0))) + (sort.1 + #f + #f + temp81_0 + <))) + bundle_10))) + (let ((bundle_12 + (if (unsafe-unbox* + empty-result-for-module->namespace?_0) + (hash-set + bundle_11 + 'module->namespace + 'empty) + bundle_11))) + (let ((bundle_13 + (if (unbox + unsafe?-box_0) + (hash-set + bundle_12 + 'unsafe? + #t) + bundle_12))) + (hash->linklet-bundle + bundle_13))))))))))))))))) + (let ((ld_0 + (if (if (null? + pre-submodules19_0) + (if (null? + post-submodules20_0) + (not + force-linklet-directory?15_0) + #f) #f) - #f) - bundle_0 - (let ((ht_0 - (let ((lst_0 - (append - pre-submodules19_0 - post-submodules20_0))) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (ht_0 - lst_1) - (begin - (if (pair? - lst_1) - (let ((sm_0 - (unsafe-car - lst_1))) - (let ((rest_0 - (unsafe-cdr + bundle_0 + (let ((ht_0 + (let ((lst_0 + (append + pre-submodules19_0 + post-submodules20_0))) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (ht_0 + lst_1) + (begin + (if (pair? + lst_1) + (let ((sm_0 + (unsafe-car lst_1))) - (let ((ht_1 - (let ((ht_1 - (let ((app_0 - (car - sm_0))) - (hash-set - ht_0 - app_0 - (compiled-in-memory-linklet-directory - (cdr - sm_0)))))) - (values - ht_1)))) - (for-loop_0 - ht_1 - rest_0)))) - ht_0)))))) - (for-loop_0 - (hasheq - #f - bundle_0) - lst_0)))))) - (hash->linklet-directory - ht_0))))) - (let ((app_0 - (current-code-inspector))) - (let ((app_1 - (mpis-as-vector - mpis_0))) - (let ((app_2 - (syntax-literals-as-vector - syntax-literals_0))) - (let ((app_3 - (map_2960 - cdr - pre-submodules19_0))) - (compiled-in-memory1.1 - ld_0 - self_0 - requires_0 - provides_0 - phase-to-link-module-uses_0 - app_0 - phase-to-link-extra-inspectorsss_0 - app_1 - app_2 - app_3 - (map_2960 - cdr - post-submodules20_0) - #f - #f))))))))))))) - (args - (raise-binding-result-arity-error - 8 - args))))))))))))))))))) + (let ((rest_0 + (unsafe-cdr + lst_1))) + (let ((ht_1 + (let ((ht_1 + (let ((app_0 + (car + sm_0))) + (hash-set + ht_0 + app_0 + (compiled-in-memory-linklet-directory + (cdr + sm_0)))))) + (values + ht_1)))) + (for-loop_0 + ht_1 + rest_0)))) + ht_0)))))) + (for-loop_0 + (hasheq + #f + bundle_0) + lst_0)))))) + (hash->linklet-directory + ht_0))))) + (let ((app_0 + (current-code-inspector))) + (let ((app_1 + (mpis-as-vector + mpis_0))) + (let ((app_2 + (syntax-literals-as-vector + syntax-literals_0))) + (let ((app_3 + (map_2960 + cdr + pre-submodules19_0))) + (compiled-in-memory1.1 + ld_0 + self_0 + requires_0 + provides_0 + phase-to-link-module-uses_0 + app_0 + phase-to-link-extra-inspectorsss_0 + app_1 + app_2 + app_3 + (map_2960 + cdr + post-submodules20_0) + #f + #f))))))))))))) + (args + (raise-binding-result-arity-error + 8 + args)))))))))))))))))))) (if log-performance? (end-performance-region) (void))))))))) (define update-submodule-names (lambda (cim_0 name_0 full-module-name_0) @@ -49369,248 +49766,165 @@ (for-loop_0 0)))) (args (raise-binding-result-arity-error 2 args)))) (let ((self_0 - (begin - (instance-variable-value - declaration-instance_0 - 'self-mpi)))) + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'self-mpi))))) (let ((phase-to-link-modules_0 - (begin - (instance-variable-value - declaration-instance_0 - 'phase-to-link-modules)))) - (let ((find-submodule_0 - (|#%name| - find-submodule - (lambda (mod-name_0 phase_0) - (begin - (let ((find-l_0 - (1/resolved-module-path-name - mod-name_0))) - (let ((self-l_0 + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'phase-to-link-modules))))) + (let ((unsafe?_0 (hash-ref orig-h_0 'unsafe? #f))) + (let ((find-submodule_0 + (|#%name| + find-submodule + (lambda (mod-name_0 phase_0) + (begin + (let ((find-l_0 (1/resolved-module-path-name - (1/module-path-index-resolve - self_0)))) - (if (let ((app_0 (root-of_0 find-l_0))) - (equal? - app_0 - (root-of_0 self-l_0))) - (let ((r_0 - (|#%app| - get-submodule-recompiled_0 - (if (pair? find-l_0) - (cdr find-l_0) - '())))) - (begin - (if (eq? r_0 'in-process) - (raise-arguments-error - 'compiled-expression-recompile - "cycle in linklet imports") - (void)) - (let ((b_1 - (recompiled-bundle r_0))) - (let ((linklet_0 - (let ((or-part_0 - (hash-ref - (linklet-bundle->hash - b_1) - phase_0 - #f))) - (if or-part_0 - or-part_0 - (raise-arguments-error - 'compiled-expression-recompile - "cannot find submodule at phase" - "submodule" - mod-name_0 - "phase" - phase_0))))) - (let ((app_0 - (hash-ref - (recompiled-phase-to-link-module-uses - r_0) - phase_0 - #f))) - (let ((app_1 - (recompiled-self - r_0))) - (module-linklet-info2.1 - linklet_0 - app_0 - app_1 - #f - (current-code-inspector) - #f))))))) - #f)))))))) - (let ((body-linklets+module-use*s_0 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (table_0 i_0) - (begin - (if i_0 - (call-with-values - (lambda () - (hash-iterate-key+value - h_0 - i_0)) - (case-lambda - ((phase_0 body-linklet_0) - (let ((table_1 - (if (exact-integer? - phase_0) - (let ((table_1 - (call-with-values - (lambda () - (let ((module-use*s_0 - (module-uses-add-extra-inspectorsss - (hash-ref - phase-to-link-modules_0 - phase_0) - #f))) - (call-with-values - (lambda () - (let ((temp3_0 - (if (correlated-linklet? - body-linklet_0) - (correlated-linklet-expr - body-linklet_0) - body-linklet_0))) - (let ((temp4_0 - (if (correlated-linklet? - body-linklet_0) - compile-linklet - recompile-linklet))) - (let ((temp5_0 - (list - (list - get-syntax-literal!-id) - (list - set-transformer!-id)))) - (let ((temp6_0 - (list - empty-syntax-literals-instance - empty-module-body-instance))) - (let ((temp5_1 - temp5_0) - (temp4_1 - temp4_0) - (temp3_1 - temp3_0)) - (compile-module-linklet.1 - temp6_0 - temp5_1 - temp4_1 - find-submodule_0 - #t - #t - module-use*s_0 - ns_0 - #t - #t - temp3_1))))))) - (case-lambda - ((linklet_0 - new-module-use*s_0) - (values - phase_0 - (cons - linklet_0 - new-module-use*s_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (case-lambda - ((key_0 - val_0) - (hash-set - table_0 - key_0 - val_0)) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (values table_1)) - table_0))) - (for-loop_0 - table_1 - (hash-iterate-next - h_0 - i_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - table_0)))))) - (for-loop_0 - hash2725 - (hash-iterate-first h_0)))))) - (let ((h/new-body-linklets_0 + mod-name_0))) + (let ((self-l_0 + (1/resolved-module-path-name + (1/module-path-index-resolve + self_0)))) + (if (let ((app_0 + (root-of_0 find-l_0))) + (equal? + app_0 + (root-of_0 self-l_0))) + (let ((r_0 + (|#%app| + get-submodule-recompiled_0 + (if (pair? find-l_0) + (cdr find-l_0) + '())))) + (begin + (if (eq? r_0 'in-process) + (raise-arguments-error + 'compiled-expression-recompile + "cycle in linklet imports") + (void)) + (let ((b_1 + (recompiled-bundle + r_0))) + (let ((linklet_0 + (let ((or-part_0 + (hash-ref + (linklet-bundle->hash + b_1) + phase_0 + #f))) + (if or-part_0 + or-part_0 + (raise-arguments-error + 'compiled-expression-recompile + "cannot find submodule at phase" + "submodule" + mod-name_0 + "phase" + phase_0))))) + (let ((app_0 + (hash-ref + (recompiled-phase-to-link-module-uses + r_0) + phase_0 + #f))) + (let ((app_1 + (recompiled-self + r_0))) + (module-linklet-info2.1 + linklet_0 + app_0 + app_1 + #f + (current-code-inspector) + #f))))))) + #f)))))))) + (let ((body-linklets+module-use*s_0 (begin (letrec* ((for-loop_0 (|#%name| for-loop - (lambda (h_1 i_0) + (lambda (table_0 i_0) (begin (if i_0 (call-with-values (lambda () (hash-iterate-key+value - body-linklets+module-use*s_0 + h_0 i_0)) (case-lambda - ((phase_0 l+mu*s_0) - (let ((h_2 - (let ((h_2 - (hash-set - h_1 - phase_0 - (car - l+mu*s_0)))) - (values h_2)))) - (for-loop_0 - h_2 - (hash-iterate-next - body-linklets+module-use*s_0 - i_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - h_1)))))) - (for-loop_0 - h_0 - (hash-iterate-first - body-linklets+module-use*s_0)))))) - (let ((phase-to-link-module-uses_0 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (table_0 i_0) - (begin - (if i_0 - (call-with-values - (lambda () - (hash-iterate-key+value - body-linklets+module-use*s_0 - i_0)) - (case-lambda - ((phase_0 l+mu*s_0) - (let ((table_1 + ((phase_0 body-linklet_0) + (let ((table_1 + (if (exact-integer? + phase_0) (let ((table_1 (call-with-values (lambda () - (values - phase_0 - (module-uses-strip-extra-inspectorsss - (cdr - l+mu*s_0)))) + (let ((module-use*s_0 + (module-uses-add-extra-inspectorsss + (hash-ref + phase-to-link-modules_0 + phase_0) + #f))) + (call-with-values + (lambda () + (let ((temp3_0 + (if (correlated-linklet? + body-linklet_0) + (correlated-linklet-expr + body-linklet_0) + body-linklet_0))) + (let ((temp4_0 + (if (correlated-linklet? + body-linklet_0) + compile-linklet + recompile-linklet))) + (let ((temp5_0 + (list + (list + get-syntax-literal!-id) + (list + set-transformer!-id)))) + (let ((temp6_0 + (list + empty-syntax-literals-instance + empty-module-body-instance))) + (let ((temp5_1 + temp5_0) + (temp4_1 + temp4_0) + (temp3_1 + temp3_0)) + (compile-module-linklet.1 + temp6_0 + temp5_1 + temp4_1 + find-submodule_0 + #t + #t + module-use*s_0 + ns_0 + #t + #t + unsafe?_0 + temp3_1))))))) + (case-lambda + ((linklet_0 + new-module-use*s_0) + (values + phase_0 + (cons + linklet_0 + new-module-use*s_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))) (case-lambda ((key_0 val_0) @@ -49622,10 +49936,47 @@ (raise-binding-result-arity-error 2 args)))))) - (values - table_1)))) + (values table_1)) + table_0))) + (for-loop_0 + table_1 + (hash-iterate-next + h_0 + i_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + table_0)))))) + (for-loop_0 + hash2725 + (hash-iterate-first h_0)))))) + (let ((h/new-body-linklets_0 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (h_1 i_0) + (begin + (if i_0 + (call-with-values + (lambda () + (hash-iterate-key+value + body-linklets+module-use*s_0 + i_0)) + (case-lambda + ((phase_0 l+mu*s_0) + (let ((h_2 + (let ((h_2 + (hash-set + h_1 + phase_0 + (car + l+mu*s_0)))) + (values h_2)))) (for-loop_0 - table_1 + h_2 (hash-iterate-next body-linklets+module-use*s_0 i_0)))) @@ -49633,53 +49984,108 @@ (raise-binding-result-arity-error 2 args)))) - table_0)))))) + h_1)))))) (for-loop_0 - hash2610 + h_0 (hash-iterate-first body-linklets+module-use*s_0)))))) - (let ((phase-to-link-module-uses-expr_0 - (serialize-phase-to-link-module-uses - phase-to-link-module-uses_0 - mpis_0))) - (let ((data-linklet_0 - (compile-linklet - (generate-module-data-linklet mpis_0) - 'data))) - (let ((declaration-linklet_0 - (compile-linklet - (let ((app_0 - (begin - (instance-variable-value - declaration-instance_0 - 'requires)))) - (generate-module-declaration-linklet - mpis_0 - self_0 - app_0 + (let ((phase-to-link-module-uses_0 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (table_0 i_0) (begin - (instance-variable-value - declaration-instance_0 - 'provides)) - phase-to-link-module-uses-expr_0)) - 'decl))) - (let ((new-bundle_0 - (hash->linklet-bundle - (let ((h_1 - (hash-set - h/new-body-linklets_0 - 'data - data-linklet_0))) - (let ((h_2 + (if i_0 + (call-with-values + (lambda () + (hash-iterate-key+value + body-linklets+module-use*s_0 + i_0)) + (case-lambda + ((phase_0 l+mu*s_0) + (let ((table_1 + (let ((table_1 + (call-with-values + (lambda () + (values + phase_0 + (module-uses-strip-extra-inspectorsss + (cdr + l+mu*s_0)))) + (case-lambda + ((key_0 + val_0) + (hash-set + table_0 + key_0 + val_0)) + (args + (raise-binding-result-arity-error + 2 + args)))))) + (values + table_1)))) + (for-loop_0 + table_1 + (hash-iterate-next + body-linklets+module-use*s_0 + i_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + table_0)))))) + (for-loop_0 + hash2610 + (hash-iterate-first + body-linklets+module-use*s_0)))))) + (let ((phase-to-link-module-uses-expr_0 + (serialize-phase-to-link-module-uses + phase-to-link-module-uses_0 + mpis_0))) + (let ((data-linklet_0 + (compile-linklet + (generate-module-data-linklet + mpis_0) + 'data))) + (let ((declaration-linklet_0 + (compile-linklet + (let ((app_0 + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'requires))))) + (generate-module-declaration-linklet + mpis_0 + self_0 + app_0 + (begin-unsafe + (begin + (instance-variable-value + declaration-instance_0 + 'provides))) + phase-to-link-module-uses-expr_0)) + 'decl))) + (let ((new-bundle_0 + (hash->linklet-bundle + (let ((h_1 (hash-set - h_1 - 'decl - declaration-linklet_0))) - h_2))))) - (recompiled1.1 - new-bundle_0 - phase-to-link-module-uses_0 - self_0))))))))))))))))))))) + h/new-body-linklets_0 + 'data + data-linklet_0))) + (let ((h_2 + (hash-set + h_1 + 'decl + declaration-linklet_0))) + h_2))))) + (recompiled1.1 + new-bundle_0 + phase-to-link-module-uses_0 + self_0)))))))))))))))))))))) (define create-compiled-in-memorys-using-shared-data (letrec ((data_0 (|#%name| @@ -49774,33 +50180,39 @@ ns_0 temp3_1)))))))))) (let ((mpi-vector_0 - (begin - (instance-variable-value data-instance_0 mpi-vector-id)))) + (begin-unsafe + (begin + (instance-variable-value data-instance_0 mpi-vector-id))))) (let ((mpi-vector-trees_0 - (begin - (instance-variable-value - data-instance_0 - 'mpi-vector-trees)))) + (begin-unsafe + (begin + (instance-variable-value + data-instance_0 + 'mpi-vector-trees))))) (let ((phase-to-link-modules-vector_0 - (begin - (instance-variable-value - data-instance_0 - 'phase-to-link-modules-vector)))) + (begin-unsafe + (begin + (instance-variable-value + data-instance_0 + 'phase-to-link-modules-vector))))) (let ((phase-to-link-modules-trees_0 - (begin - (instance-variable-value - data-instance_0 - 'phase-to-link-modules-trees)))) + (begin-unsafe + (begin + (instance-variable-value + data-instance_0 + 'phase-to-link-modules-trees))))) (let ((syntax-literals_0 - (begin - (instance-variable-value - data-instance_0 - 'syntax-literals)))) + (begin-unsafe + (begin + (instance-variable-value + data-instance_0 + 'syntax-literals))))) (let ((syntax-literals-trees_0 - (begin - (instance-variable-value - data-instance_0 - 'syntax-literals-trees)))) + (begin-unsafe + (begin + (instance-variable-value + data-instance_0 + 'syntax-literals-trees))))) (let ((namespace-scopes_0 (extract-namespace-scopes ns_0))) (letrec* ((construct-compiled-in-memory_0 @@ -50430,15 +50842,17 @@ app_0 (namespace-0-phase ns9_0))))) - (definitions-variables - (namespace->definitions - ns9_0 - phase-shift_1))) + (begin-unsafe + (definitions-variables + (namespace->definitions + ns9_0 + phase-shift_1)))) (not tail?_0))))))) - (if (eq? - pos_0 - 0) + (if (begin-unsafe + (eq? + pos_0 + 0)) instantiate_0 (if single-expression?5_0 (|#%name| @@ -50878,10 +51292,11 @@ lift-env_0 (let ((env_0 (unbox lift-env_0))) - (hash-set - env_0 - key_0 - variable))) + (begin-unsafe + (hash-set + env_0 + key_0 + variable)))) key_0)) fold-var_0))) (values fold-var_1)))) @@ -50896,9 +51311,11 @@ (post-expansion-scope (let ((v_0 (namespace-get-root-expand-ctx - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0))))) - (root-expand-context/outer-post-expansion v_0))))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0)))))) + (begin-unsafe + (root-expand-context/outer-post-expansion v_0)))))) (let ((tl-ids_0 (reverse$1 (begin @@ -51464,7 +51881,9 @@ (lambda (t_0 ctx_0) (if (expansion-contexts? t_0) (not - (let ((app_0 (context->symbol (expand-context/outer-context ctx_0)))) + (let ((app_0 + (context->symbol + (begin-unsafe (expand-context/outer-context ctx_0))))) (memq app_0 (expansion-contexts-ref t_0)))) #f))) (define context->symbol @@ -51479,7 +51898,8 @@ #f (format "not allowed in context\n expansion context: ~a" - (context->symbol (expand-context/outer-context ctx_0))) + (context->symbol + (begin-unsafe (expand-context/outer-context ctx_0)))) s_0))))) (wrap_0 (|#%name| @@ -51492,11 +51912,14 @@ (let ((app_0 (datum->syntax$1 core-stx sym_0))) (syntax-shift-phase-level$1 app_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) s_0))))))) (lambda (s_0 t_0 ctx_0) - (let ((tmp_0 (context->symbol (expand-context/outer-context ctx_0)))) + (let ((tmp_0 + (context->symbol + (begin-unsafe (expand-context/outer-context ctx_0))))) (if (eq? tmp_0 'module-begin) (wrap_0 ctx_0 s_0 'begin) (if (if (eq? tmp_0 'module) @@ -51586,12 +52009,12 @@ (define reference-record-used! (lambda (rr_0 key_0) (if (let ((s_0 (reference-record-already-bound rr_0))) - (hash-ref s_0 key_0 #f)) + (begin-unsafe (hash-ref s_0 key_0 #f))) (void) (set-reference-record-reference-before-bound! rr_0 (let ((s_0 (reference-record-reference-before-bound rr_0))) - (hash-set s_0 key_0 #t)))))) + (begin-unsafe (hash-set s_0 key_0 #t))))))) (define reference-records-all-used! (letrec ((for-loop_0 (|#%name| @@ -51628,7 +52051,8 @@ (let ((key_0 (unsafe-car lst_0))) (let ((rest_0 (unsafe-cdr lst_0))) (let ((ab_1 - (let ((ab_1 (hash-set ab_0 key_0 #t))) + (let ((ab_1 + (begin-unsafe (hash-set ab_0 key_0 #t)))) (values ab_1)))) (for-loop_0 ab_1 rest_0)))) ab_0)))))) @@ -51646,7 +52070,8 @@ (let ((key_0 (unsafe-car lst_0))) (let ((rest_0 (unsafe-cdr lst_0))) (let ((rbb_1 - (let ((rbb_1 (hash-remove rbb_0 key_0))) + (let ((rbb_1 + (begin-unsafe (hash-remove rbb_0 key_0)))) (values rbb_1)))) (for-loop_0 rbb_1 rest_0)))) rbb_0)))))) @@ -51660,7 +52085,7 @@ or-part_0 (positive? (let ((s_0 (reference-record-reference-before-bound rr_0))) - (hash-count s_0))))))) + (begin-unsafe (hash-count s_0)))))))) (define reference-record-clear! (lambda (rr_0) (begin @@ -52001,14 +52426,16 @@ (begin (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx6_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx6_0))))) (if obs_0 (call-expand-observe obs_0 'visit s5_0) (void))) (let ((content_0 (syntax-content s5_0))) (if (symbol? content_0) (expand-identifier s5_0 ctx6_0 alternate-id1_0) (if (if (pair? content_0) - (let ((s_0 (car content_0))) (symbol? (syntax-content s_0))) + (let ((s_0 (car content_0))) + (begin-unsafe (symbol? (syntax-content s_0)))) #f) (expand-id-application-form.1 fail-non-transformer2_0 @@ -52026,22 +52453,26 @@ (let ((id_0 (if alternate-id_0 alternate-id_0 s_0))) (if (if (not (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set)))) (let ((app_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) (free-id-set-member? app_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) id_0)) #f) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (begin (call-expand-observe obs_0 'resolve id_0) @@ -52050,13 +52481,15 @@ s_0) (let ((binding_0 (let ((temp103_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (resolve+shift.1 'ambiguous #f null #t #f id_0 temp103_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'resolve id_0) (void))) (if (eq? binding_0 'ambiguous) (raise-ambiguous-error id_0 ctx_0) @@ -52070,8 +52503,9 @@ (lambda () (let ((temp117_0 (if alternate-id_0 s_0 #f))) (let ((temp118_0 - (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner ctx_0))))) (let ((temp117_1 temp117_0)) (lookup.1 temp117_1 @@ -52103,22 +52537,26 @@ (car (syntax-e/no-taint s10_0))))) (if (if (not (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx11_0)))) - (eq? fs_0 empty-free-id-set))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx11_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set)))) (let ((app_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx11_0)))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx11_0))))) (free-id-set-member? app_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx11_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx11_0))) id_0)) #f) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx11_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx11_0))))) (if obs_0 (begin (call-expand-observe obs_0 'resolve id_0) @@ -52127,8 +52565,9 @@ s10_0) (let ((binding_0 (let ((temp120_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx11_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx11_0))))) (resolve+shift.1 'ambiguous #f @@ -52139,8 +52578,9 @@ temp120_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx11_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx11_0))))) (if obs_0 (call-expand-observe obs_0 'resolve id_0) (void))) (if (eq? binding_0 'ambiguous) (begin @@ -52165,8 +52605,9 @@ (car (syntax-e/no-taint s10_0)) #f))) (let ((temp127_0 - (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner ctx11_0)))) + (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner ctx11_0))))) (let ((temp126_1 temp126_0)) (lookup.1 temp126_1 @@ -52200,33 +52641,38 @@ (raise-binding-result-arity-error 4 args)))))))))))))) (define expand-implicit (lambda (sym_0 s_0 ctx_0 trigger-id_0) - (if (expand-context/outer-only-immediate? ctx_0) + (if (begin-unsafe (expand-context/outer-only-immediate? ctx_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'stop/return s_0) (void))) s_0) (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (let ((id_0 (datum->syntax$1 disarmed-s_0 sym_0))) (if (if (not (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set)))) (let ((app_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) (free-id-set-member? app_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) id_0)) #f) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (begin (call-expand-observe obs_0 'resolve id_0) @@ -52235,8 +52681,9 @@ s_0) (let ((b_0 (let ((temp138_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (resolve+shift.1 'ambiguous #f @@ -52247,8 +52694,9 @@ temp138_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'resolve id_0) (void))) (if (eq? b_0 'ambiguous) (raise-ambiguous-error id_0 ctx_0) @@ -52285,8 +52733,9 @@ (if (core-form? t_0) (if (if (eq? sym_0 '|#%top|) (if (eq? (core-form-name t_0) '|#%top|) - (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner ctx_0))) #f) #f) (|dispatch-implicit-#%top-core-form| t_0 s_0 ctx_0) @@ -52296,20 +52745,25 @@ ctx_0)) (let ((tl-id_0 (if (eq? sym_0 '|#%top|) - (if (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner + ctx_0))) (add-scope s_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner + ctx_0)))) #f) #f))) (let ((tl-b_0 (if tl-id_0 (let ((temp152_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0))))) (resolve.1 #f #f @@ -52319,21 +52773,25 @@ temp152_0)) #f))) (if tl-b_0 - (if (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner - ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner + ctx_0))))) + (begin-unsafe + (eq? fs_0 empty-free-id-set))) #f) (parsed-id2.1 tl-id_0 tl-b_0 #f) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (begin (call-expand-observe @@ -52363,7 +52821,8 @@ (let ((or-part_1 (not (let ((app_0 - (expand-context/outer-binding-layer ctx_0))) + (begin-unsafe + (expand-context/outer-binding-layer ctx_0)))) (eq? app_0 (already-expanded-binding-layer ae_0)))))) @@ -52371,12 +52830,14 @@ or-part_1 (if (parsed? exp-s_0) (not - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set))) #f)) #f))))) (let ((app_0 @@ -52388,11 +52849,12 @@ app_0 (if (not (parsed? exp-s_0)) exp-s_0 #f))) (void)) - (if (expand-context/outer-only-immediate? ctx_0) + (if (begin-unsafe (expand-context/outer-only-immediate? ctx_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'stop/return s_0) (void))) s_0) (if (parsed? exp-s_0) @@ -52400,17 +52862,20 @@ (let ((result-s_0 (syntax-track-origin$1 exp-s_0 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'opaque-expr result-s_0) (void))) - (if (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set))) #f) (expand.1 #f #f result-s_0 ctx_0) result-s_0)))))))))) @@ -52422,8 +52887,9 @@ s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'tag2 new-s_0 disarmed-s_0) (void))) @@ -52470,30 +52936,35 @@ (format "\n value at phase ~s: ~e" (add1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx20_0))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx20_0)))) t16_0))))))))) (define dispatch-core-form (lambda (t_0 s_0 ctx_0) - (if (expand-context/outer-only-immediate? ctx_0) + (if (begin-unsafe (expand-context/outer-only-immediate? ctx_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'stop/return s_0) (void))) s_0) - (if (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'enter-prim s_0) (void))) (let ((result-s_0 (|#%app| (core-form-expander t_0) s_0 ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -52506,14 +52977,16 @@ (lambda (t_0 s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'enter-prim s_0) (void))) (let ((result-s_0 (|#%app| (core-form-expander t_0) s_0 ctx_0 #t))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'exit-prim/return result-s_0) (void))) @@ -52537,14 +53010,16 @@ ctx31_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx31_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx31_0))))) (if obs_0 (call-expand-observe obs_0 'tag/context adj-s_0) (void))) (expand.1 #f #f adj-s_0 ctx31_0))) - (if (if (expand-context/inner-parsing-expanded? - (root-expand-context/outer-inner ctx31_0)) + (if (if (begin-unsafe + (expand-context/inner-parsing-expanded? + (root-expand-context/outer-inner ctx31_0))) (not (1/rename-transformer? t27_0)) #f) (raise-syntax-error$1 @@ -52552,15 +53027,17 @@ "encountered a macro binding in form that should be fully expanded" s29_0) (if (1/rename-transformer? t27_0) - (if (expand-context/inner-just-once? - (root-expand-context/outer-inner ctx31_0)) + (if (begin-unsafe + (expand-context/inner-just-once? + (root-expand-context/outer-inner ctx31_0))) s29_0 (let ((alt-id_0 (apply-rename-transformer t27_0 id30_0 ctx31_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx31_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx31_0))))) (if obs_0 (call-expand-observe obs_0 'rename-transformer alt-id_0) (void))) @@ -52581,41 +53058,47 @@ binding32_0)) (case-lambda ((exp-s_0 re-ctx_0) - (if (expand-context/inner-just-once? - (root-expand-context/outer-inner ctx31_0)) + (if (begin-unsafe + (expand-context/inner-just-once? + (root-expand-context/outer-inner ctx31_0))) exp-s_0 (expand.1 #f #f exp-s_0 re-ctx_0))) (args (raise-binding-result-arity-error 2 args))))))))))) (define dispatch-variable (lambda (t_0 s_0 id_0 ctx_0 binding_0 primitive?_0 protected?_0) - (if (expand-context/outer-only-immediate? ctx_0) + (if (begin-unsafe (expand-context/outer-only-immediate? ctx_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'stop/return id_0) (void))) id_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'variable s_0 id_0) (void))) (begin (register-variable-referenced-if-local! binding_0 ctx_0) (let ((result-s_0 (let ((temp178_0 (free-id-set-empty-or-just-module*? - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0)))))) (substitute-variable.1 temp178_0 id_0 t_0)))) - (if (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set))) #f) - (let ((prop-s_0 (keep-properties-only~ result-s_0))) + (let ((prop-s_0 (begin-unsafe #f))) (let ((insp_0 (syntax-inspector result-s_0))) (if primitive?_0 (parsed-primitive-id3.1 prop-s_0 binding_0 insp_0) @@ -52626,8 +53109,9 @@ result-s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'return protected-result-s_0) (void))) @@ -52645,8 +53129,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s38_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx40_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx40_0))))) (if obs_0 (call-expand-observe obs_0 'enter-macro disarmed-s_0 s38_0) (void))) @@ -52674,17 +53159,21 @@ (let ((result-s_0 (flip-scope transformed-s_0 intro-scope_0))) (let ((post-s_0 - (apply-post-expansion - (root-expand-context/outer-post-expansion - ctx40_0) - result-s_0))) + (begin-unsafe + (apply-post-expansion + (begin-unsafe + (root-expand-context/outer-post-expansion + ctx40_0)) + result-s_0)))) (let ((tracked-s_0 (syntax-track-origin$1 post-s_0 cleaned-s_0 (if origin-id34_0 origin-id34_0 - (if (symbol? (syntax-content s38_0)) + (if (begin-unsafe + (symbol? + (syntax-content s38_0))) s38_0 (car (syntax-e$1 s38_0))))))) (let ((rearmed-s_0 @@ -52692,14 +53181,16 @@ tracked-s_0 (lambda (t-s_0) (syntax-rearm$1 t-s_0 s38_0)) - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx40_0))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx40_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx40_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx40_0))))) (if obs_0 (call-expand-observe obs_0 @@ -52725,29 +53216,36 @@ id_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'macro-pre-x cleaned-s_0) (void))) (let ((confine-def-ctx-scopes?_0 (not - (let ((or-part_0 (expand-context/outer-only-immediate? ctx_0))) + (let ((or-part_0 + (begin-unsafe + (expand-context/outer-only-immediate? ctx_0)))) (if or-part_0 or-part_0 (not (free-id-set-empty-or-just-module*? - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0))))))))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0)))))))))) (let ((accum-ctx_0 (if (if confine-def-ctx-scopes?_0 - (if (expand-context/outer-def-ctx-scopes ctx_0) + (if (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx_0)) (not (null? - (unbox (expand-context/outer-def-ctx-scopes ctx_0)))) + (unbox + (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx_0))))) #f) #f) (accumulate-def-ctx-scopes ctx_0 - (expand-context/outer-def-ctx-scopes ctx_0)) + (begin-unsafe (expand-context/outer-def-ctx-scopes ctx_0))) ctx_0))) (let ((m-ctx_0 (if (expand-context/outer? accum-ctx_0) @@ -52756,7 +53254,8 @@ (let ((def-ctx-scopes181_0 (if confine-def-ctx-scopes?_0 def-ctx-scopes_0 - (expand-context/outer-def-ctx-scopes ctx_0)))) + (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx_0))))) (let ((inner182_0 (root-expand-context/outer-inner accum-ctx_0))) (let ((def-ctx-scopes181_1 def-ctx-scopes181_0) @@ -52825,13 +53324,15 @@ app_0 1/current-namespace (let ((app_1 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (namespace->namespace-at-phase app_1 (add1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))))))) (with-continuation-mark* authentic current-expand-context @@ -52847,8 +53348,9 @@ cleaned-s_0)))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -52866,12 +53368,15 @@ transformed-s_0)))))))) (define maybe-add-use-site-scope (lambda (s_0 ctx_0 binding_0) - (if (if (root-expand-context/outer-use-site-scopes ctx_0) - (let ((app_0 (root-expand-context/outer-frame-id ctx_0))) + (if (if (begin-unsafe (root-expand-context/outer-use-site-scopes ctx_0)) + (let ((app_0 + (begin-unsafe (root-expand-context/outer-frame-id ctx_0)))) (matching-frame? app_0 (binding-frame-id binding_0))) #f) (let ((sc_0 (new-scope 'use-site))) - (let ((b_0 (root-expand-context/outer-use-site-scopes ctx_0))) + (let ((b_0 + (begin-unsafe + (root-expand-context/outer-use-site-scopes ctx_0)))) (begin (set-box! b_0 (cons sc_0 (unbox b_0))) (values (add-scope s_0 sc_0) (list sc_0))))) @@ -52885,7 +53390,7 @@ (define maybe-add-post-expansion (lambda (s_0 ctx_0) (apply-post-expansion - (root-expand-context/outer-post-expansion ctx_0) + (begin-unsafe (root-expand-context/outer-post-expansion ctx_0)) s_0))) (define accumulate-def-ctx-scopes (lambda (ctx_0 def-ctx-scopes_0) @@ -52894,7 +53399,9 @@ (if (expand-context/outer? ctx_0) (let ((scopes183_0 (let ((app_0 (unbox def-ctx-scopes_0))) - (append app_0 (expand-context/outer-scopes ctx_0))))) + (append + app_0 + (begin-unsafe (expand-context/outer-scopes ctx_0)))))) (let ((inner184_0 (root-expand-context/outer-inner ctx_0))) (let ((scopes183_1 scopes183_0)) (let ((app_0 (root-expand-context/outer-post-expansion ctx_0))) @@ -52954,16 +53461,19 @@ lookup (lambda (in43_0 out-of-context-as-variable?44_0 b47_0 ctx48_0 id49_0) (begin - (let ((temp186_0 (expand-context/outer-env ctx48_0))) + (let ((temp186_0 (begin-unsafe (expand-context/outer-env ctx48_0)))) (let ((temp187_0 - (expand-context/inner-lift-envs - (root-expand-context/outer-inner ctx48_0)))) + (begin-unsafe + (expand-context/inner-lift-envs + (root-expand-context/outer-inner ctx48_0))))) (let ((temp188_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx48_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx48_0))))) (let ((temp189_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx48_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx48_0))))) (let ((temp188_1 temp188_0) (temp187_1 temp187_0) (temp186_1 temp186_0)) @@ -52980,7 +53490,7 @@ (lambda (s_0 alternate-id_0) (if (not alternate-id_0) s_0 - (if (symbol? (syntax-content s_0)) + (if (begin-unsafe (symbol? (syntax-content s_0))) (syntax-rearm$1 (syntax-track-origin$1 alternate-id_0 s_0) s_0) (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (syntax-rearm$1 @@ -52996,8 +53506,9 @@ (if (if (local-binding? binding_0) (if (reference-record? (binding-frame-id binding_0)) (not - (expand-context/inner-parsing-expanded? - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (expand-context/inner-parsing-expanded? + (root-expand-context/outer-inner ctx_0)))) #f) #f) (let ((app_0 (binding-frame-id binding_0))) @@ -53022,15 +53533,17 @@ (let ((temp193_0 (if local?_0 (let ((app_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + ctx_0))))) (make-local-lift lift-env_0 app_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner + ctx_0))) 'lift #f))) (make-top-level-lift ctx_0)))) @@ -53051,12 +53564,14 @@ (if local?_0 (cons lift-env_0 + (begin-unsafe + (expand-context/inner-lift-envs + (root-expand-context/outer-inner + ctx_0)))) + (begin-unsafe (expand-context/inner-lift-envs (root-expand-context/outer-inner - ctx_0))) - (expand-context/inner-lift-envs - (root-expand-context/outer-inner - ctx_0))))) + ctx_0)))))) (let ((module-lifts199_0 (if (if local?_0 local?_0 @@ -53065,9 +53580,10 @@ context_0 '(top-level module)))) - (expand-context/inner-module-lifts - (root-expand-context/outer-inner - ctx_0)) + (begin-unsafe + (expand-context/inner-module-lifts + (root-expand-context/outer-inner + ctx_0))) lift-ctx_0))) (let ((lift-envs198_1 lift-envs198_0)) @@ -53242,19 +53758,22 @@ (let ((exp-s_0 (expand.1 #f #f s_0 capture-ctx_0))) (let ((lifts_0 (let ((lifts_0 - (expand-context/inner-lifts - (root-expand-context/outer-inner - capture-ctx_0)))) - (box-clear! - (lift-context-lifts lifts_0))))) + (begin-unsafe + (expand-context/inner-lifts + (root-expand-context/outer-inner + capture-ctx_0))))) + (begin-unsafe + (box-clear! + (lift-context-lifts lifts_0)))))) (let ((with-lifts-s_0 (if (let ((or-part_0 (pair? lifts_0))) (if or-part_0 or-part_0 always-wrap?_0)) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (begin (if expand-lifts?51_0 (void) @@ -53294,15 +53813,17 @@ (let ((or-part_1 (null? lifts_0))) (if or-part_1 or-part_1 - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)))))) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))))))) with-lifts-s_0 (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -53332,10 +53853,12 @@ (if (eq? lift-key53_0 unsafe-undefined) (generate-lift-key) lift-key53_0))) - (let ((context_0 (expand-context/outer-context ctx60_0))) + (let ((context_0 + (begin-unsafe (expand-context/outer-context ctx60_0)))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx60_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx60_0))))) (let ((local?_0 (not begin-form?52_0))) (loop_0 begin-form?52_0 @@ -53388,19 +53911,22 @@ (begin (let ((phase_0 (add1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx80_0))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx80_0)))))) (let ((ns_0 (namespace->namespace-at-phase - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx80_0)) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx80_0))) phase_0))) (begin (namespace-visit-available-modules! ns_0 phase_0) (if (expand-context/outer? ctx80_0) (let ((only-immediate?217_0 (if keep-stops?77_0 - (expand-context/outer-only-immediate? ctx80_0) + (begin-unsafe + (expand-context/outer-only-immediate? ctx80_0)) #f))) (let ((inner220_0 (let ((the-struct_0 @@ -53408,9 +53934,10 @@ (if (expand-context/inner? the-struct_0) (let ((stops223_0 (if keep-stops?77_0 - (expand-context/inner-stops - (root-expand-context/outer-inner - ctx80_0)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner + ctx80_0))) empty-free-id-set))) (let ((app_0 (root-expand-context/inner-self-mpi @@ -53581,11 +54108,13 @@ temp225_0)))) (let ((phase_0 (add1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx87_0))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx87_0)))))) (let ((parsed-rhs_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx87_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx87_0))) exp-rhs_0 (let ((temp227_0 (let ((temp228_0 (as-to-parsed-context ctx87_0))) @@ -53597,8 +54126,9 @@ (begin (if log-next?82_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx87_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx87_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (void)) (values @@ -53610,8 +54140,9 @@ parsed-rhs_0 phase_0 (namespace->namespace-at-phase - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx87_0)) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx87_0))) phase_0) ctx87_0)))))))))) (define eval-for-syntaxes-binding @@ -53628,8 +54159,9 @@ (if (can-direct-eval? p_0 ns_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner ctx_0)))) #f (compile-single p_0 @@ -53663,8 +54195,9 @@ (direct-eval p_0 ns_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner ctx_0))))))))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner ctx_0)))))))))) list))) (begin (if (let ((app_0 (length vals_0))) (= app_0 (length ids_0))) @@ -53700,12 +54233,14 @@ (if (symbol? d_0) d_0 (if (if (pair? d_0) - (let ((s_0 (car d_0))) (symbol? (syntax-content s_0))) + (let ((s_0 (car d_0))) + (begin-unsafe (symbol? (syntax-content s_0)))) #f) (syntax-e$1 (car d_0)) #f)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx95_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx95_0))) (if (if keep-for-parsed?90_0 keep-for-parsed?90_0 keep-for-error?91_0) @@ -53744,7 +54279,7 @@ (lambda (ids_0 ctx_0 layer-val_0) (if (loop_0 ids_0) layer-val_0 - (expand-context/outer-binding-layer ctx_0))))) + (begin-unsafe (expand-context/outer-binding-layer ctx_0)))))) (define wrap-lifts-as-parsed-let (letrec ((lets-loop_0 (|#%name| @@ -53802,10 +54337,11 @@ id_0))) (let ((env_1 (let ((env_1 - (hash-set - env_0 - key_0 - val_0))) + (begin-unsafe + (hash-set + env_0 + key_0 + val_0)))) (values env_1)))) (for-loop_0 @@ -53814,8 +54350,9 @@ rest_1))))))) env_0)))))) (for-loop_0 - (expand-context/outer-env - rhs-ctx_0) + (begin-unsafe + (expand-context/outer-env + rhs-ctx_0)) ids_0 keys_0))))) (let ((inner236_0 @@ -54287,7 +54824,8 @@ 'syntax-local-make-definition-context))) (let ((frame-id_0 (let ((or-part_0 - (root-expand-context/outer-frame-id ctx_0))) + (begin-unsafe + (root-expand-context/outer-frame-id ctx_0)))) (if or-part_0 or-part_0 (let ((or-part_1 @@ -54298,7 +54836,8 @@ (if or-part_1 or-part_1 (gensym))))))) (let ((sc_0 (new-scope 'intdef))) (let ((def-ctx-scopes_0 - (expand-context/outer-def-ctx-scopes ctx_0))) + (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx_0)))) (begin (if def-ctx-scopes_0 (set-box! @@ -54358,14 +54897,16 @@ (get-current-expand-context.1 #f 'local-expand))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'local-bind ids6_0) (void))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((all-intdefs_0 (if (list? extra-intdefs5_0) (cons intdef8_0 extra-intdefs5_0) @@ -54389,10 +54930,12 @@ (cons (let ((pre-id_0 (remove-use-site-scopes - (flip-scopes - id_0 - (expand-context/outer-current-introduction-scopes - ctx_0)) + (begin-unsafe + (flip-scopes + id_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0)))) ctx_0))) (let ((temp39_0 (add-intdef-scopes.1 @@ -54415,9 +54958,10 @@ (for-loop_0 null ids6_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -54425,13 +54969,15 @@ intdef-ids_0) (void))) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + ctx_0))))) (let ((local-sym_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner + ctx_0))) 'loc #f))) (let ((syms_0 @@ -54507,10 +55053,11 @@ intdef-id_0))) (let ((env_1 (let ((env_1 - (hash-set - env_0 - sym_0 - val_0))) + (begin-unsafe + (hash-set + env_0 + sym_0 + val_0)))) (values env_1)))) (for-loop_0 @@ -54519,8 +55066,9 @@ rest_1))))))) env_0)))))) (for-loop_0 - (expand-context/outer-env - ctx_0) + (begin-unsafe + (expand-context/outer-env + ctx_0)) syms_0 intdef-ids_0))))) (let ((temp49_0 @@ -54605,15 +55153,18 @@ #f s7_0 all-intdefs_0))) - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes - ctx_0))))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -54627,9 +55178,10 @@ local-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -54745,9 +55297,10 @@ app_0 (unbox env-mixins_0)))) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -54836,8 +55389,9 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -54950,7 +55504,8 @@ (let ((val_0 (env-mixin-value env-mixin_0))) (let ((key_1 key_0) (env_2 env_1)) - (hash-set env_2 key_1 val_0))))))) + (begin-unsafe + (hash-set env_2 key_1 val_0)))))))) (begin (hash-set! (env-mixin-cache env-mixin_0) @@ -55045,31 +55600,37 @@ (begin (let ((phase_0 (if (eq? phase20_0 unsafe-undefined) - (expand-context/inner-phase - (root-expand-context/outer-inner ctx33_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx33_0))) phase20_0))) (let ((same-kind?_0 (let ((or-part_0 (eq? context19_0 - (expand-context/outer-context ctx33_0)))) + (begin-unsafe + (expand-context/outer-context ctx33_0))))) (if or-part_0 or-part_0 (if (list? context19_0) - (list? (expand-context/outer-context ctx33_0)) + (list? + (begin-unsafe (expand-context/outer-context ctx33_0))) #f))))) (let ((all-stop-ids_0 (if stop-ids22_0 (stop-ids->all-stop-ids stop-ids22_0 phase_0) #f))) (let ((def-ctx-scopes_0 - (if (expand-context/outer-def-ctx-scopes ctx33_0) - (unbox (expand-context/outer-def-ctx-scopes ctx33_0)) + (if (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx33_0)) + (unbox + (begin-unsafe + (expand-context/outer-def-ctx-scopes ctx33_0))) null))) (if (expand-context/outer? ctx33_0) (let ((env62_0 (add-intdef-bindings - (expand-context/outer-env ctx33_0) + (begin-unsafe (expand-context/outer-env ctx33_0)) intdefs21_0))) (let ((use-site-scopes63_0 (if (let ((or-part_0 (eq? context19_0 'module))) @@ -55081,8 +55642,9 @@ or-part_1 (list? context19_0))))) (let ((or-part_0 - (root-expand-context/outer-use-site-scopes - ctx33_0))) + (begin-unsafe + (root-expand-context/outer-use-site-scopes + ctx33_0)))) (if or-part_0 or-part_0 (box null))) #f))) (let ((frame-id64_0 @@ -55125,7 +55687,9 @@ (cdr a_0)))) frame-id_0)))))) (for-loop_0 - (root-expand-context/outer-frame-id ctx33_0) + (begin-unsafe + (root-expand-context/outer-frame-id + ctx33_0)) x_0)))))) (let ((post-expansion65_0 (let ((pe_0 @@ -55137,8 +55701,9 @@ (memq context19_0 '(module module-begin top-level)))) - (root-expand-context/outer-post-expansion - ctx33_0) + (begin-unsafe + (root-expand-context/outer-post-expansion + ctx33_0)) #f) #f))) (if (if intdefs21_0 @@ -55159,12 +55724,14 @@ (let ((scopes66_0 (append def-ctx-scopes_0 - (expand-context/outer-scopes ctx33_0)))) + (begin-unsafe + (expand-context/outer-scopes ctx33_0))))) (let ((only-immediate?67_0 (not stop-ids22_0))) (let ((need-eventually-defined69_0 (let ((ht_0 - (expand-context/outer-need-eventually-defined - ctx33_0))) + (begin-unsafe + (expand-context/outer-need-eventually-defined + ctx33_0)))) (if track-to-be-defined?24_0 ht_0 (if ht_0 (make-hasheqv) #f))))) @@ -55176,9 +55743,10 @@ the-struct_0) (let ((to-parsed?73_0 (if to-parsed-ok?23_0 - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx33_0)) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx33_0))) #f))) (let ((stops77_0 (free-id-set @@ -55339,14 +55907,18 @@ (lambda (s_0 ctx_0) (flip-scopes s_0 - (expand-context/outer-current-introduction-scopes ctx_0)))) + (begin-unsafe (expand-context/outer-current-introduction-scopes ctx_0))))) (define flip-introduction-and-use-scopes (lambda (s_0 ctx_0) (let ((app_0 - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes ctx_0)))) - (flip-scopes app_0 (expand-context/outer-current-use-scopes ctx_0))))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes ctx_0)))))) + (flip-scopes + app_0 + (begin-unsafe (expand-context/outer-current-use-scopes ctx_0)))))) (define 1/syntax-transforming? (|#%name| syntax-transforming? @@ -55359,8 +55931,9 @@ (begin (let ((ctx_0 (get-current-expand-context.1 #t 'unexpected))) (if ctx_0 - (if (expand-context/inner-lifts - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-lifts + (root-expand-context/outer-inner ctx_0))) #t #f) #f)))))) @@ -55371,8 +55944,9 @@ (begin (let ((ctx_0 (get-current-expand-context.1 #t 'unexpected))) (if ctx_0 - (if (expand-context/inner-to-module-lifts - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-module-lifts + (root-expand-context/outer-inner ctx_0))) #t #f) #f)))))) @@ -55383,8 +55957,9 @@ (begin (let ((ctx_0 (get-current-expand-context.1 #t 'unexpected))) (if ctx_0 - (if (expand-context/inner-requires+provides - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-requires+provides + (root-expand-context/outer-inner ctx_0))) #t #f) #f)))))) @@ -55394,7 +55969,7 @@ (lambda () (begin (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-context))) - (expand-context/outer-context ctx_0)))))) + (begin-unsafe (expand-context/outer-context ctx_0))))))) (define 1/syntax-local-introduce (|#%name| syntax-local-introduce @@ -55409,8 +55984,9 @@ (let ((new-s_0 (flip-introduction-and-use-scopes s_0 ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55439,8 +56015,9 @@ (let ((new-id_0 (remove-use-site-scopes id_0 ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55457,7 +56034,9 @@ (begin (let ((ctx_0 (get-current-expand-context.1 #t 'unexpected))) (if ctx_0 - (expand-context/inner-phase (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) 0)))))) (define 1/syntax-local-name (|#%name| @@ -55465,7 +56044,7 @@ (lambda () (begin (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-name))) - (let ((id_0 (expand-context/outer-name ctx_0))) + (let ((id_0 (begin-unsafe (expand-context/outer-name ctx_0)))) (if id_0 (datum->syntax$1 #f (syntax-e$1 id_0) id_0) #f))))))) (define 1/make-syntax-introducer (let ((make-syntax-introducer_0 @@ -55519,8 +56098,9 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55576,9 +56156,10 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55625,7 +56206,10 @@ (if base-s4_0 base-s4_0 empty-syntax) phase_0))) (let ((use-base-scs_0 - (if (hash-keys-subset? base-scs_0 ext-scs_0) + (if (begin-unsafe + (hash-keys-subset? + base-scs_0 + ext-scs_0)) base-scs_0 (let ((or-part_0 (if (identifier? base-s4_0) @@ -55644,9 +56228,10 @@ ext-scs_0 use-base-scs_0)))) (let ((maybe-taint_0 - (if (let ((v_0 - (syntax-tamper ext-s3_0))) - (not v_0)) + (if (begin-unsafe + (let ((v_0 + (syntax-tamper ext-s3_0))) + (begin-unsafe (not v_0)))) values syntax-taint$1))) (let ((shifts_0 @@ -55728,7 +56313,8 @@ (if (expand-context/outer? current-ctx_0) (let ((env74_0 (add-intdef-bindings - (expand-context/outer-env current-ctx_0) + (begin-unsafe + (expand-context/outer-env current-ctx_0)) intdefs9_0))) (let ((inner75_0 (root-expand-context/outer-inner @@ -55794,14 +56380,16 @@ current-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'local-value id8_0) (void))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (letrec* ((loop_0 (|#%name| @@ -55821,23 +56409,26 @@ (resolve+shift/extra-inspector id_0 phase_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner - ctx_0)))))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner + ctx_0))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'resolve id_0) (void))) (if (not b_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55860,9 +56451,10 @@ (core-form? v_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -55877,9 +56469,10 @@ id_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (if (not (if (1/rename-transformer? @@ -55911,10 +56504,12 @@ 4 args)))))))))))) (loop_0 - (flip-scopes - id8_0 - (expand-context/outer-current-introduction-scopes - ctx_0))))))))))))))) + (begin-unsafe + (flip-scopes + id8_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))))))))))))))) (define 1/syntax-local-value (let ((syntax-local-value_0 (|#%name| @@ -55965,15 +56560,17 @@ (raise-argument-error who_0 "exact-nonnegative-integer?" n_0)) (let ((ctx_0 (get-current-expand-context.1 #f who_0))) (let ((lifts_0 - (expand-context/inner-lifts - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-lifts + (root-expand-context/outer-inner ctx_0))))) (begin (if lifts_0 (void) (raise-arguments-error who_0 "no lift target")) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner ctx_0))))) (let ((ids_0 (reverse$1 (begin @@ -56011,14 +56608,17 @@ fold-var_0)))))) (for-loop_0 null 0)))))) (let ((added-s_0 - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes - ctx_0)))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -56029,16 +56629,20 @@ (void))) (map_2960 (lambda (id_0) - (flip-scopes - id_0 - (expand-context/outer-current-introduction-scopes - ctx_0))) + (begin-unsafe + (flip-scopes + id_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))) (add-lifted! lifts_0 ids_0 added-s_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))))))))))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0)))))))))))))))) (define 1/syntax-local-lift-expression (|#%name| syntax-local-lift-expression @@ -56062,8 +56666,9 @@ (begin (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-lift-context))) - (root-expand-context/inner-lift-key - (root-expand-context/outer-inner ctx_0))))))) + (begin-unsafe + (root-expand-context/inner-lift-key + (root-expand-context/outer-inner ctx_0)))))))) (define 1/syntax-local-lift-module (|#%name| syntax-local-lift-module @@ -56076,13 +56681,15 @@ (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-lift-module))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((tmp_0 (core-form-sym s_0 phase_0))) (if (if (eq? tmp_0 'module) #t (eq? tmp_0 'module*)) (let ((lifts_0 - (expand-context/inner-module-lifts - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-module-lifts + (root-expand-context/outer-inner ctx_0))))) (begin (if lifts_0 (void) @@ -56092,15 +56699,18 @@ "form to lift" s_0)) (let ((added-s_0 - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes - ctx_0)))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0)))))) (begin (add-lifted-module! lifts_0 added-s_0 phase_0) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -56164,16 +56774,19 @@ "form to lift" s39_0)) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((wrt-phase_0 (|#%app| get-wrt-phase24_0 lift-ctx_0))) (let ((added-s_0 (if intro?20_0 - (flip-scopes - s39_0 - (expand-context/outer-current-introduction-scopes - ctx_0)) + (begin-unsafe + (flip-scopes + s39_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0)))) s39_0))) (let ((pre-s_0 (|#%app| @@ -56212,9 +56825,10 @@ (begin (if log-tag18_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -56289,17 +56903,20 @@ current-expand-context #f (let ((app_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (namespace-visit-available-modules! app_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))))) (let ((result-s_0 (add-scope use-s_0 sc_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -56346,8 +56963,9 @@ (case-lambda ((ctx_0 result-s_0) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'lift-provide result-s_0) (void)))) @@ -56420,8 +57038,9 @@ 'syntax-local-module-defined-identifiers))) (requireds->phase-ht (extract-module-definitions - (expand-context/inner-requires+provides - (root-expand-context/outer-inner ctx_0)))))))))) + (begin-unsafe + (expand-context/inner-requires+provides + (root-expand-context/outer-inner ctx_0))))))))))) (define 1/syntax-local-module-required-identifiers (|#%name| syntax-local-module-required-identifiers @@ -56454,8 +57073,9 @@ #f 'syntax-local-module-required-identifiers))) (let ((requires+provides_0 - (expand-context/inner-requires+provides - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-requires+provides + (root-expand-context/outer-inner ctx_0))))) (let ((mpi_0 (if mod-path_0 (module-path->mpi/context mod-path_0 ctx_0) @@ -56516,14 +57136,15 @@ (lambda (l_0) (cons (required-id r_0) l_0)))) (let ((key_1 key_0)) - (do-hash-update - 'hash-update - #f - hash-set - ht_0 - key_1 - xform_0 - null)))))) + (begin-unsafe + (do-hash-update + 'hash-update + #f + hash-set + ht_0 + key_1 + xform_0 + null))))))) (values ht_1)))) (for-loop_0 ht_1 rest_0)))) ht_0)))))) @@ -56554,8 +57175,9 @@ #f 'syntax-local-module-exports))) (let ((ns_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (let ((mod-name_0 (1/module-path-index-resolve (module-path->mpi/context @@ -56568,11 +57190,12 @@ (begin (if m_0 (void) - (raise-arguments-error - 'syntax-local-module-exports - "unknown module" - "module name" - (module-name->error-string mod-name_0))) + (begin-unsafe + (raise-arguments-error + 'syntax-local-module-exports + "unknown module" + "module name" + (module-name->error-string mod-name_0)))) (reverse$1 (let ((ht_0 (module-provides m_0))) (begin @@ -56645,8 +57268,9 @@ (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-submodules))) (let ((submods_0 - (expand-context/inner-declared-submodule-names - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-declared-submodule-names + (root-expand-context/outer-inner ctx_0))))) (reverse$1 (begin (letrec* @@ -56676,8 +57300,9 @@ (lambda () (let ((ctx_0 (get-current-expand-context.1 #f 'syntax-local-expand-observer))) - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0)))))) (define 1/syntax-local-get-shadower (let ((syntax-local-get-shadower_0 (|#%name| @@ -56698,8 +57323,10 @@ (let ((new-id_0 (add-scopes id42_0 - (expand-context/outer-scopes ctx_0)))) - (if (let ((v_0 (syntax-tamper id42_0))) (not v_0)) + (begin-unsafe (expand-context/outer-scopes ctx_0))))) + (if (begin-unsafe + (let ((v_0 (syntax-tamper id42_0))) + (begin-unsafe (not v_0)))) new-id_0 (syntax-taint$1 new-id_0)))))))))) (|#%name| @@ -57563,8 +58190,9 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -57684,8 +58312,8 @@ "module name" mod-name_0)) (if (if (module-cross-phase-persistent? m_0) - (if (not (not phase_0)) - (not (eq? phase_0 0)) + (if (not (begin-unsafe (not phase_0))) + (not (begin-unsafe (eq? phase_0 0))) #f) #f) (loop_0 @@ -57766,7 +58394,7 @@ m-ns_1 (if already-m-ns_0 #t #f)))))) (begin - (if (if (not phase_0) + (if (if (begin-unsafe (not phase_0)) (not (namespace->module-namespace.1 #f @@ -57806,14 +58434,15 @@ phase_0 m-ns_1)))) (let ((default_0 hash2589)) - (do-hash-update - 'hash-update! - #t - hash-set! - todo_0 - mod-name_0 - xform_0 - default_0))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + todo_0 + mod-name_0 + xform_0 + default_0)))) (if already?_0 (void) (begin @@ -58037,13 +58666,14 @@ src-namespace10_0 mod-name_0))) (begin - (let ((app_0 - (module-force-bulk-binding - m_0))) - (|#%app| - app_0 - (namespace-bulk-binding-registry - src-namespace10_0))) + (begin-unsafe + (let ((app_0 + (module-force-bulk-binding + m_0))) + (|#%app| + app_0 + (namespace-bulk-binding-registry + src-namespace10_0)))) (with-continuation-mark* push-authentic parameterization-key @@ -58172,9 +58802,10 @@ (push-scope s_0 post-scope_0) other-namespace-scopes_0))) (let ((temp41_0 - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner + root-ctx_0))))) (let ((temp42_0 (let ((or-part_0 (namespace-declaration-inspector @@ -58213,15 +58844,17 @@ (let ((root-ctx_0 (namespace-get-root-expand-ctx ns_0))) (let ((post-scope_0 (post-expansion-scope - (root-expand-context/outer-post-expansion - root-ctx_0)))) + (begin-unsafe + (root-expand-context/outer-post-expansion + root-ctx_0))))) (let ((other-namespace-scopes_0 (reverse$1 (let ((ht_0 (syntax-scope-set - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner - root-ctx_0)) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner + root-ctx_0))) 0))) (begin (letrec* @@ -58359,8 +58992,9 @@ (add-scopes empty-syntax (let ((v_0 (namespace-get-root-expand-ctx ns16_0))) - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner v_0)))))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner v_0))))))) (if (let ((or-part_0 (1/module-path-index? req15_0))) (if or-part_0 or-part_0 (1/module-path? req15_0))) (let ((temp46_0 @@ -58605,9 +59239,10 @@ (if (let ((mpi_0 (module-binding-module b_0))) - (eq? - top-level-module-path-index - mpi_0)) + (begin-unsafe + (eq? + top-level-module-path-index + mpi_0))) ns_0 (module-instance-namespace (binding->module-instance @@ -58820,8 +59455,9 @@ (let ((app_0 (let ((v_0 (namespace-get-root-expand-ctx ns_0))) - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner v_0))))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner v_0)))))) (syntax-mapped-names app_0 (namespace-phase ns_0))))) @@ -58829,8 +59465,9 @@ app_0 (list->set (instance-variable-names - (definitions-variables - (namespace->definitions ns_0 0)))))))))))))) + (begin-unsafe + (definitions-variables + (namespace->definitions ns_0 0))))))))))))))) (|#%name| namespace-mapped-symbols (case-lambda @@ -59302,8 +59939,9 @@ temp130_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'lift-loop new-s_0) (void))) @@ -59599,8 +60237,9 @@ as-tail?_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((a_0 (if combine40_0 @@ -59850,8 +60489,9 @@ (let ((wb-s_0 (if just-once?42_0 s_0 #f))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'visit s_0) (void))) @@ -60051,9 +60691,10 @@ phase_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60077,9 +60718,10 @@ (if (not single39_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60098,9 +60740,10 @@ (if (eq? tmp_0 'begin) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60179,9 +60822,10 @@ e164_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60209,9 +60853,10 @@ (if (eq? tmp_0 'begin-for-syntax) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60283,9 +60928,10 @@ next-phase_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60322,9 +60968,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60361,9 +61008,10 @@ l_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - tl-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + tl-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -60429,8 +61077,9 @@ (if log-performance? (start-performance-region 'expand 'top) (void)) (begin0 (let ((ns_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (begin (namespace-visit-available-modules! ns_0) (let ((lift-ctx_0 @@ -60441,10 +61090,11 @@ (let ((do-require_0 (make-parse-top-lifted-require ns_0))) (let ((wrt-phase_1 wrt-phase_0)) - (require-lift-context16.1 - do-require_0 - wrt-phase_1 - (box null))))))) + (begin-unsafe + (require-lift-context16.1 + do-require_0 + wrt-phase_1 + (box null)))))))) (let ((exp-s_0 (let ((temp173_0 (if (expand-context/outer? ctx_0) @@ -60626,11 +61276,14 @@ ctx_0)))) (expand.1 #f #f s_0 temp173_0)))) (let ((app_0 - (box-clear! - (require-lift-context-requires require-lift-ctx_0)))) + (begin-unsafe + (box-clear! + (require-lift-context-requires + require-lift-ctx_0))))) (values app_0 - (box-clear! (lift-context-lifts lift-ctx_0)) + (begin-unsafe + (box-clear! (lift-context-lifts lift-ctx_0))) exp-s_0))))))) (if log-performance? (end-performance-region) (void)))))) (define make-parse-top-lifted-require @@ -61248,12 +61901,13 @@ (begin (if m_0 (void) - (raise-arguments-error - 'dynamic-require - "unknown module" - "module name" - (module-name->error-string - mod-name_0))) + (begin-unsafe + (raise-arguments-error + 'dynamic-require + "unknown module" + "module name" + (module-name->error-string + mod-name_0)))) (let ((binding/p_0 (hash-ref (hash-ref @@ -62452,13 +63106,14 @@ (if check-compiled?_0 (let ((sfx_0 #vu8(46 122 111))) (let ((try-path_0 - (path-adjust-extension - 'path-add-extension - #vu8(95) - subbytes - path_0 - sfx_0 - #t))) + (begin-unsafe + (path-adjust-extension + 'path-add-extension + #vu8(95) + subbytes + path_0 + sfx_0 + #t)))) (let ((modes_0 (1/use-compiled-file-paths))) (let ((roots_0 (1/current-compiled-file-roots))) (let ((modes_1 modes_0) (try-path_1 try-path_0)) @@ -63052,27 +63707,28 @@ (call-with-root-namespace_1 call-with-root-namespace_0) (read-compiled_1 read-compiled_0)) - (read-config/outer1.1 - (read-config/inner2.1 - readtable_0 - next-readtable_0 - for-syntax?5_0 - source4_0 - read-compiled_1 - call-with-root-namespace_1 - dynamic-require_1 - module-declared?_1 - coerce_1 - coerce-key_1 - parameter-override_1 - parameter-cache_1 - st_0) - wrap8_0 - #f - #f - #f - null - keep-comment?15_0)))))))))))))))))) + (begin-unsafe + (read-config/outer1.1 + (read-config/inner2.1 + readtable_0 + next-readtable_0 + for-syntax?5_0 + source4_0 + read-compiled_1 + call-with-root-namespace_1 + dynamic-require_1 + module-declared?_1 + coerce_1 + coerce-key_1 + parameter-override_1 + parameter-cache_1 + st_0) + wrap8_0 + #f + #f + #f + null + keep-comment?15_0))))))))))))))))))) (define read-config-update.1 (|#%name| read-config-update @@ -63086,8 +63742,9 @@ (begin (let ((next-readtable_0 (if (eq? next-readtable32_0 unsafe-undefined) - (read-config/inner-readtable - (read-config/outer-inner config41_0)) + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config41_0))) next-readtable32_0))) (if (read-config/outer? config41_0) (let ((inner53_0 @@ -63096,8 +63753,9 @@ (let ((st57_0 (if reset-graph?33_0 (read-config-state3.1 #f #f) - (read-config/inner-st - (read-config/outer-inner config41_0))))) + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config41_0)))))) (let ((parameter-override58_0 hash2610)) (let ((parameter-cache59_0 (make-hasheq))) (let ((parameter-override58_1 @@ -63169,23 +63827,28 @@ (args (raise-binding-result-arity-error 3 args))))))) (let ((app_0 (let ((or-part_0 - (read-config/inner-source - (read-config/outer-inner config46_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config46_0))))) (if or-part_0 or-part_0 (let ((or-part_1 (object-name in45_0))) (if or-part_1 or-part_1 "UNKNOWN")))))) - (let ((app_1 (read-config/outer-line config46_0))) - (let ((app_2 (read-config/outer-col config46_0))) - (let ((app_3 (read-config/outer-pos config46_0))) + (let ((app_1 (begin-unsafe (read-config/outer-line config46_0)))) + (let ((app_2 (begin-unsafe (read-config/outer-col config46_0)))) + (let ((app_3 (begin-unsafe (read-config/outer-pos config46_0)))) (unsafe-make-srcloc app_0 app_1 app_2 app_3 - (if (read-config/outer-pos config46_0) + (if (begin-unsafe (read-config/outer-pos config46_0)) (if end-pos_0 - (max 0 (- end-pos_0 (read-config/outer-pos config46_0))) + (max + 0 + (- + end-pos_0 + (begin-unsafe (read-config/outer-pos config46_0)))) #f) #f))))))))))) (define reading-at @@ -63239,7 +63902,7 @@ (raise-argument-error 'struct-copy "read-config/outer?" config_0)))) (define discard-comment (lambda (config_0) - (if (not (read-config/outer-keep-comment? config_0)) + (if (not (begin-unsafe (read-config/outer-keep-comment? config_0))) config_0 (if (read-config/outer? config_0) (let ((inner69_0 (read-config/outer-inner config_0))) @@ -63259,20 +63922,23 @@ (define next-readtable (lambda (config_0) (if (let ((app_0 - (read-config/inner-readtable - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))))) (eq? app_0 - (read-config/inner-next-readtable - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-next-readtable + (read-config/outer-inner config_0))))) config_0 (if (read-config/outer? config_0) (let ((inner70_0 (let ((the-struct_0 (read-config/outer-inner config_0))) (if (read-config/inner? the-struct_0) (let ((readtable71_0 - (read-config/inner-next-readtable - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-next-readtable + (read-config/outer-inner config_0))))) (let ((app_0 (read-config/inner-next-readtable the-struct_0))) (let ((app_1 @@ -63338,9 +64004,12 @@ (define coerce (lambda (val_0 in_0 config_0) (let ((for-syntax?_0 - (read-config/inner-for-syntax? (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))))) (let ((app_0 - (read-config/inner-coerce (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-coerce (read-config/outer-inner config_0))))) (|#%app| app_0 for-syntax?_0 @@ -63401,12 +64070,14 @@ (define check-parameter (lambda (param_0 config_0) (let ((cache_0 - (read-config/inner-parameter-cache - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-parameter-cache + (read-config/outer-inner config_0))))) (let ((v_0 (let ((app_0 - (read-config/inner-parameter-override - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-parameter-override + (read-config/outer-inner config_0))))) (hash-ref app_0 param_0 (hash-ref cache_0 param_0 unknown))))) (if (eq? v_0 unknown) (let ((v_1 (|#%app| param_0))) @@ -63420,8 +64091,9 @@ (if (read-config/inner? the-struct_0) (let ((parameter-override2_0 (hash-set - (read-config/inner-parameter-override - (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-parameter-override + (read-config/outer-inner config_0))) param_0 v_0))) (let ((app_0 (read-config/inner-readtable the-struct_0))) @@ -63487,8 +64159,9 @@ (define force-parameters! (lambda (config_0) (let ((cache_0 - (read-config/inner-parameter-cache - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-parameter-cache + (read-config/outer-inner config_0))))) (if (hash-ref cache_0 'all-forced #f) (void) (begin @@ -63816,7 +64489,8 @@ (define effective-char (lambda (c_0 config_0) (let ((rt_0 - (read-config/inner-readtable (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable (read-config/outer-inner config_0))))) (if (let ((or-part_0 (not rt_0))) (if or-part_0 or-part_0 (not (char? c_0)))) c_0 @@ -63824,7 +64498,8 @@ (define readtable-handler (lambda (config_0 c_0) (let ((rt_0 - (read-config/inner-readtable (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable (read-config/outer-inner config_0))))) (if rt_0 (let ((target_0 (hash-ref (readtable-char-ht rt_0) c_0 #f))) (if target_0 (if (not (char? target_0)) target_0 #f) #f)) @@ -63834,12 +64509,16 @@ (begin (force-parameters! config_0) (let ((rt_0 - (read-config/inner-readtable (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))))) (if rt_0 (hash-ref (readtable-dispatch-ht rt_0) c_0 #f) #f))))) (define readtable-apply (lambda (handler_0 c_0 in_0 config_0 line_0 col_0 pos_0) (let ((for-syntax?_0 - (read-config/inner-for-syntax? (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))))) (let ((v_0 (if (not for-syntax?_0) (with-continuation-mark* @@ -63857,7 +64536,9 @@ handler_0 c_0 in_0 - (read-config/inner-source (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))) line_0 col_0 pos_0))))) @@ -63978,7 +64659,7 @@ (void))) (define wrap (lambda (s-exp_0 in_0 config_0 rep_0) - (let ((wrap_0 (read-config/outer-wrap config_0))) + (let ((wrap_0 (begin-unsafe (read-config/outer-wrap config_0)))) (if wrap_0 (|#%app| wrap_0 s-exp_0 (port+config->srcloc.1 #f in_0 config_0) rep_0) s-exp_0)))) @@ -63989,7 +64670,8 @@ (read-char-or-special in_0 special1.1 - (read-config/inner-source (read-config/outer-inner config_0))) + (begin-unsafe + (read-config/inner-source (read-config/outer-inner config_0)))) (void)))) (define reader-error.1 (|#%name| @@ -64009,8 +64691,9 @@ continuation-marks1_0))) (let ((who_0 (if (eq? who3_0 unsafe-undefined) - (if (read-config/inner-for-syntax? - (read-config/outer-inner config10_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config10_0))) 'read-syntax 'read) who3_0))) @@ -64098,9 +64781,11 @@ (define read-char/skip-whitespace-and-comments (lambda (init-c_0 read-one_0 in_0 config_0) (let ((rt_0 - (read-config/inner-readtable (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable (read-config/outer-inner config_0))))) (let ((source_0 - (read-config/inner-source (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source (read-config/outer-inner config_0))))) (letrec* ((skip-loop_0 (|#%name| @@ -64122,7 +64807,8 @@ (let ((v_0 (special-value c_0))) (if (if (1/special-comment? v_0) (not - (read-config/outer-keep-comment? config_0)) + (begin-unsafe + (read-config/outer-keep-comment? config_0))) #f) (skip-loop_0 #f) c_0)) @@ -64154,7 +64840,8 @@ (void) (loop_0)))))))) (loop_0)) - (if (read-config/outer-keep-comment? config_0) + (if (begin-unsafe + (read-config/outer-keep-comment? config_0)) (result-special-comment) (skip-loop_0 #f))) (if (if (char=? '#\x23 ec_0) @@ -64174,7 +64861,9 @@ #f) (begin (skip-pipe-comment! c_0 in_0 config_0) - (if (read-config/outer-keep-comment? config_0) + (if (begin-unsafe + (read-config/outer-keep-comment? + config_0)) (result-special-comment) (skip-loop_0 #f))) (if (if (char=? '#\x23 ec_0) @@ -64209,8 +64898,9 @@ #f) (begin (skip-unix-line-comment! in_0 config_0) - (if (read-config/outer-keep-comment? - config_0) + (if (begin-unsafe + (read-config/outer-keep-comment? + config_0)) (result-special-comment) (skip-loop_0 #f))) (if (if (char=? '#\x23 ec_0) @@ -64229,7 +64919,8 @@ c_1)))) #f) (begin - (begin (read-char in_0) (void)) + (begin-unsafe + (begin (read-char in_0) (void))) (let ((v_0 (|#%app| read-one_0 @@ -64250,8 +64941,9 @@ temp4_0 (list ec_0))) (void)) - (if (read-config/outer-keep-comment? - config_0) + (if (begin-unsafe + (read-config/outer-keep-comment? + config_0)) (result-special-comment) (skip-loop_0 #f))))) c_0)))))))))))))) @@ -64261,13 +64953,14 @@ (define skip-pipe-comment! (lambda (init-c_0 in_0 config_0) (let ((source_0 - (read-config/inner-source (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source (read-config/outer-inner config_0))))) (call-with-values (lambda () (port-next-location in_0)) (case-lambda ((line_0 col_0 pos_0) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (letrec* ((loop_0 (|#%name| @@ -64312,8 +65005,9 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (if (eof-object? c_0) (void) @@ -64393,7 +65087,8 @@ (define char-delimiter? (lambda (c_0 config_0) (readtable-char-delimiter? - (read-config/inner-readtable (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-readtable (read-config/outer-inner config_0))) c_0 config_0))) (define char-closer? @@ -64421,7 +65116,9 @@ (cons app_0 (loop_0 (cdr cs_0)))))))))) (lambda (c_0 config_0 fallback-str_0) (let ((rt_0 - (read-config/inner-readtable (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))))) (if (not rt_0) (format "`~a`" c_0) (let ((cs_0 (readtable-equivalent-chars rt_0 c_0))) @@ -64441,14 +65138,14 @@ (define dot-name (lambda (config_0) "`.`")) (define all-openers-str (lambda (config_0) - (let ((p_0 (effective-char-names '#\x28 config_0 "opener"))) + (let ((p_0 (begin-unsafe (effective-char-names '#\x28 config_0 "opener")))) (let ((s_0 (if (check-parameter 1/read-square-bracket-as-paren config_0) - (effective-char-names '#\x5b config_0 "opener") + (begin-unsafe (effective-char-names '#\x5b config_0 "opener")) #f))) (let ((c_0 (if (check-parameter 1/read-curly-brace-as-paren config_0) - (effective-char-names '#\x7b config_0 "opener") + (begin-unsafe (effective-char-names '#\x7b config_0 "opener")) #f))) (if (if s_0 c_0 #f) (format "~a, ~a, or ~a" p_0 s_0 c_0) @@ -64502,7 +65199,9 @@ (void))) (define accum-string-init! (lambda (config_0) - (let ((st_0 (read-config/inner-st (read-config/outer-inner config_0)))) + (let ((st_0 + (begin-unsafe + (read-config/inner-st (read-config/outer-inner config_0))))) (let ((a_0 (read-config-state-accum-str st_0))) (if a_0 (begin @@ -64555,9 +65254,11 @@ (let ((app_0 (accum-string-str a4_0))) (substring app_0 start-pos2_0 (accum-string-pos a4_0))))) (begin - (set-read-config-state-accum-str! - (read-config/inner-st (read-config/outer-inner config5_0)) - a4_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st (read-config/outer-inner config5_0))) + a4_0)) s_0)))))) (define accum-string-get-bytes!.1 (|#%name| @@ -64572,14 +65273,16 @@ start-pos7_0 (accum-string-pos a9_0))))) (begin - (set-read-config-state-accum-str! - (read-config/inner-st (read-config/outer-inner config10_0)) - a9_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st (read-config/outer-inner config10_0))) + a9_0)) bstr_0)))))) (define accum-string-abandon! (lambda (a_0 config_0) (set-read-config-state-accum-str! - (read-config/inner-st (read-config/outer-inner config_0)) + (begin-unsafe (read-config/inner-st (read-config/outer-inner config_0))) a_0))) (define struct:indentation (make-record-type-descriptor* 'indentation #f #f #f #f 8 255)) @@ -64935,7 +65638,7 @@ (args (raise-binding-result-arity-error 3 args)))))) (define track-indentation! (lambda (config_0 line_0 col_0) - (let ((indts_0 (read-config/outer-indentations config_0))) + (let ((indts_0 (begin-unsafe (read-config/outer-indentations config_0)))) (let ((indt_0 (if (pair? indts_0) (car indts_0) #f))) (if (if indt_0 (if line_0 @@ -64959,11 +65662,12 @@ (void)))))) (define indentation-possible-cause (lambda (config_0) - (let ((indt_0 (car (read-config/outer-indentations config_0)))) + (let ((indt_0 + (car (begin-unsafe (read-config/outer-indentations config_0))))) (if (indentation-suspicious-line indt_0) (let ((app_0 (let ((c_0 (indentation-suspicious-closer indt_0))) - (effective-char-names c_0 config_0 "closer")))) + (begin-unsafe (effective-char-names c_0 config_0 "closer"))))) (format "\n possible cause: indentation suggests a missing ~a before line ~a" app_0 @@ -64971,7 +65675,7 @@ "")))) (define indentation-unexpected-closer-message (lambda (ec_0 c_0 config_0) - (let ((indts_0 (read-config/outer-indentations config_0))) + (let ((indts_0 (begin-unsafe (read-config/outer-indentations config_0)))) (if (null? indts_0) (format "unexpected `~a`" c_0) (let ((indt_0 (car indts_0))) @@ -65021,10 +65725,15 @@ (let ((c_1 (closer->opener (indentation-closer indt_0)))) - (effective-char-names c_1 config_0 "opener")))) + (begin-unsafe + (effective-char-names c_1 config_0 "opener"))))) (let ((app_0 (let ((c_1 (indentation-closer indt_0))) - (effective-char-names c_1 config_0 "closer")))) + (begin-unsafe + (effective-char-names + c_1 + config_0 + "closer"))))) (format "~a ~a to close ~a, found instead `~a`" missing_0 @@ -65072,9 +65781,10 @@ (if (check-parameter 1/read-accept-dot config_0) (let ((c_1 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in15_0 @@ -65084,11 +65794,14 @@ (if (eq? c_1 'special) (special1.1 'special) c_1))))) - (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner seq-config16_0)) - c_1 - seq-config16_0)) + (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner + seq-config16_0))) + c_1 + seq-config16_0))) #f) #f) #f) @@ -65156,9 +65869,10 @@ config_0) (let ((c_1 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in15_0 @@ -65171,12 +65885,14 @@ (special1.1 'special) c_1))))) - (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner - seq-config16_0)) - c_1 - seq-config16_0)) + (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner + seq-config16_0))) + c_1 + seq-config16_0))) #f) #f) #f) @@ -65355,10 +66071,11 @@ (if (eof-object? e_0) (let ((temp24_0 "expected a ~a to close `~a`~a")) (let ((temp25_0 - (effective-char-names - closer14_0 - config_0 - "closer"))) + (begin-unsafe + (effective-char-names + closer14_0 + config_0 + "closer")))) (let ((temp27_0 (indentation-possible-cause config_0))) (let ((temp25_1 temp25_0) (temp24_1 temp24_0)) @@ -65407,8 +66124,9 @@ (let ((indentations18_0 (cons indentation_0 - (read-config/outer-indentations - seq-config16_0)))) + (begin-unsafe + (read-config/outer-indentations + seq-config16_0))))) (let ((inner19_0 (read-config/outer-inner elem-config_0))) (let ((indentations18_1 indentations18_0)) @@ -65502,8 +66220,9 @@ v_0 (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config11_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config11_0))))) (let ((c_0 (peek-char-or-special in10_0 @@ -65515,7 +66234,7 @@ c_0))))) (if (digit? c_0 base1_0) (begin - (begin (read-char in10_0) (void)) + (begin-unsafe (begin (read-char in10_0) (void))) (if accum-str9_0 (accum-string-add! accum-str9_0 c_0) (void)) @@ -65542,14 +66261,15 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config11_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config11_0))))) (let ((c_0 (peek-char-or-special in10_0 0 'special source_0))) (if (eq? c_0 'special) (special1.1 'special) c_0))))) (if (digit? c_0 base1_0) (begin - (begin (read-char in10_0) (void)) + (begin-unsafe (begin (read-char in10_0) (void))) (if accum-str9_0 (accum-string-add! accum-str9_0 c_0) (void)) (let ((app_0 (let ((app_0 (digit->number c_0))) @@ -65879,12 +66599,13 @@ (let ((single-mode_0 (if (parse-state-can-single? state_0) 'single 'double))) (let ((convert-mode_1 convert-mode_0) (exactness_1 exactness_0)) - (parse-state6.1 - exactness_1 - convert-mode_1 - (eq? single-mode_0 'single) - #f - exactness_1))))))) + (begin-unsafe + (parse-state6.1 + exactness_1 + convert-mode_1 + (eq? single-mode_0 'single) + #f + exactness_1)))))))) (define state-second-half (lambda (state_0) (let ((exactness_0 (parse-state-exactness state_0))) @@ -65892,12 +66613,13 @@ (let ((single-mode_0 (if (parse-state-can-single? state_0) 'single 'double))) (let ((convert-mode_1 convert-mode_0) (exactness_1 exactness_0)) - (parse-state6.1 - exactness_1 - convert-mode_1 - (eq? single-mode_0 'single) - #f - exactness_1))))))) + (begin-unsafe + (parse-state6.1 + exactness_1 + convert-mode_1 + (eq? single-mode_0 'single) + #f + exactness_1)))))))) (define state->convert-mode (lambda (state_0) (if (parse-state? state_0) (parse-state-convert-mode state_0) state_0))) @@ -66492,12 +67214,13 @@ (fx+ 1 start36_0) end37_0 radix38_0 - (parse-state6.1 - exactness39_0 - convert-mode40_0 - (eq? single-mode41_0 'single) - #f - exactness39_0)) + (begin-unsafe + (parse-state6.1 + exactness39_0 + convert-mode40_0 + (eq? single-mode41_0 'single) + #f + exactness39_0))) (if (let ((or-part_0 (eqv? c_0 '#\x23))) (if or-part_0 or-part_0 #f)) (let ((next_0 (fx+ 1 start36_0))) @@ -66645,12 +67368,13 @@ (fx+ 1 start36_0) end37_0 radix38_0 - (parse-state6.1 - exactness39_0 - convert-mode40_0 - (eq? single-mode41_0 'single) - '+/- - exactness39_0)) + (begin-unsafe + (parse-state6.1 + exactness39_0 + convert-mode40_0 + (eq? single-mode41_0 'single) + '+/- + exactness39_0))) (if (let ((or-part_0 (eqv? c_0 '#\x2d))) (if or-part_0 or-part_0 #f)) (read-signed @@ -66659,12 +67383,13 @@ (fx+ 1 start36_0) end37_0 radix38_0 - (parse-state6.1 - exactness39_0 - convert-mode40_0 - (eq? single-mode41_0 'single) - '+/- - exactness39_0)) + (begin-unsafe + (parse-state6.1 + exactness39_0 + convert-mode40_0 + (eq? single-mode41_0 'single) + '+/- + exactness39_0))) (if (let ((or-part_0 (eqv? c_0 '#\x2e))) (if or-part_0 or-part_0 #f)) (let ((app_0 (fx+ 1 start36_0))) @@ -66677,12 +67402,13 @@ end37_0 radix38_0 (let ((temp104_0 - (parse-state6.1 - exactness39_0 - convert-mode40_0 - (eq? single-mode41_0 'single) - #f - exactness39_0))) + (begin-unsafe + (parse-state6.1 + exactness39_0 + convert-mode40_0 + (eq? single-mode41_0 'single) + #f + exactness39_0)))) (set-exactness.1 #f temp104_0 'approx)))) (bad-digit c_0 s35_0 convert-mode40_0)))))))))))) (define read-signed @@ -68211,8 +68937,9 @@ (override-parameter 1/read-cdot orig-config7_0 #f) orig-config7_0))) (let ((rt_0 - (read-config/inner-readtable - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))))) (let ((c1_0 (if rt_0 (if (let ((or-part_0 (eq? mode1_0 'symbol-or-number))) @@ -68223,8 +68950,10 @@ #f) #f))) (if c1_0 - (let ((app_0 (read-config/outer-line config_0))) - (let ((app_1 (read-config/outer-col config_0))) + (let ((app_0 + (begin-unsafe (read-config/outer-line config_0)))) + (let ((app_1 + (begin-unsafe (read-config/outer-col config_0)))) (readtable-apply c1_0 init-c5_0 @@ -68232,7 +68961,7 @@ config_0 app_0 app_1 - (read-config/outer-pos config_0)))) + (begin-unsafe (read-config/outer-pos config_0))))) (let ((accum-str_0 (accum-string-init! config_0))) (let ((quoted-ever?_0 (box #f))) (let ((case-sens?_0 @@ -68242,8 +68971,9 @@ (accum-string-add! accum-str_0 extra-prefix2_0) (void)) (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (begin (letrec* ((loop_0 @@ -68280,14 +69010,16 @@ (begin (if init-c_0 (void) - (begin - (read-char-or-special - in6_0 - special1.1 - (read-config/inner-source - (read-config/outer-inner - config_0))) - (void))) + (begin-unsafe + (begin + (read-char-or-special + in6_0 + special1.1 + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0)))) + (void)))) (unexpected-quoted_0 config_0 in6_0 @@ -68312,14 +69044,16 @@ (begin (if init-c_0 (void) - (begin - (read-char in6_0) - (void))) + (begin-unsafe + (begin + (read-char in6_0) + (void)))) (loop_0 #f #f - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (if (if (char=? ec_0 '#\x7c) (check-parameter read-accept-bar-quote @@ -68328,9 +69062,10 @@ (begin (if init-c_0 (void) - (begin - (read-char in6_0) - (void))) + (begin-unsafe + (begin + (read-char in6_0) + (void)))) (unsafe-set-box*! quoted-ever?_0 #t) @@ -68343,17 +69078,19 @@ (loop_0 #f c_0 - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (if (if (char=? ec_0 '#\x5c) (not pipe-quote-c_0) #f) (begin (if init-c_0 (void) - (begin - (read-char in6_0) - (void))) + (begin-unsafe + (begin + (read-char in6_0) + (void)))) (let ((next-c_0 (read-char-or-special in6_0 @@ -68385,14 +69122,16 @@ (loop_0 #f #f - (accum-string-pos - accum-str_0))))) + (begin-unsafe + (accum-string-pos + accum-str_0)))))) (begin (if init-c_0 (void) - (begin - (read-char in6_0) - (void))) + (begin-unsafe + (begin + (read-char in6_0) + (void)))) (accum-string-add! accum-str_0 c_0) @@ -68662,10 +69401,11 @@ v_0 i_0 e_0) - (raise-argument-error - 'for*/vector - "fixnum?" - e_0)) + (begin-unsafe + (raise-argument-error + 'for*/vector + "fixnum?" + e_0))) (unsafe-fx+ 1 i_0)))) @@ -68718,10 +69458,11 @@ v_0 i_0 e_0) - (raise-argument-error - 'for*/vector - "flonum?" - e_0)) + (begin-unsafe + (raise-argument-error + 'for*/vector + "flonum?" + e_0))) (unsafe-fx+ 1 i_0)))) @@ -68877,8 +69618,9 @@ (void)))) vec_0))))))))) (wrap - (if (read-config/inner-for-syntax? - (read-config/outer-inner config10_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config10_0))) (vector->immutable-vector vec_0) vec_0) in9_0 @@ -68888,10 +69630,11 @@ (lambda (read-one_0 dispatch-c_0 c_0 c2_0 in_0 config_0) (let ((vector-mode_0 (if (char=? c2_0 '#\x78) 'fixnum 'flonum))) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (begin - (if (read-config/inner-for-syntax? - (read-config/outer-inner config_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))) (let ((temp28_0 "literal f~avectors not allowed")) (reader-error.1 unsafe-undefined @@ -68905,8 +69648,9 @@ (void)) (let ((c3_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (call-with-values (lambda () @@ -68993,8 +69737,9 @@ v_0 app_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))))))))) (define read-struct (letrec ((procz1 @@ -69002,8 +69747,9 @@ (lambda (read-one_0 dispatch-c_0 in_0 config_0) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (let ((ec_0 (effective-char c_0 config_0))) (let ((seq_0 @@ -69115,10 +69861,12 @@ config_0 temp24_0 (list dispatch-c_0)))) - (if (read-config/inner-for-syntax? - (read-config/outer-inner config_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))) (if (let ((k_0 (car seq_0))) - (prefab-key-all-fields-immutable? k_0)) + (begin-unsafe + (prefab-key-all-fields-immutable? k_0))) (void) (let ((temp28_0 "cannot read mutable `~as` form as syntax")) @@ -69185,16 +69933,19 @@ ((post-line_0 post-col_0 post-pos_0) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (let ((ec_0 (effective-char c_0 config_0))) (if (eqv? ec_0 '#\x28) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (read-vector.1 v_0 'any @@ -69206,10 +69957,12 @@ config_0)) (if (eqv? ec_0 '#\x5b) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (if (check-parameter 1/read-square-bracket-as-paren config_0) @@ -69239,10 +69992,12 @@ temp26_0)))) (if (eqv? ec_0 '#\x7b) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (if (check-parameter 1/read-curly-brace-as-paren config_0) @@ -69273,9 +70028,10 @@ (if (if (eqv? c_0 '#\x3d) #t (eqv? c_0 '#\x23)) (begin (if (let ((or-part_0 - (read-config/inner-for-syntax? - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner + config_0))))) (if or-part_0 or-part_0 (not @@ -69284,9 +70040,10 @@ config_0)))) (let ((temp39_0 "`#...~a` forms not ~a")) (let ((temp41_0 - (if (read-config/inner-for-syntax? - (read-config/outer-inner - config_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner + config_0))) "allowed in `read-syntax` mode" "enabled"))) (let ((temp39_1 temp39_0)) @@ -69300,7 +70057,10 @@ temp39_1 (list c_0 temp41_0))))) (void)) - (if (<= (accum-string-pos accum-str_0) 8) + (if (<= + (begin-unsafe + (accum-string-pos accum-str_0)) + 8) (void) (let ((temp44_0 "graph ID too long in `~a~a~a`")) @@ -69376,11 +70136,13 @@ temp63_0 c_0))))) (void)) - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner - config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner + config_0))) + accum-str_0)) (placeholder-set! ph_0 result-v_0) ph_0)))))) (if (eqv? c_0 '#\x23) @@ -69388,9 +70150,10 @@ (hash-ref (let ((or-part_0 (read-config-state-graph - (read-config/inner-st - (read-config/outer-inner - config_0))))) + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner + config_0)))))) (if or-part_0 or-part_0 hash2725)) v_0 (lambda () @@ -69416,10 +70179,12 @@ dispatch-c_0 temp73_0 c_0))))))) - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0)) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0))) (void)))) (let ((temp80_0 "bad syntax `~a`")) (let ((temp81_0 @@ -69441,7 +70206,9 @@ (args (raise-binding-result-arity-error 3 args))))))))))) (define get-graph-hash (lambda (config_0) - (let ((st_0 (read-config/inner-st (read-config/outer-inner config_0)))) + (let ((st_0 + (begin-unsafe + (read-config/inner-st (read-config/outer-inner config_0))))) (let ((or-part_0 (read-config-state-graph st_0))) (if or-part_0 or-part_0 @@ -69450,9 +70217,12 @@ (define coerce-key (lambda (key_0 config_0) (let ((for-syntax?_0 - (read-config/inner-for-syntax? (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))))) (|#%app| - (read-config/inner-coerce-key (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-coerce-key (read-config/outer-inner config_0))) for-syntax?_0 key_0)))) (define read-hash @@ -69463,8 +70233,9 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (begin (if (let ((or-part_0 (eqv? c_0 expect-c_0))) @@ -69506,9 +70277,10 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (read-char-or-special in_0 special1.1 @@ -69704,8 +70476,9 @@ ((content_0 opener_0 mode_0) (let ((graph?_0 (if (read-config-state-graph - (read-config/inner-st - (read-config/outer-inner config_0))) + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0)))) #t #f))) (wrap @@ -69761,10 +70534,11 @@ (if (eof-object? c_0) (let ((temp58_0 "expected ~a to close `~a`")) (let ((temp59_0 - (effective-char-names - overall-closer-ec_0 - config_0 - "closer"))) + (begin-unsafe + (effective-char-names + overall-closer-ec_0 + config_0 + "closer")))) (let ((temp58_1 temp58_0)) (reader-error.1 unsafe-undefined @@ -69854,9 +70628,10 @@ (if (if (eqv? dot-ec_0 '#\x2e) (let ((c_1 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -69866,11 +70641,13 @@ (if (eq? c_1 'special) (special1.1 'special) c_1))))) - (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner config_0)) - c_1 - config_0)) + (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))) + c_1 + config_0))) #f) (void) (let ((temp70_0 @@ -69881,7 +70658,7 @@ dot-pos_0))) (let ((temp72_0 "expected ~a and value for hash")) - (let ((temp73_0 "`.`")) + (let ((temp73_0 (begin-unsafe "`.`"))) (let ((temp72_1 temp72_0) (temp70_1 temp70_0)) (reader-error.1 @@ -69926,10 +70703,11 @@ (let ((temp77_0 "expected ~a after value within a hash")) (let ((temp78_0 - (effective-char-names - closer_0 - config_0 - "closer"))) + (begin-unsafe + (effective-char-names + closer_0 + config_0 + "closer")))) (let ((temp77_1 temp77_0) (temp75_1 temp75_0)) (reader-error.1 @@ -70010,8 +70788,9 @@ (lambda (mode1_0 in3_0 config4_0) (begin (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config4_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config4_0))))) (call-with-values (lambda () (port-next-location in3_0)) (case-lambda @@ -70245,14 +71024,16 @@ (if (eqv? maybe-newline-c_0 '#\xa) - (begin - (read-char in3_0) - (void)) + (begin-unsafe + (begin + (read-char in3_0) + (void))) (void)) (void))) (let ((pos_0 - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (begin (accum-string-add! accum-str_0 @@ -70293,17 +71074,19 @@ c_0 temp33_0 mode1_0)))))) - (set-accum-string-pos! - accum-str_0 - pos_0) + (begin-unsafe + (set-accum-string-pos! + accum-str_0 + pos_0)) (accum-string-add! accum-str_0 (integer->char v_0)))))))) (if (unsafe-fx< index_0 14) (let ((pos_0 - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (let ((v_0 (read-digits.1 16 @@ -70322,9 +71105,10 @@ v_0 c_0 escaped-c_0)) - (set-accum-string-pos! - accum-str_0 - pos_0) + (begin-unsafe + (set-accum-string-pos! + accum-str_0 + pos_0)) (accum-string-add! accum-str_0 (integer->char v_0))))) @@ -70339,8 +71123,9 @@ in3_0 mode1_0)) (let ((pos_0 - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (let ((v_0 (read-digits.1 16 @@ -70369,9 +71154,10 @@ v_0 57343))) (begin - (set-accum-string-pos! - accum-str_0 - pos_0) + (begin-unsafe + (set-accum-string-pos! + accum-str_0 + pos_0)) (accum-string-add! accum-str_0 (integer->char @@ -70455,9 +71241,10 @@ c_0 temp57_0))))) (begin - (set-accum-string-pos! - accum-str_0 - pos_0) + (begin-unsafe + (set-accum-string-pos! + accum-str_0 + pos_0)) (accum-string-add! accum-str_0 (integer->char @@ -70492,8 +71279,9 @@ in3_0 mode1_0)) (let ((pos_0 - (accum-string-pos - accum-str_0))) + (begin-unsafe + (accum-string-pos + accum-str_0)))) (let ((v_0 (read-digits.1 16 @@ -70526,9 +71314,10 @@ 1114111) #f) (begin - (set-accum-string-pos! - accum-str_0 - pos_0) + (begin-unsafe + (set-accum-string-pos! + accum-str_0 + pos_0)) (accum-string-add! accum-str_0 (integer->char @@ -70617,7 +71406,8 @@ (cons c_0 (loop_0 config_0 in_0 source_0))))))))))) (lambda (in_0 config_0) (let ((source_0 - (read-config/inner-source (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source (read-config/outer-inner config_0))))) (call-with-values (lambda () (port-next-location in_0)) (case-lambda @@ -70739,8 +71529,9 @@ (lambda (in_0 config_0) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (let ((char_0 (if (eof-object? c_0) @@ -70768,8 +71559,9 @@ (if (octal-digit? c_0) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -70781,11 +71573,12 @@ c_1))))) (if (if (char? c2_0) (octal-digit? c2_0) #f) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (let ((c3_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 @@ -70839,10 +71632,12 @@ (<= v_0 1114111) #f) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (integer->char v_0)) (let ((temp23_0 "bad character constant `#\\u~a`")) @@ -70862,16 +71657,19 @@ temp23_1 (list temp24_0)))))) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) c_0)))) (if (char-alphabetic? c_0) (let ((next-c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -70890,7 +71688,8 @@ (begin (accum-string-add! accum-str_0 next-c_0) (begin - (begin (read-char in_0) (void)) + (begin-unsafe + (begin (read-char in_0) (void))) (begin (letrec* ((loop_0 @@ -70900,9 +71699,10 @@ (begin (let ((next-c_1 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -70920,9 +71720,10 @@ (accum-string-add! accum-str_0 next-c_1) - (begin - (read-char in_0) - (void)) + (begin-unsafe + (begin + (read-char in_0) + (void))) (loop_0)) (void)))))))) (loop_0)) @@ -71009,8 +71810,9 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (let ((c_0 (peek-char-or-special in_0 @@ -71020,11 +71822,13 @@ (if (eq? c_0 'special) (special1.1 'special) c_0))))) - (if (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner config_0)) - c_0 - config_0) + (if (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))) + c_0 + config_0)) (if (null? chars_1) (void) (let ((temp4_0 "bad syntax `#~a`")) @@ -71058,17 +71862,19 @@ (list temp11_0)))))) (if (if can-match?_0 (char=? c_0 (car chars_1)) #f) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (accum-string-add! accum-str_0 c_0) (loop_0 (cdr chars_1))) (begin - (begin - (read-char-or-special - in_0 - special1.1 - (read-config/inner-source - (read-config/outer-inner config_0))) - (void)) + (begin-unsafe + (begin + (read-char-or-special + in_0 + special1.1 + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0)))) + (void))) (accum-string-add! accum-str_0 c_0) (let ((temp16_0 "bad syntax `#~a`")) (let ((temp17_0 @@ -71127,8 +71933,9 @@ (list dispatch-c_0))) (void)) (wrap - (if (read-config/inner-for-syntax? - (read-config/outer-inner config_0)) + (if (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config_0))) (box-immutable e_0) (box e_0)) in_0 @@ -71139,16 +71946,20 @@ (lambda (mode-c_0 accum-str_0 in_0 config_0) (let ((c3_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (let ((no-wrap-config_0 (disable-wrapping config_0))) (let ((rx_0 (if (eqv? c3_0 '#\x22) (begin - (set-read-config-state-accum-str! - (read-config/inner-st (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (let ((str_0 (read-string.1 'string in_0 no-wrap-config_0))) (catch-and-reraise-as-reader/proc in_0 @@ -71162,18 +71973,21 @@ (accum-string-add! accum-str_0 c3_0) (let ((c4_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (if (eqv? c4_0 '#\x22) (begin - (set-read-config-state-accum-str! - (read-config/inner-st - (read-config/outer-inner config_0)) - accum-str_0) + (begin-unsafe + (set-read-config-state-accum-str! + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0))) + accum-str_0)) (let ((bstr_0 (read-string.1 '|byte string| @@ -71257,8 +72071,9 @@ (void)) (let ((temp41_0 (|#%app| - (read-config/inner-coerce - (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-coerce + (read-config/outer-inner config_0))) #f mod-path-wrapped_0 #f))) @@ -71284,8 +72099,9 @@ config6_0))) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config6_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config6_0))))) (read-char-or-special in5_0 special1.1 source_0)))) (begin (if (eqv? c_0 '#\x20) @@ -71316,8 +72132,9 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config13_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config13_0))))) (read-char-or-special in12_0 special1.1 source_0)))) (begin (if (if (char? c_0) (char-lang-nonsep? c_0) #f) @@ -71387,9 +72204,10 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config26_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config26_0))))) (let ((c_0 (peek-char-or-special in25_0 @@ -71403,13 +72221,15 @@ (void) (if (not (char? c_0)) (begin - (begin - (read-char-or-special - in25_0 - special1.1 - (read-config/inner-source - (read-config/outer-inner config26_0))) - (void)) + (begin-unsafe + (begin + (read-char-or-special + in25_0 + special1.1 + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config26_0)))) + (void))) (let ((temp91_0 "found non-character while reading `#~a`")) (reader-error.1 @@ -71423,7 +72243,8 @@ (list extend-str23_0)))) (if (if (char-whitespace? c_0) (positive? - (accum-string-pos accum-str_0)) + (begin-unsafe + (accum-string-pos accum-str_0))) #f) (void) (if (if one-space?16_0 @@ -71446,11 +72267,13 @@ or-part_0 (char=? '#\x2f c_0))) (begin - (begin (read-char in25_0) (void)) + (begin-unsafe + (begin (read-char in25_0) (void))) (accum-string-add! accum-str_0 c_0) (loop_0)) (begin - (begin (read-char in25_0) (void)) + (begin-unsafe + (begin (read-char in25_0) (void))) (let ((temp99_0 (string-append "expected only alphanumeric, `-`, `+`, `_`, or `/`" @@ -71588,8 +72411,9 @@ (void) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (begin (if (char? c_0) @@ -71618,8 +72442,9 @@ (let ((mod-path-wrapped_0 (if (eq? mod-path-wrapped29_0 unsafe-undefined) (let ((app_0 - (read-config/inner-coerce - (read-config/outer-inner config39_0)))) + (begin-unsafe + (read-config/inner-coerce + (read-config/outer-inner config39_0))))) (|#%app| app_0 #t @@ -71635,8 +72460,9 @@ (let ((mod-path_0 (|#%app| guard_0 try-first-mod-path28_0))) (if (|#%app| - (read-config/inner-module-declared? - (read-config/outer-inner config39_0)) + (begin-unsafe + (read-config/inner-module-declared? + (read-config/outer-inner config39_0))) try-first-mod-path28_0) mod-path_0 #f)) @@ -71645,15 +72471,18 @@ or-part_0 (|#%app| guard_0 mod-path-datum36_0))))) (|#%app| - (read-config/inner-call-with-root-namespace - (read-config/outer-inner config39_0)) + (begin-unsafe + (read-config/inner-call-with-root-namespace + (read-config/outer-inner config39_0))) (lambda () (let ((for-syntax?_0 - (read-config/inner-for-syntax? - (read-config/outer-inner config39_0)))) + (begin-unsafe + (read-config/inner-for-syntax? + (read-config/outer-inner config39_0))))) (let ((dynamic-require_0 - (read-config/inner-dynamic-require - (read-config/outer-inner config39_0)))) + (begin-unsafe + (read-config/inner-dynamic-require + (read-config/outer-inner config39_0))))) (let ((no-value_0 (gensym))) (let ((extension_0 (if get-info?30_0 @@ -71680,15 +72509,18 @@ current-read-config config39_0 (let ((app_0 - (read-config/inner-source - (read-config/outer-inner - config39_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config39_0))))) (let ((app_1 - (read-config/outer-line - config39_0))) + (begin-unsafe + (read-config/outer-line + config39_0)))) (let ((app_2 - (read-config/outer-col - config39_0))) + (begin-unsafe + (read-config/outer-col + config39_0)))) (|#%app| extension_0 app_0 @@ -71696,8 +72528,9 @@ mod-path-wrapped_0 app_1 app_2 - (read-config/outer-pos - config39_0)))))) + (begin-unsafe + (read-config/outer-pos + config39_0))))))) (if (procedure-arity-includes? extension_0 2) @@ -71707,9 +72540,10 @@ config39_0 (|#%app| extension_0 - (read-config/inner-source - (read-config/outer-inner - config39_0)) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config39_0))) in38_0)) (raise-argument-error who31_0 @@ -71723,19 +72557,22 @@ current-read-config config39_0 (let ((app_0 - (read-config/outer-line - config39_0))) + (begin-unsafe + (read-config/outer-line + config39_0)))) (let ((app_1 - (read-config/outer-col - config39_0))) + (begin-unsafe + (read-config/outer-col + config39_0)))) (|#%app| extension_0 in38_0 mod-path-wrapped_0 app_0 app_1 - (read-config/outer-pos - config39_0))))) + (begin-unsafe + (read-config/outer-pos + config39_0)))))) (if get-info?30_0 (raise-argument-error who31_0 @@ -71795,8 +72632,9 @@ (lang-error in_0 l-config_0 "" c_0)) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner l-config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner l-config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (if (eqv? c2_0 '#\x6c) (read-extension-lang.1 #t read-one_0 c_0 in_0 l-config_0) @@ -71896,8 +72734,9 @@ (if (if (let ((or-part_0 (not recursive?5_0))) (if or-part_0 or-part_0 local-graph?6_0)) (read-config-state-graph - (read-config/inner-st - (read-config/outer-inner config_0))) + (begin-unsafe + (read-config/inner-st + (read-config/outer-inner config_0)))) #f) (catch-and-reraise-as-reader/proc #f @@ -71969,8 +72808,9 @@ (begin (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (let ((c_0 (peek-char-or-special in_0 @@ -71985,7 +72825,7 @@ v_1 (if (char-whitespace? ec_0) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (loop_0 v_1)) (if (char=? ec_0 '#\x2e) (call-with-values @@ -71993,7 +72833,8 @@ (case-lambda ((dot-line_0 dot-col_0 dot-pos_0) (begin - (begin (read-char in_0) (void)) + (begin-unsafe + (begin (read-char in_0) (void))) (let ((pos-config_0 (reading-at config_0 @@ -72060,7 +72901,7 @@ (if (not (char? c_0)) (let ((v_0 (special-value c_0))) (if (1/special-comment? v_0) - (if (read-config/outer-keep-comment? config_0) + (if (begin-unsafe (read-config/outer-keep-comment? config_0)) v_0 (read-undotted #f in_0 config_0)) (coerce v_0 in_0 (reading-at config_0 line_0 col_0 pos_0)))) @@ -72209,9 +73050,10 @@ config_0) (let ((c2_1 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -72223,7 +73065,8 @@ c_1))))) (if (eqv? c2_1 '#\x40) (begin - (begin (read-char in_0) (void)) + (begin-unsafe + (begin (read-char in_0) (void))) (read-quote read-one 'unquote-splicing @@ -72438,8 +73281,9 @@ (lambda (dispatch-c_0 in_0 config_0 orig-config_0) (let ((c_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner config_0))))) (read-char-or-special in_0 special1.1 source_0)))) (if (eof-object? c_0) (let ((temp155_0 "bad syntax `~a`")) @@ -72465,9 +73309,10 @@ (list dispatch-c_0))) (let ((c3_0 (readtable-dispatch-handler orig-config_0 c_0))) (if c3_0 - (let ((line_0 (read-config/outer-line config_0))) - (let ((col_0 (read-config/outer-col config_0))) - (let ((pos_0 (read-config/outer-pos config_0))) + (let ((line_0 (begin-unsafe (read-config/outer-line config_0)))) + (let ((col_0 (begin-unsafe (read-config/outer-col config_0)))) + (let ((pos_0 + (begin-unsafe (read-config/outer-pos config_0)))) (let ((v_0 (readtable-apply c3_0 @@ -72675,8 +73520,10 @@ (if (unsafe-fx< index_0 10) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -72688,7 +73535,7 @@ c_1))))) (if (eqv? c2_0 '#\x40) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (read-quote read-one 'unsyntax-splicing @@ -72710,8 +73557,10 @@ (if (unsafe-fx< index_0 13) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -72723,7 +73572,7 @@ c_1))))) (if (eqv? '#\x3c c2_0) (begin - (begin (read-char in_0) (void)) + (begin-unsafe (begin (read-char in_0) (void))) (read-here-string in_0 config_0)) (let ((temp197_0 "bad syntax `~a<`")) (reader-error.1 @@ -72751,9 +73600,10 @@ (if (unsafe-fx< index_0 16) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -72763,11 +73613,13 @@ (if (eq? c_1 'special) (special1.1 'special) c_1))))) - (if (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner config_0)) - c2_0 - config_0) + (if (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))) + c2_0 + config_0)) (wrap #t in_0 config_0 c_0) (read-delimited-constant c_0 @@ -72778,9 +73630,10 @@ config_0))) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (let ((c_1 (peek-char-or-special in_0 @@ -72790,11 +73643,13 @@ (if (eq? c_1 'special) (special1.1 'special) c_1))))) - (if (readtable-char-delimiter? - (read-config/inner-readtable - (read-config/outer-inner config_0)) - c2_0 - config_0) + (if (begin-unsafe + (readtable-char-delimiter? + (begin-unsafe + (read-config/inner-readtable + (read-config/outer-inner config_0))) + c2_0 + config_0)) (wrap #f in_0 config_0 c_0) (if (let ((or-part_0 (char=? c2_0 '#\x78))) (if or-part_0 @@ -72913,9 +73768,10 @@ config_0)) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (read-char-or-special in_0 special1.1 @@ -72959,9 +73815,10 @@ (accum-string-add! accum-str_0 c_0) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (read-char-or-special in_0 special1.1 @@ -73001,9 +73858,10 @@ (accum-string-add! accum-str_0 c_0) (let ((c2_0 (let ((source_0 - (read-config/inner-source - (read-config/outer-inner - config_0)))) + (begin-unsafe + (read-config/inner-source + (read-config/outer-inner + config_0))))) (read-char-or-special in_0 special1.1 @@ -73047,8 +73905,9 @@ config_0) (wrap (|#%app| - (read-config/inner-read-compiled - (read-config/outer-inner config_0)) + (begin-unsafe + (read-config/inner-read-compiled + (read-config/outer-inner config_0))) in_0) in_0 config_0 @@ -73067,7 +73926,7 @@ (define retry-special-comment (lambda (v_0 in_0 config_0) (if (1/special-comment? v_0) - (if (read-config/outer-keep-comment? config_0) + (if (begin-unsafe (read-config/outer-keep-comment? config_0)) v_0 (read-undotted #f in_0 config_0)) v_0))) @@ -73285,9 +74144,10 @@ unsafe-undefined unsafe-undefined temp60_0)))) - (set-box! - (namespace-root-expand-ctx m-ns_0) - root-ctx_0))) + (begin-unsafe + (set-box! + (namespace-root-expand-ctx m-ns_0) + root-ctx_0)))) (let ((temp53_0 (namespace-mpi m-ns_0))) (namespace-module-make-available!.1 unsafe-undefined @@ -74584,28 +75444,35 @@ (let ((app_0 (if (parsed? exp-s_0) exp-s_0 - (flip-scopes - exp-s_0 - (expand-context/outer-current-introduction-scopes - ctx_0))))) + (begin-unsafe + (flip-scopes + exp-s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))))) (already-expanded1.1 app_0 - (expand-context/outer-binding-layer - ctx_0)))))) - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes - ctx_0))))) + (begin-unsafe + (expand-context/outer-binding-layer + ctx_0))))))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'opaque-expr ae_0) (void))) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'exit-local exp-s_0) (void))) @@ -74687,20 +75554,24 @@ (let ((phase_0 (if as-transformer?22_0 (add1 + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))) - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))) + (root-expand-context/outer-inner ctx_0)))))) (let ((local-ctx_0 (let ((temp83_0 (if |keep-#%expression?24_0| |keep-#%expression?24_0| - (if (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner - ctx_0)) - (|expand-context/inner-keep-#%expression?| - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner + ctx_0))) + (begin-unsafe + (|expand-context/inner-keep-#%expression?| + (root-expand-context/outer-inner + ctx_0))) #f)))) (make-local-expand-context.1 context38_0 @@ -74716,27 +75587,32 @@ push-authentic current-expand-context #f - (if (expand-context/inner-skip-visit-available? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-skip-visit-available? + (root-expand-context/outer-inner ctx_0))) (void) (namespace-visit-available-modules! - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))) phase_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'enter-local s_0) (void))) (let ((input-s_0 (let ((temp85_0 - (flip-scopes - s_0 - (expand-context/outer-current-introduction-scopes - ctx_0)))) + (begin-unsafe + (flip-scopes + s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0)))))) (add-intdef-scopes.1 unsafe-undefined #f @@ -74745,18 +75621,20 @@ (begin (if as-transformer?22_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'phase-up) (void))) (void)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -74766,9 +75644,10 @@ (begin (if stop-ids39_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'start) (void))) @@ -74819,9 +75698,10 @@ local-ctx_0))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -74831,17 +75711,20 @@ (let ((result-s_0 (if (parsed? output-s_0) output-s_0 - (flip-scopes - output-s_0 - (expand-context/outer-current-introduction-scopes - ctx_0))))) + (begin-unsafe + (flip-scopes + output-s_0 + (begin-unsafe + (expand-context/outer-current-introduction-scopes + ctx_0))))))) (begin (if skip-log-exit?27_0 (void) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - local-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + local-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -74891,8 +75774,10 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -74933,8 +75818,9 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -74971,8 +75857,9 @@ (begin (if ctx_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -75073,7 +75960,9 @@ "variable-reference?" vr_0)) (let ((mpi_0 (namespace-mpi (variable-reference->namespace* vr_0)))) - (if (eq? top-level-module-path-index mpi_0) #f mpi_0))))))) + (if (begin-unsafe (eq? top-level-module-path-index mpi_0)) + #f + mpi_0))))))) (define 1/variable-reference->resolved-module-path (|#%name| variable-reference->resolved-module-path @@ -75663,7 +76552,8 @@ (if i_0 (let ((sym_0 (hash-iterate-key prims_0 i_0))) (begin - (hash-set! built-in-symbols sym_0 #t) + (begin-unsafe + (hash-set! built-in-symbols sym_0 #t)) (for-loop_0 (hash-iterate-next prims_0 i_0)))) (values))))))) (for-loop_0 (hash-iterate-first prims_0)))) @@ -75682,7 +76572,11 @@ (case-lambda ((sym_0 val_0) (let ((table_1 - (if (hash-ref skip-syms_0 sym_0 #f) + (if (begin-unsafe + (hash-ref + skip-syms_0 + sym_0 + #f)) table_0 (let ((table_1 (call-with-values @@ -75768,8 +76662,9 @@ ht34_0) (begin (let ((mpi_0 (1/module-path-index-join (list 'quote name33_0) #f))) - (let ((temp62_0 (not protected?25_0))) - (let ((temp57_0 + (let ((temp57_0 + (let ((temp62_0 + (if (not protected?25_0) (null? protected26_0) #f))) (let ((temp64_0 (hasheqv 0 @@ -75789,10 +76684,11 @@ (lambda () (begin (if register-builtin?27_0 - (hash-set! - built-in-symbols - sym_0 - #t) + (begin-unsafe + (hash-set! + built-in-symbols + sym_0 + #t)) (void)) (let ((binding_0 (make-module-binding.1 @@ -75900,14 +76796,10 @@ mpi_0 #f null - #f)))))) - (let ((temp58_0 (1/module-path-index-resolve mpi_0))) - (let ((temp57_1 temp57_0)) - (declare-module!.1 - #t - namespace23_0 - temp57_1 - temp58_0)))))))))) + #f))))))) + (let ((temp58_0 (1/module-path-index-resolve mpi_0))) + (let ((temp57_1 temp57_0)) + (declare-module!.1 #t namespace23_0 temp57_1 temp58_0))))))))) (define declare-reexporting-module!.1 (|#%name| declare-reexporting-module! @@ -76962,13 +77854,14 @@ "native" app_1 (if rep-sfx?_0 - (path-adjust-extension - 'path-add-extension - #vu8(95) - subbytes - file_0 - dll-suffix - #t) + (begin-unsafe + (path-adjust-extension + 'path-add-extension + #vu8(95) + subbytes + file_0 + dll-suffix + #t)) file_0))))) #f))))) (reroot_0 @@ -77129,13 +78022,14 @@ compiled-dir_0 (let ((sfx_0 #vu8(46 122 111))) - (path-adjust-extension - 'path-add-extension - #vu8(95) - subbytes - file_0 - sfx_0 - #t))))))))) + (begin-unsafe + (path-adjust-extension + 'path-add-extension + #vu8(95) + subbytes + file_0 + sfx_0 + #t)))))))))) (let ((alt-zo_0 (|#%name| alt-zo @@ -77151,13 +78045,14 @@ compiled-dir_0 (let ((sfx_0 #vu8(46 122 111))) - (path-adjust-extension - 'path-add-extension - #vu8(95) - subbytes - alt-file_0 - sfx_0 - #t))))))))) + (begin-unsafe + (path-adjust-extension + 'path-add-extension + #vu8(95) + subbytes + alt-file_0 + sfx_0 + #t)))))))))) (let ((so_0 (get-so_0 base_1 @@ -77209,10 +78104,11 @@ (car c4_0) expect-module_0))))) - (begin - (with-dir*_0 - base_1 - t_0)))) + (begin-unsafe + (begin + (with-dir*_0 + base_1 + t_0))))) (let ((c3_0 (if alt-so_0 (if try-alt?_0 @@ -77242,10 +78138,11 @@ (car c3_0) expect-module_0))))) - (begin - (with-dir*_0 - base_1 - t_0)))) + (begin-unsafe + (begin + (with-dir*_0 + base_1 + t_0))))) (let ((c2_0 (if try-main?_0 (date>=?_0 @@ -77281,10 +78178,11 @@ (car c2_0) expect-module_0))))) - (begin - (with-dir*_0 - base_1 - t_0))))) + (begin-unsafe + (begin + (with-dir*_0 + base_1 + t_0)))))) (let ((c1_0 (if try-alt?_0 (date>=?_0 @@ -77320,10 +78218,11 @@ (car c1_0) expect-module_0))))) - (begin - (with-dir*_0 - base_1 - t_0))))) + (begin-unsafe + (begin + (with-dir*_0 + base_1 + t_0)))))) (if (let ((or-part_0 (not (pair? @@ -77365,10 +78264,11 @@ (1/current-load) p_0 expect-module_0)))) - (begin - (with-dir*_0 - base_1 - t_0)))))) + (begin-unsafe + (begin + (with-dir*_0 + base_1 + t_0))))))) (void))))))))))))))))))))))))) (args (raise-binding-result-arity-error @@ -78419,12 +79319,14 @@ (lambda (ctx_0) (let ((phase_0 (add1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))))) (let ((ns_0 (namespace->namespace-at-phase - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))) phase_0))) (namespace-visit-available-modules! ns_0 phase_0))))) (define expand-body.1 @@ -78434,18 +79336,24 @@ (lambda (ctx6_0 inside-sc_0 ids_0 body-ctx_0) (begin (if (let ((app_0 - (expand-context/outer-binding-layer body-ctx_0))) - (eq? app_0 (expand-context/outer-binding-layer ctx6_0))) + (begin-unsafe + (expand-context/outer-binding-layer body-ctx_0)))) + (eq? + app_0 + (begin-unsafe + (expand-context/outer-binding-layer ctx6_0)))) (increment-binding-layer ids_0 body-ctx_0 inside-sc_0) - (expand-context/outer-binding-layer body-ctx_0))))))) + (begin-unsafe + (expand-context/outer-binding-layer body-ctx_0)))))))) (|#%name| expand-body (lambda (source1_0 stratified?2_0 bodys5_0 ctx6_0) (begin (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx6_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx6_0))))) (if obs_0 (call-expand-observe obs_0 'enter-block bodys5_0) (void))) @@ -78475,8 +79383,9 @@ (for-loop_0 null bodys5_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx6_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx6_0))))) (if obs_0 (call-expand-observe obs_0 @@ -78485,8 +79394,9 @@ bodys5_0) (void))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx6_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx6_0))))) (let ((frame-id_0 (make-reference-record))) (let ((def-ctx-scopes_0 (box null))) (let ((body-ctx_0 @@ -78502,14 +79412,16 @@ (let ((scopes56_0 (cons inside-sc_0 - (expand-context/outer-scopes - ctx6_0)))) + (begin-unsafe + (expand-context/outer-scopes + ctx6_0))))) (let ((use-site-scopes57_0 (box null))) (let ((reference-records59_0 (cons frame-id_0 - (expand-context/outer-reference-records - ctx6_0)))) + (begin-unsafe + (expand-context/outer-reference-records + ctx6_0))))) (let ((inner60_0 (root-expand-context/outer-inner ctx6_0))) @@ -78554,7 +79466,9 @@ 'struct-copy "expand-context/outer?" ctx6_0)))) - (let ((name_0 (expand-context/outer-name ctx6_0))) + (let ((name_0 + (begin-unsafe + (expand-context/outer-name ctx6_0)))) (letrec* ((loop_0 (|#%name| @@ -78618,9 +79532,10 @@ (let ((rest-bodys_0 (cdr bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -78710,9 +79625,10 @@ (if (eq? tmp_0 'begin) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -78792,9 +79708,10 @@ rest-bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -78821,9 +79738,10 @@ (if (eq? tmp_0 'define-values) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79028,9 +79946,10 @@ body-ctx_1))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79047,13 +79966,15 @@ exp-body_0 dups_0))) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - ctx6_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + ctx6_0))))) (let ((local-sym_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner - ctx6_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner + ctx6_0))) 'loc #f))) (let ((keys_0 @@ -79126,10 +80047,11 @@ id_0))) (let ((env_1 (let ((env_1 - (hash-set - env_0 - key_0 - val_0))) + (begin-unsafe + (hash-set + env_0 + key_0 + val_0)))) (values env_1)))) (for-loop_0 @@ -79138,8 +80060,9 @@ rest_1))))))) env_0)))))) (for-loop_0 - (expand-context/outer-env - body-ctx_1) + (begin-unsafe + (expand-context/outer-env + body-ctx_1)) keys_0 ids_0))))) (let ((app_0 @@ -79384,9 +80307,10 @@ 'define-syntaxes) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79591,9 +80515,10 @@ body-ctx_1))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79610,13 +80535,15 @@ exp-body_0 dups_0))) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - ctx6_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + ctx6_0))))) (let ((local-sym_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner - ctx6_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner + ctx6_0))) 'mac #f))) (let ((keys_0 @@ -79659,9 +80586,10 @@ ids_0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79672,9 +80600,10 @@ ctx6_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79731,10 +80660,11 @@ id_0 phase_0 body-ctx_1) - (hash-set - env_0 - key_0 - val_0)))) + (begin-unsafe + (hash-set + env_0 + key_0 + val_0))))) (values env_1)))) (for-loop_0 @@ -79744,16 +80674,18 @@ rest_2)))))))) env_0)))))) (for-loop_0 - (expand-context/outer-env - body-ctx_1) + (begin-unsafe + (expand-context/outer-env + body-ctx_1)) keys_0 vals_0 ids_0))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -79969,11 +80901,14 @@ (let ((scopes139_0 (let ((app_0 (unbox - (root-expand-context/outer-use-site-scopes - body-ctx22_0)))) + (begin-unsafe + (root-expand-context/outer-use-site-scopes + body-ctx22_0))))) (append app_0 - (expand-context/outer-scopes body-ctx22_0))))) + (begin-unsafe + (expand-context/outer-scopes + body-ctx22_0)))))) (let ((inner143_0 (root-expand-context/outer-inner v_0))) (let ((scopes139_1 scopes139_0) @@ -80025,9 +80960,10 @@ (let ((last-i_0 (sub1 (length done-bodys30_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx22_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx22_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80053,9 +80989,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx22_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx22_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80146,9 +81083,10 @@ (for-loop_0 null done-bodys30_0 0)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - body-ctx22_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + body-ctx22_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80162,14 +81100,16 @@ #f) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner finish-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner finish-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'block->list) (void))) (finish-bodys_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner finish-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner finish-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80193,8 +81133,9 @@ val-keyss26_0 val-rhss27_0 track-stxs28_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner body-ctx22_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner body-ctx22_0))) (list exp-s_0) (let ((exp-s_1 (attach-disappeared-transformer-bindings @@ -80229,9 +81170,10 @@ disappeared-transformer-forms14_0))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - finish-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + finish-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80265,8 +81207,9 @@ (|#%app| get-body37_0) (let ((exp-body_0 (|#%app| get-body37_0))) (let ((result-s_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx34_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx34_0))) (if (null? accum-idss_0) (parsed-let-values17.1 (keep-properties-only source35_0) @@ -80303,8 +81246,9 @@ (if get-list?_0 (list result-s_0) result-s_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx34_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx34_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((ids_0 (car idss_0))) (let ((expanded-rhs_0 @@ -80354,9 +81298,10 @@ #f #t)))))) (let ((result-s_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx34_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx34_0))) (let ((app_0 (keep-properties-only source35_0))) @@ -80415,9 +81360,10 @@ #f #t)))))) (let ((result-s_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx34_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx34_0))) (let ((app_0 (keep-properties-only source35_0))) @@ -80508,8 +81454,9 @@ track-stxs49_0) (begin (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx34_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx34_0))))) (loop_0 ctx34_0 frame-id33_0 @@ -80552,13 +81499,15 @@ (lambda (s_0 disarmed-s_0 formals_0 bodys_0 ctx_0) (let ((sc_0 (if (not - (expand-context/inner-parsing-expanded? - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (expand-context/inner-parsing-expanded? + (root-expand-context/outer-inner ctx_0)))) (new-scope 'local) #f))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((ids_0 (|#%app| parse-and-flatten-formals @@ -80574,11 +81523,13 @@ s_0 unsafe-undefined)) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner ctx_0))))) (let ((local-sym_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner ctx_0))) 'arg #f))) (let ((keys_0 @@ -80606,9 +81557,10 @@ counter_0) (existing-binding-key id_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0))))) fold-var_0))) (values fold-var_1)))) (for-loop_0 fold-var_1 rest_0)))) @@ -80631,10 +81583,11 @@ (local-variable1.1 id_0))) (let ((env_1 (let ((env_1 - (hash-set - env_0 - key_0 - val_0))) + (begin-unsafe + (hash-set + env_0 + key_0 + val_0)))) (values env_1)))) (for-loop_0 env_1 @@ -80642,7 +81595,7 @@ rest_1))))))) env_0)))))) (for-loop_0 - (expand-context/outer-env ctx_0) + (begin-unsafe (expand-context/outer-env ctx_0)) keys_0 ids_0))))) (let ((sc-formals_0 @@ -80677,8 +81630,9 @@ bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -80692,18 +81646,21 @@ (if sc_0 (cons sc_0 + (begin-unsafe + (expand-context/outer-scopes + ctx_0))) + (begin-unsafe (expand-context/outer-scopes - ctx_0)) - (expand-context/outer-scopes - ctx_0)))) + ctx_0))))) (let ((binding-layer26_0 (if sc_0 (increment-binding-layer ids_0 ctx_0 sc_0) - (expand-context/outer-binding-layer - ctx_0)))) + (begin-unsafe + (expand-context/outer-binding-layer + ctx_0))))) (let ((inner28_0 (root-expand-context/outer-inner ctx_0))) @@ -80802,15 +81759,16 @@ fold-var_0)))))) (for-loop_0 null sc-bodys_0))))))) (values - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (|#%app| unflatten-like-formals keys_0 formals_0) sc-formals_0) exp-body_0)))))))))))))))) -(define effect_3264 +(define effect_2420 (begin (void (add-core-form!* @@ -80819,8 +81777,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-lambda disarmed-s_0) (void))) @@ -80890,15 +81849,16 @@ ctx_0)) (case-lambda ((formals_0 body_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-lambda5.1 rebuild-s_0 formals_0 body_0) (let ((temp49_0 (list* lambda37_0 formals_0 body_0))) (rebuild.1 #t rebuild-s_0 temp49_0)))) (args (raise-binding-result-arity-error 2 args)))))) (args (raise-binding-result-arity-error 4 args))))))))) (void))) -(define effect_2334 +(define effect_1841 (begin (void (add-core-form!* @@ -80956,8 +81916,9 @@ (let ((ctx_0 (get-current-expand-context.1 #t 'unexpected))) (let ((phase_0 (if ctx_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) 0))) (begin (let ((temp61_0 "argument name")) @@ -80980,7 +81941,7 @@ s_0)))))) (args (raise-binding-result-arity-error 4 args))))))) (void))) -(define effect_2700 +(define effect_3181 (begin (void (add-core-form!* @@ -80989,8 +81950,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-case-lambda disarmed-s_0) (void))) @@ -81199,9 +82161,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -81225,9 +82188,10 @@ (case-lambda ((exp-formals_0 exp-body_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (list exp-formals_0 exp-body_0) @@ -81257,8 +82221,9 @@ formals64_0 body65_0 clause72_0)))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-case-lambda6.1 rebuild-s_0 clauses_0) (let ((temp85_0 (list* case-lambda63_0 clauses_0))) (rebuild.1 #t rebuild-s_0 temp85_0)))))) @@ -81335,8 +82300,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 log-tag1_0 disarmed-s_0) (void))) @@ -82252,8 +83218,9 @@ ((ok?_1 let-values112_0 id:val113_0 val-rhs114_0 body115_0) (let ((sc_0 (if (not - (expand-context/inner-parsing-expanded? - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (expand-context/inner-parsing-expanded? + (root-expand-context/outer-inner ctx_0)))) (new-scope 'local) #f))) (begin @@ -82268,8 +83235,9 @@ (if rec?3_0 (new-scope 'letrec-body) #f) #f))) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((frame-id_0 (if syntaxes?2_0 (make-reference-record) @@ -82716,13 +83684,15 @@ s_0 unsafe-undefined)) (let ((counter_0 - (root-expand-context/inner-counter - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (root-expand-context/inner-counter + (root-expand-context/outer-inner + ctx_0))))) (let ((local-sym_0 - (if (expand-context/inner-normalize-locals? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-normalize-locals? + (root-expand-context/outer-inner + ctx_0))) 'loc #f))) (let ((trans-keyss_0 @@ -82844,9 +83814,10 @@ counter_0) (existing-binding-key id_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0))))) fold-var_1))) (values fold-var_2)))) @@ -82915,9 +83886,10 @@ bodys_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -82932,9 +83904,10 @@ (if syntaxes?2_0 (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -82976,9 +83949,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (begin (call-expand-observe @@ -82996,9 +83970,10 @@ ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -83076,10 +84051,11 @@ id_0))) (let ((env_2 (let ((env_2 - (hash-set - env_1 - key_0 - val_0))) + (begin-unsafe + (hash-set + env_1 + key_0 + val_0)))) (values env_2)))) (for-loop_1 @@ -83097,8 +84073,9 @@ rest_1)))))) env_0)))))) (for-loop_0 - (expand-context/outer-env - ctx_0) + (begin-unsafe + (expand-context/outer-env + ctx_0)) val-keyss_0 val-idss_0))))) (let ((rec-env_0 @@ -83184,10 +84161,11 @@ id_0 phase_0 ctx_0) - (hash-set - env_1 - key_0 - val_0)))) + (begin-unsafe + (hash-set + env_1 + key_0 + val_0))))) (values env_2)))) (for-loop_1 @@ -83217,9 +84195,10 @@ (begin (if syntaxes?2_0 (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -83230,8 +84209,9 @@ (as-expression-context ctx_0))) (let ((orig-rrs_0 - (expand-context/outer-reference-records - expr-ctx_0))) + (begin-unsafe + (expand-context/outer-reference-records + expr-ctx_0)))) (let ((rec-ctx_0 (if (expand-context/outer? expr-ctx_0) @@ -83240,15 +84220,17 @@ (let ((scopes_0 (cons sc_0 - (expand-context/outer-scopes - ctx_0)))) + (begin-unsafe + (expand-context/outer-scopes + ctx_0))))) (if rec?3_0 (cons body-sc_0 scopes_0) scopes_0)) - (expand-context/outer-scopes - ctx_0)))) + (begin-unsafe + (expand-context/outer-scopes + ctx_0))))) (let ((reference-records173_0 (if split-by-reference?4_0 (cons @@ -83263,8 +84245,9 @@ val-idss_0) ctx_0 sc_0) - (expand-context/outer-binding-layer - ctx_0)))) + (begin-unsafe + (expand-context/outer-binding-layer + ctx_0))))) (let ((inner175_0 (root-expand-context/outer-inner expr-ctx_0))) @@ -83324,9 +84307,10 @@ expr-ctx_0)))) (let ((letrec-values-id_0 (if (not - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0))) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0)))) (if syntaxes?2_0 (core-id 'letrec-values @@ -83341,9 +84325,10 @@ ctx_0 s_0))) (let ((val-name-idss_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (reverse$1 (begin (letrec* @@ -83416,9 +84401,10 @@ get-body (lambda () (begin - (if (expand-context/inner-parsing-expanded? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-parsing-expanded? + (root-expand-context/outer-inner + ctx_0))) (reverse$1 (begin (letrec* @@ -83582,9 +84568,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -83604,9 +84591,10 @@ #f rhs_0 temp189_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (list keys_0 exp-rhs_0) @@ -83640,9 +84628,10 @@ (reference-record-clear! frame-id_0) (void)) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (if rec?3_0 (parsed-letrec-values18.1 rebuild-s_0 @@ -83675,9 +84664,10 @@ val-keyss_0 val-rhss_0 val-clauses_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) result-s_0 (attach-disappeared-transformer-bindings result-s_0 @@ -83705,7 +84695,7 @@ 'letrec-syntaxes+values (make-let-values-form.1 'prim-letrec-syntaxes+values #t #t #t))) (void))) -(define effect_2430 +(define effect_2467 (begin (void (add-core-form!* @@ -83714,8 +84704,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 '|prim-#%stratified| disarmed-s_0) (void))) @@ -83761,8 +84752,9 @@ (let ((rebuild-s_0 (keep-as-needed.1 #f #t #f ctx_0 s_0))) (let ((exp-body_0 (expand-body.1 rebuild-s_0 #t body211_0 ctx_0))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-begin12.1 rebuild-s_0 exp-body_0) (let ((temp222_0 (if (null? (cdr exp-body_0)) @@ -83770,13 +84762,14 @@ (list* (core-id 'begin - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))) exp-body_0)))) (rebuild.1 #t rebuild-s_0 temp222_0)))))) (args (raise-binding-result-arity-error 3 args))))))))) (void))) -(define effect_2318 +(define effect_3124 (begin (void (add-core-form!* @@ -83785,8 +84778,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 '|prim-#%datum| disarmed-s_0) (void))) @@ -83821,23 +84815,27 @@ datum224_0) (void)) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) - (if (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) + (if (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set))) #f) - (let ((app_0 (keep-properties-only~ s_0))) - (parsed-quote14.1 app_0 (syntax->datum$1 datum224_0))) + (parsed-quote14.1 + (begin-unsafe #f) + (syntax->datum$1 datum224_0)) (let ((temp228_0 (list (core-id 'quote phase_0) datum224_0))) (rebuild.1 #t s_0 temp228_0)))))) (args (raise-binding-result-arity-error 3 args))))))))) (void))) -(define effect_2275 +(define effect_2721 (begin (void (add-core-form!* @@ -83846,8 +84844,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 '|prim-#%app| disarmed-s_0) (void))) @@ -83884,11 +84883,13 @@ ((ok?_0 |#%app229_0| e230_0) (if (null? e230_0) (let ((phase_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) - (parsed-quote14.1 (keep-properties-only~ s_0) null) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) + (parsed-quote14.1 (begin-unsafe #f) null) (let ((temp234_0 (list (core-id 'quote phase_0) null))) (rebuild.1 #t s_0 temp234_0)))) (let ((keep-for-parsed?_0 keep-source-locations?)) @@ -83912,9 +84913,10 @@ (let ((expr-ctx_0 (as-expression-context ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - expr-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + expr-ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -83947,9 +84949,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - expr-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + expr-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -83968,9 +84971,10 @@ rest_0)))) fold-var_0)))))) (for-loop_0 null rest-es_0)))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (parsed-app7.1 (if rebuild-prefixless_0 rebuild-prefixless_0 @@ -83994,7 +84998,7 @@ temp246_0)))))))))))))))) (args (raise-binding-result-arity-error 3 args))))))))) (void))) -(define effect_2437 +(define effect_2869 (begin (void (add-core-form!* @@ -84002,8 +85006,9 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-quote #f) (void))) (call-with-values (lambda () @@ -84055,14 +85060,16 @@ (args (raise-binding-result-arity-error 2 args)))))) (case-lambda ((ok?_0 quote249_0 datum250_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) - (let ((app_0 (keep-properties-only~ s_0))) - (parsed-quote14.1 app_0 (syntax->datum$1 datum250_0))) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) + (parsed-quote14.1 + (begin-unsafe #f) + (syntax->datum$1 datum250_0)) s_0)) (args (raise-binding-result-arity-error 3 args)))))))) (void))) -(define effect_2578 +(define effect_2630 (begin (void (add-core-form!* @@ -84071,8 +85078,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-quote-syntax disarmed-s_0) (void))) @@ -84242,7 +85250,8 @@ (if ok?_0 (begin (reference-records-all-used! - (expand-context/outer-reference-records ctx_0)) + (begin-unsafe + (expand-context/outer-reference-records ctx_0))) (call-with-values (lambda () (call-with-values @@ -84330,44 +85339,48 @@ (args (raise-binding-result-arity-error 3 args))))) (case-lambda ((ok?_2 _0 _1 kw266_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-quote-syntax15.1 - (keep-properties-only~ s_0) + (begin-unsafe #f) datum255_0) (let ((temp274_0 (list quote-syntax254_0 datum255_0 kw266_0))) (rebuild.1 #t s_0 temp274_0)))) (args (raise-binding-result-arity-error 4 args))))) (let ((use-site-scopes_0 - (root-expand-context/outer-use-site-scopes ctx_0))) + (begin-unsafe + (root-expand-context/outer-use-site-scopes + ctx_0)))) (let ((datum-s_0 (let ((app_0 (remove-scopes datum260_0 - (expand-context/outer-scopes ctx_0)))) + (begin-unsafe + (expand-context/outer-scopes ctx_0))))) (remove-scopes app_0 (if use-site-scopes_0 (unbox use-site-scopes_0) '()))))) - (if (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (let ((fs_0 - (expand-context/inner-stops - (root-expand-context/outer-inner - ctx_0)))) - (eq? fs_0 empty-free-id-set)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner + ctx_0))))) + (begin-unsafe (eq? fs_0 empty-free-id-set))) #f) - (parsed-quote-syntax15.1 - (keep-properties-only~ s_0) - datum-s_0) + (parsed-quote-syntax15.1 (begin-unsafe #f) datum-s_0) (let ((temp276_0 (list quote-syntax259_0 datum-s_0))) (rebuild.1 #t s_0 temp276_0))))))) (args (raise-binding-result-arity-error 3 args))))) (args (raise-binding-result-arity-error 3 args))))))))) (void))) -(define effect_2046 +(define effect_2334 (begin (void (add-core-form!* @@ -84376,8 +85389,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-if disarmed-s_0) (void))) @@ -84592,9 +85606,10 @@ (expand.1 #f #f tst287_0 expr-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -84602,17 +85617,19 @@ (expand.1 #f #f thn288_0 tail-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((exp-els_0 (expand.1 #f #f els289_0 tail-ctx_0))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (parsed-if8.1 rebuild-s_0 exp-tst_0 @@ -84631,7 +85648,7 @@ (args (raise-binding-result-arity-error 5 args)))))) (args (raise-binding-result-arity-error 4 args))))))))) (void))) -(define effect_2423 +(define effect_2592 (begin (void (add-core-form!* @@ -84640,8 +85657,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -84770,14 +85788,16 @@ (let ((exp-key_0 (expand.1 #f #f key313_0 expr-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((exp-val_0 (expand.1 #f #f val314_0 expr-ctx_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -84785,8 +85805,9 @@ (let ((temp333_0 (as-tail-context.1 ctx_0 expr-ctx_0))) (expand.1 #f #f body315_0 temp333_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-with-continuation-mark10.1 rebuild-s_0 exp-key_0 @@ -84812,8 +85833,9 @@ (let ((rest-es_0 (cdr es_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((app_0 (let ((temp344_0 (car es_0))) @@ -84840,8 +85862,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 log-tag12_0 disarmed-s_0) (void))) @@ -84892,20 +85915,22 @@ expr-ctx_0 last-is-tail?10_0 e339_0))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (|#%app| parsed-begin13_0 rebuild-s_0 exp-es_0) (let ((temp349_0 (cons begin338_0 exp-es_0))) (rebuild.1 #t rebuild-s_0 temp349_0))))))) (args (raise-binding-result-arity-error 3 args)))))))))))) -(define effect_2937 +(define effect_2138 (begin (void (add-core-form!* 'begin (let ((nonempty-begin_0 (make-begin.1 #t 'prim-begin parsed-begin12.1))) (lambda (s_0 ctx_0) - (let ((context_0 (expand-context/outer-context ctx_0))) + (let ((context_0 + (begin-unsafe (expand-context/outer-context ctx_0)))) (if (let ((or-part_0 (eq? context_0 'top-level))) (if or-part_0 or-part_0 (eq? context_0 'module))) (let ((disarmed-s_0 (syntax-disarm$1 s_0))) @@ -84964,29 +85989,35 @@ (void))) (define register-eventual-variable!? (lambda (id_0 ctx_0) - (if (if (expand-context/outer-need-eventually-defined ctx_0) + (if (if (begin-unsafe (expand-context/outer-need-eventually-defined ctx_0)) (>= - (expand-context/inner-phase (root-expand-context/outer-inner ctx_0)) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))) 1) #f) (begin - (let ((ht_0 (expand-context/outer-need-eventually-defined ctx_0))) + (let ((ht_0 + (begin-unsafe + (expand-context/outer-need-eventually-defined ctx_0)))) (let ((key_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((xform_0 (lambda (l_0) (cons id_0 l_0)))) (let ((key_1 key_0) (ht_1 ht_0)) - (do-hash-update - 'hash-update! - #t - hash-set! - ht_1 - key_1 - xform_0 - null))))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_1 + key_1 + xform_0 + null)))))) #t) #f))) -(define effect_2792 +(define effect_2920 (begin (void (add-core-form!* @@ -84999,8 +86030,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s359_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx360_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx360_0))))) (if obs_0 (call-expand-observe obs_0 @@ -85060,9 +86092,10 @@ args))))))) (let ((b_0 (let ((temp366_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx360_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx360_0))))) (resolve+shift.1 'ambiguous #f @@ -85078,28 +86111,36 @@ (let ((app_0 (module-binding-module b_0))) (eq? app_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner - ctx360_0)))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner + ctx360_0))))) #f) #f) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx360_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx360_0))) (parsed-id2.1 id_0 b_0 #f) (if (let ((mpi_0 (module-binding-module b_0))) - (eq? top-level-module-path-index mpi_0)) + (begin-unsafe + (eq? + top-level-module-path-index + mpi_0))) s359_0 id_0)) (if (register-eventual-variable!? id_0 ctx360_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx360_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx360_0))) (parsed-id2.1 id_0 b_0 #f) id_0) (if (not - (expand-context/inner-allow-unbound? - (root-expand-context/outer-inner - ctx360_0))) + (begin-unsafe + (expand-context/inner-allow-unbound? + (root-expand-context/outer-inner + ctx360_0)))) (raise-unbound-syntax-error #f "unbound identifier" @@ -85110,14 +86151,16 @@ (let ((tl-id_0 (add-scope id_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner - ctx360_0))))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner + ctx360_0)))))) (let ((tl-b_0 (let ((temp369_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx360_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx360_0))))) (resolve.1 #f #f @@ -85126,9 +86169,10 @@ tl-id_0 temp369_0)))) (if tl-b_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx360_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx360_0))) (parsed-top-id4.1 tl-id_0 tl-b_0 #f) (if implicit-omitted?358_0 id_0 @@ -85201,9 +86245,10 @@ (raise-binding-result-arity-error 3 args)))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx360_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx360_0))) (parsed-top-id4.1 id_0 b_0 #f) s359_0))))))))))))))))) (|#%name| @@ -85216,7 +86261,7 @@ ctx_0 implicit-omitted?358_0))))))) (void))) -(define effect_2808 +(define effect_2472 (begin (void (add-core-form!* @@ -85225,8 +86270,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-set! disarmed-s_0) (void))) @@ -85325,9 +86371,10 @@ (begin (let ((binding_0 (let ((temp386_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0))))) (resolve+shift.1 'ambiguous #f @@ -85349,9 +86396,10 @@ ((t_0 primitive?_0 insp_0 protected?_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'resolve id_0) (void))) @@ -85365,9 +86413,10 @@ ctx_0))) (if or-part_1 or-part_1 - (expand-context/inner-allow-unbound? - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-allow-unbound? + (root-expand-context/outer-inner + ctx_0))))) #f))) (begin (if (if (module-binding? binding_0) @@ -85377,9 +86426,10 @@ binding_0))) (inside-module-context? app_0 - (root-expand-context/inner-self-mpi - (root-expand-context/outer-inner - ctx_0))))) + (begin-unsafe + (root-expand-context/inner-self-mpi + (root-expand-context/outer-inner + ctx_0)))))) #f) (raise-syntax-error$1 #f @@ -85389,9 +86439,10 @@ (void)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -85415,9 +86466,10 @@ #f rhs378_0 temp395_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) (parsed-set!9.1 rebuild-s_0 (parsed-id2.1 id_0 binding_0 #f) @@ -85427,9 +86479,10 @@ set!376_0 (let ((temp400_0 (free-id-set-empty-or-just-module*? - (expand-context/inner-stops - (root-expand-context/outer-inner - ctx_0))))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner + ctx_0)))))) (substitute-variable.1 temp400_0 id_0 @@ -85477,9 +86530,10 @@ binding_0)) (case-lambda ((exp-s_0 re-ctx_0) - (if (expand-context/inner-just-once? - (root-expand-context/outer-inner - ctx_0)) + (if (begin-unsafe + (expand-context/inner-just-once? + (root-expand-context/outer-inner + ctx_0))) exp-s_0 (expand.1 #f @@ -85537,7 +86591,7 @@ disarmed-s_0) s_0) s_0))) -(define effect_2644 +(define effect_2310 (begin (void (add-core-form!* @@ -85546,8 +86600,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -85786,9 +86841,10 @@ (let ((var-id_0 (if ok?_0 id415_0 id421_0))) (let ((binding_0 (let ((temp432_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + ctx_0))))) (resolve+shift.1 'ambiguous #f @@ -85804,8 +86860,10 @@ (begin (if (if binding_0 binding_0 - (expand-context/inner-allow-unbound? - (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (expand-context/inner-allow-unbound? + (root-expand-context/outer-inner + ctx_0)))) (void) (raise-unbound-syntax-error #f @@ -85818,9 +86876,10 @@ (lambda () (if binding_0 (let ((temp438_0 - (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner + ctx_0))))) (lookup.1 s_0 temp438_0 @@ -85838,43 +86897,43 @@ var-id_0 s_0) (void)) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx_0)) - (let ((app_0 - (keep-properties-only~ s_0))) - (|parsed-#%variable-reference11.1| - app_0 - (if ok?_1 - (parsed-top-id4.1 + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx_0))) + (|parsed-#%variable-reference11.1| + (begin-unsafe #f) + (if ok?_1 + (parsed-top-id4.1 + var-id_0 + binding_0 + #f) + (if primitive?_0 + (parsed-primitive-id3.1 var-id_0 binding_0 #f) - (if primitive?_0 - (parsed-primitive-id3.1 - var-id_0 - binding_0 - #f) - (parsed-id2.1 - var-id_0 - binding_0 - #f))))) + (parsed-id2.1 + var-id_0 + binding_0 + #f)))) s_0))) (args (raise-binding-result-arity-error 4 args)))))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (|parsed-#%variable-reference11.1| - (keep-properties-only~ s_0) + (begin-unsafe #f) #f) s_0))) (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 4 args))))) (args (raise-binding-result-arity-error 3 args))))))))) (void))) -(define effect_2851 +(define effect_2163 (begin (void (add-core-form!* @@ -85883,8 +86942,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 '|prim-#%expression| disarmed-s_0) (void))) @@ -85947,28 +87007,33 @@ (let ((temp449_0 (as-expression-context ctx_0))) (as-tail-context.1 ctx_0 temp449_0)))) (expand.1 #f #f e440_0 temp448_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) exp-e_0 (if (let ((or-part_0 - (if (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner ctx_0)) - (|expand-context/inner-keep-#%expression?| - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner ctx_0))) + (begin-unsafe + (|expand-context/inner-keep-#%expression?| + (root-expand-context/outer-inner ctx_0))) #f))) (if or-part_0 or-part_0 (eq? 'top-level - (expand-context/outer-context ctx_0)))) + (begin-unsafe + (expand-context/outer-context ctx_0))))) (let ((temp452_0 (list |#%expression439_0| exp-e_0))) (rebuild.1 #t rebuild-s_0 temp452_0)) (let ((result-s_0 (syntax-track-origin$1 exp-e_0 rebuild-s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'tag result-s_0) (void))) @@ -88484,8 +89549,9 @@ (args (raise-binding-result-arity-error 2 args))))))))) (lambda (specs_0 orig-s_0 rp_0 self_0 phase_0 ctx_0) (let ((ns_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (loop_0 ctx_0 ns_0 orig-s_0 rp_0 self_0 specs_0 phase_0 #f 'raw))))) (define parse-identifier! (lambda (spec_0 orig-s_0 sym_0 at-phase_0 ns_0 rp_0 protected?_0) @@ -88640,9 +89706,9 @@ phase-desc (lambda (at-phase_0) (begin - (if (eq? at-phase_0 0) + (if (begin-unsafe (eq? at-phase_0 0)) "" - (if (not at-phase_0) + (if (begin-unsafe (not at-phase_0)) " for-label" (format " for phase ~a" at-phase_0)))))))) (lambda (mpi_0 @@ -89194,19 +90260,22 @@ (if (parsed? body_0) (datum->syntax$1 #f body_0 (parsed-s body_0)) body_0)))) -(define effect_2299 +(define effect_2989 (begin (void (add-core-form!* 'module (lambda (s_0 ctx_0) (begin - (if (eq? (expand-context/outer-context ctx_0) 'top-level) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'top-level) (void) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-module #f) (void))) (raise-syntax-error$1 #f "allowed only at the top level" s_0))) (if log-performance? @@ -89226,7 +90295,7 @@ #f) (if log-performance? (end-performance-region) (void))))))) (void))) -(define effect_2474 +(define effect_2067 (begin (void (add-core-form!* @@ -89234,15 +90303,16 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-module #f) (void))) (raise-syntax-error$1 #f "illegal use (not in a module top-level)" s_0))))) (void))) -(define effect_2300 +(define effect_2445 (begin (void (add-core-form!* @@ -89250,24 +90320,29 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-module-begin #f) (void))) - (if (eq? (expand-context/outer-context ctx_0) 'module-begin) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'module-begin) (void) (raise-syntax-error$1 #f "not in a module-definition context" s_0)) - (if (expand-context/inner-module-begin-k - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-module-begin-k + (root-expand-context/outer-inner ctx_0))) (void) (raise-syntax-error$1 #f "not currently transforming a module" s_0)) (let ((app_0 - (expand-context/inner-module-begin-k - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-module-begin-k + (root-expand-context/outer-inner ctx_0))))) (|#%app| app_0 s_0 @@ -89443,7 +90518,7 @@ "expand-context/outer?" ctx_0)))))))) (void))) -(define effect_2956 +(define effect_2522 (begin (void (add-core-form!* @@ -89451,8 +90526,9 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-declare #f) (void))) (raise-syntax-error$1 #f @@ -89540,8 +90616,9 @@ (let ((disarmed-s_0 (syntax-disarm$1 s13_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner init-ctx14_0))))) (if obs_0 (call-expand-observe obs_0 'prim-module disarmed-s_0) (void))) @@ -89720,9 +90797,10 @@ (let ((root-ctx_0 (let ((temp226_0 (if keep-enclosing-scope-at-phase2_0 - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner - init-ctx14_0)) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner + init-ctx14_0))) null))) (make-root-expand-context.1 initial-require-s_0 @@ -89731,17 +90809,20 @@ inside-scope_0 self_0)))) (let ((new-module-scopes_0 - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner + root-ctx_0))))) (let ((frame-id_0 - (root-expand-context/outer-frame-id - root-ctx_0))) + (begin-unsafe + (root-expand-context/outer-frame-id + root-ctx_0)))) (let ((m-ns_0 (let ((temp234_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner - init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner + init-ctx14_0))))) (make-m-ns_0 enclosing-self15_0 root-ctx_0 @@ -90090,9 +91171,10 @@ #f self_0)))) (let ((defined-syms_0 - (root-expand-context/inner-defined-syms - (root-expand-context/outer-inner - root-ctx_0)))) + (begin-unsafe + (root-expand-context/inner-defined-syms + (root-expand-context/outer-inner + root-ctx_0))))) (let ((compiled-submodules_0 (make-hasheq))) (let ((compiled-module-box_0 @@ -90101,9 +91183,10 @@ (box null))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + init-ctx14_0))))) (if obs_0 (call-expand-observe obs_0 @@ -90123,9 +91206,10 @@ #t) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + init-ctx14_0))))) (if obs_0 (call-expand-observe obs_0 @@ -90497,9 +91581,10 @@ body270_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -90569,11 +91654,12 @@ #f temp310_0)))) (let ((module-lifts307_0 - (module-lift-context15.1 - phase_0 - (box - null) - #t))) + (begin-unsafe + (module-lift-context15.1 + phase_0 + (box + null) + #t)))) (let ((require-lifts308_0 (let ((do-require_0 (let ((requires+provides313_0 @@ -90584,11 +91670,12 @@ m-ns_0 self_0 requires+provides313_0)))) - (require-lift-context16.1 - do-require_0 - phase_0 - (box - null))))) + (begin-unsafe + (require-lift-context16.1 + do-require_0 + phase_0 + (box + null)))))) (let ((to-module-lifts309_0 (make-to-module-lift-context.1 #f @@ -90780,9 +91867,10 @@ bodys_1))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - partial-body-ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + partial-body-ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -90803,9 +91891,10 @@ the-struct_0) (let ((stops337_0 (if keep-stops?_0 - (expand-context/inner-stops - (root-expand-context/outer-inner - ctx_1)) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner + ctx_1))) empty-free-id-set))) (let ((to-module-lifts338_0 (make-to-module-lift-context.1 @@ -90999,9 +92088,10 @@ ctx_1))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -91016,9 +92106,10 @@ requires+provides_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -91061,9 +92152,10 @@ (void)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_1)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_1))))) (if obs_0 (call-expand-observe obs_0 @@ -91302,9 +92394,10 @@ requires+provides370_1 self_0 fully-expanded-bodys-except-post-submodules_0))))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - submod-ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + submod-ctx_0))) (|parsed-#%module-begin24.1| rebuild-mb-s_0 (parsed-only @@ -91320,9 +92413,10 @@ rebuild-mb-s_0 temp379_0)))) (if (not - (expand-context/inner-in-local-expand? - (root-expand-context/outer-inner - submod-ctx_0))) + (begin-unsafe + (expand-context/inner-in-local-expand? + (root-expand-context/outer-inner + submod-ctx_0)))) (expanded+parsed1.1 mb-result-s_0 (|parsed-#%module-begin24.1| @@ -91522,9 +92616,10 @@ bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -91625,9 +92720,10 @@ provides_0) (let ((result-form_0 (if (let ((or-part_0 - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + init-ctx14_0))))) (if or-part_0 or-part_0 always-produce-compiled?1_0)) @@ -91665,9 +92761,10 @@ #f))) (let ((result-s_0 (if (not - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - init-ctx14_0))) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + init-ctx14_0)))) (let ((generic-self_0 (make-generic-self-module-path-index self_0))) @@ -91737,9 +92834,10 @@ result-s_2))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - init-ctx14_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + init-ctx14_0))))) (if obs_0 (call-expand-observe obs_0 @@ -91748,9 +92846,10 @@ (void))) result-s_3))))))) (void)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - init-ctx14_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + init-ctx14_0))) result-form_0 (if always-produce-compiled?1_0 (expanded+parsed1.1 @@ -91839,14 +92938,16 @@ (car bodys31_0) (let ((named-body-s_0 (let ((stx_0 (car bodys31_0))) - (syntax-property$1 - stx_0 - 'enclosing-module-name - module-name-sym17_0)))) + (begin-unsafe + (syntax-property$1 + stx_0 + 'enclosing-module-name + module-name-sym17_0))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx20_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx20_0))))) (if obs_0 (call-expand-observe obs_0 @@ -91901,14 +93002,16 @@ module-name-sym17_0 temp423_0))))) (let ((named-mb_0 - (syntax-property$1 - mb_0 - 'enclosing-module-name - module-name-sym17_0))) + (begin-unsafe + (syntax-property$1 + mb_0 + 'enclosing-module-name + module-name-sym17_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx20_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx20_0))))) (if obs_0 (call-expand-observe obs_0 @@ -91947,18 +93050,21 @@ s36_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner mb-ctx40_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner mb-ctx40_0))))) (if obs_0 (call-expand-observe obs_0 'tag mb_0) (void))) (let ((named-mb_0 - (syntax-property$1 - mb_0 - 'enclosing-module-name - module-name-sym39_0))) + (begin-unsafe + (syntax-property$1 + mb_0 + 'enclosing-module-name + module-name-sym39_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner mb-ctx40_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner mb-ctx40_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92015,8 +93121,9 @@ (remove-use-site-scopes (remove-scopes s_0 - (root-expand-context/inner-module-scopes - (root-expand-context/outer-inner init-ctx_0))) + (begin-unsafe + (root-expand-context/inner-module-scopes + (root-expand-context/outer-inner init-ctx_0)))) init-ctx_0)))) (let ((s-with-edges_0 (add-scope @@ -92069,8 +93176,9 @@ (if (eq? tmp_0 'begin) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92127,9 +93235,10 @@ rest-bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92158,8 +93267,9 @@ (if (eq? tmp_0 'begin-for-syntax) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92209,9 +93319,10 @@ ((ok?_0 begin-for-syntax441_0 e442_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'prepare-env) (void))) @@ -92223,9 +93334,10 @@ (prepare-next-phase-namespace ctx43_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'phase-up) (void))) @@ -92237,9 +93349,10 @@ #f))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92258,9 +93371,10 @@ namespace44_0 phase42_0) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92328,8 +93442,10 @@ (if (eq? tmp_0 'define-values) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92560,9 +93676,10 @@ syms_0 phase42_0) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92601,9 +93718,10 @@ (if (eq? tmp_0 'define-syntaxes) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -92783,9 +93901,10 @@ ((ok?_0 define-syntaxes473_0 id474_0 rhs475_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'prepare-env) (void))) @@ -92793,9 +93912,10 @@ (prepare-next-phase-namespace ctx43_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'phase-up) (void))) @@ -93081,9 +94201,10 @@ ids_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93101,9 +94222,10 @@ syms_0 parsed-rhs_0))) (let ((app_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx43_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx43_0))) parsed-body_0 (expanded+parsed1.1 (let ((temp514_0 @@ -93145,9 +94267,10 @@ (if (eq? tmp_0 '|#%require|) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93221,9 +94344,10 @@ phase42_0 requires-and-provides47_0) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93257,9 +94381,10 @@ (if (eq? tmp_0 '|#%provide|) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'prim-stop #f) (void))) @@ -93286,9 +94411,10 @@ (if (eq? tmp_0 'module) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93335,9 +94461,10 @@ (if (eq? tmp_0 'module*) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93367,9 +94494,10 @@ (if (eq? tmp_0 '|#%declare|) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93459,7 +94587,7 @@ (if (memq (syntax-e$1 kw_0) - kws2094) + kws2278) (void) (raise-syntax-error$1 #f @@ -93477,6 +94605,20 @@ exp-body_0 kw_0) (void)) + (if (eq? + (syntax-e$1 + kw_0) + kw2838) + (if (eq? + (current-code-inspector) + initial-code-inspector) + (void) + (raise-syntax-error$1 + #f + "unsafe compilation disallowed by code inspector" + exp-body_0 + kw_0)) + (void)) (hash-set! declared-keywords51_0 (syntax-e$1 @@ -93490,9 +94632,10 @@ (|parsed-#%declare22.1| exp-body_0))) (let ((app_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx43_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx43_0))) parsed-body_0 (expanded+parsed1.1 exp-body_0 @@ -93523,9 +94666,10 @@ args))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93580,30 +94724,35 @@ (let ((bodys_1 (let ((app_0 (let ((to-module-lifts_0 - (expand-context/inner-to-module-lifts - (root-expand-context/outer-inner - ctx43_0)))) - (box-clear! - (to-module-lift-context-ends - to-module-lifts_0))))) + (begin-unsafe + (expand-context/inner-to-module-lifts + (root-expand-context/outer-inner + ctx43_0))))) + (begin-unsafe + (box-clear! + (to-module-lift-context-ends + to-module-lifts_0)))))) (append app_0 (let ((to-module-lifts_0 - (expand-context/inner-to-module-lifts - (root-expand-context/outer-inner - ctx43_0)))) - (box-clear! - (to-module-lift-context-provides - to-module-lifts_0))))))) + (begin-unsafe + (expand-context/inner-to-module-lifts + (root-expand-context/outer-inner + ctx43_0))))) + (begin-unsafe + (box-clear! + (to-module-lift-context-provides + to-module-lifts_0)))))))) (if (null? bodys_1) null (let ((added-bodys_0 (add-post-expansion-scope bodys_1 ctx43_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93632,8 +94781,9 @@ (let ((rest-bodys_0 (cdr bodys_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx43_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((exp-body_0 (begin @@ -93652,27 +94802,33 @@ (syntax-disarm$1 exp-body_0))) (let ((lifted-defns_0 (let ((lifts_0 - (expand-context/inner-lifts - (root-expand-context/outer-inner - ctx43_0)))) - (box-clear! - (lift-context-lifts lifts_0))))) + (begin-unsafe + (expand-context/inner-lifts + (root-expand-context/outer-inner + ctx43_0))))) + (begin-unsafe + (box-clear! + (lift-context-lifts lifts_0)))))) (let ((lifted-reqs_0 (let ((require-lifts_0 - (expand-context/inner-require-lifts - (root-expand-context/outer-inner - ctx43_0)))) - (box-clear! - (require-lift-context-requires - require-lifts_0))))) + (begin-unsafe + (expand-context/inner-require-lifts + (root-expand-context/outer-inner + ctx43_0))))) + (begin-unsafe + (box-clear! + (require-lift-context-requires + require-lifts_0)))))) (let ((lifted-mods_0 (let ((module-lifts_0 - (expand-context/inner-module-lifts - (root-expand-context/outer-inner - ctx43_0)))) - (box-clear! - (module-lift-context-lifts - module-lifts_0))))) + (begin-unsafe + (expand-context/inner-module-lifts + (root-expand-context/outer-inner + ctx43_0))))) + (begin-unsafe + (box-clear! + (module-lift-context-lifts + module-lifts_0)))))) (let ((added-lifted-mods_0 (add-post-expansion-scope lifted-mods_0 @@ -93685,9 +94841,10 @@ #f) (void) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93718,9 +94875,10 @@ added-lifted-mods_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx43_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx43_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93875,7 +95033,8 @@ rhs_0)))))))) (define add-post-expansion-scope (lambda (bodys_0 ctx_0) - (let ((pe_0 (root-expand-context/outer-post-expansion ctx_0))) + (let ((pe_0 + (begin-unsafe (root-expand-context/outer-post-expansion ctx_0)))) (if pe_0 (reverse$1 (begin @@ -93919,28 +95078,33 @@ (let ((bodys_1 (let ((app_0 (let ((to-module-lifts_0 - (expand-context/inner-to-module-lifts - (root-expand-context/outer-inner - ctx75_0)))) - (box-clear! - (to-module-lift-context-ends - to-module-lifts_0))))) + (begin-unsafe + (expand-context/inner-to-module-lifts + (root-expand-context/outer-inner + ctx75_0))))) + (begin-unsafe + (box-clear! + (to-module-lift-context-ends + to-module-lifts_0)))))) (append app_0 (let ((to-module-lifts_0 - (expand-context/inner-to-module-lifts - (root-expand-context/outer-inner - ctx75_0)))) - (box-clear! - (to-module-lift-context-provides - to-module-lifts_0))))))) + (begin-unsafe + (expand-context/inner-to-module-lifts + (root-expand-context/outer-inner + ctx75_0))))) + (begin-unsafe + (box-clear! + (to-module-lift-context-provides + to-module-lifts_0)))))))) (if (null? bodys_1) null (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (call-expand-observe obs_0 @@ -93960,8 +95124,9 @@ null)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx75_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((body_0 (car bodys_0))) (let ((rest-bodys_0 (cdr bodys_0))) @@ -93995,9 +95160,10 @@ (let ((s_1 (syntax-disarm$1 s_0))) (if (if (not - (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - rhs-ctx_0))) + (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + rhs-ctx_0)))) #t #f) (call-with-values @@ -94130,9 +95296,10 @@ s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (begin (call-expand-observe @@ -94169,9 +95336,10 @@ (void)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94183,9 +95351,10 @@ rebuild-s_0 ids_0 syms_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - rhs-ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + rhs-ctx_0))) exp-rhs_0 (let ((temp562_0 (as-to-parsed-context @@ -94195,9 +95364,10 @@ #f exp-rhs_0 temp562_0)))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - rhs-ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + rhs-ctx_0))) comp-form_0 (expanded+parsed1.1 (let ((temp564_0 @@ -94242,9 +95412,10 @@ #f body_0 temp566_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx75_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx75_0))) exp-body_0 (expanded+parsed1.1 exp-body_0 @@ -94261,27 +95432,33 @@ (void))))))))))) (let ((lifted-defns_0 (let ((lifts_0 - (expand-context/inner-lifts - (root-expand-context/outer-inner - ctx75_0)))) - (box-clear! - (lift-context-lifts lifts_0))))) + (begin-unsafe + (expand-context/inner-lifts + (root-expand-context/outer-inner + ctx75_0))))) + (begin-unsafe + (box-clear! + (lift-context-lifts lifts_0)))))) (let ((lifted-requires_0 (let ((require-lifts_0 - (expand-context/inner-require-lifts - (root-expand-context/outer-inner - ctx75_0)))) - (box-clear! - (require-lift-context-requires - require-lifts_0))))) + (begin-unsafe + (expand-context/inner-require-lifts + (root-expand-context/outer-inner + ctx75_0))))) + (begin-unsafe + (box-clear! + (require-lift-context-requires + require-lifts_0)))))) (let ((lifted-modules_0 (let ((module-lifts_0 - (expand-context/inner-module-lifts - (root-expand-context/outer-inner - ctx75_0)))) - (box-clear! - (module-lift-context-lifts - module-lifts_0))))) + (begin-unsafe + (expand-context/inner-module-lifts + (root-expand-context/outer-inner + ctx75_0))))) + (begin-unsafe + (box-clear! + (module-lift-context-lifts + module-lifts_0)))))) (let ((no-lifts?_0 (if (null? lifted-defns_0) (if (null? lifted-modules_0) @@ -94292,9 +95469,10 @@ (if no-lifts?_0 (void) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (let ((app_0 (add-post-expansion-scope @@ -94322,9 +95500,10 @@ (if no-lifts?_0 (void) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94345,9 +95524,10 @@ (if no-lifts?_0 (void) (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx75_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx75_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94517,8 +95697,9 @@ (expanded+parsed? (car bodys_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx95_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) (let ((app_0 (car bodys_0))) (cons @@ -94534,8 +95715,9 @@ (if (semi-parsed-begin-for-syntax? (car bodys_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx95_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94555,9 +95737,10 @@ (add1 phase_0))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx95_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94590,9 +95773,10 @@ (if (eq? tmp_0 '|#%provide|) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx95_0))))) (if obs_0 (begin (call-expand-observe @@ -94834,9 +96018,10 @@ ctx95_0))))) (case-lambda ((track-stxes_0 specs_0) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx95_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx95_0))) (loop_0 ctx95_0 declared-submodule-names91_0 @@ -94860,9 +96045,10 @@ temp591_0))))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx95_0))))) (if obs_0 (call-expand-observe obs_0 @@ -94887,9 +96073,10 @@ (raise-binding-result-arity-error 3 args))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx95_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx95_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -94993,11 +96180,14 @@ unsafe-undefined unsafe-undefined)))) (let ((temp594_0 - (expand-context/inner-for-serializable? - (root-expand-context/outer-inner ctx111_0)))) + (begin-unsafe + (expand-context/inner-for-serializable? + (root-expand-context/outer-inner ctx111_0))))) (let ((temp595_0 - (expand-context/inner-to-correlated-linklet? - (root-expand-context/outer-inner ctx111_0)))) + (begin-unsafe + (expand-context/inner-to-correlated-linklet? + (root-expand-context/outer-inner + ctx111_0))))) (let ((temp594_1 temp594_0) (temp593_1 temp593_0)) (compile-module.1 #f @@ -95036,14 +96226,16 @@ (syntax-property$1 s_0 'module-body-context - (root-expand-context/inner-all-scopes-stx - (root-expand-context/outer-inner root-ctx_0))))) + (begin-unsafe + (root-expand-context/inner-all-scopes-stx + (root-expand-context/outer-inner root-ctx_0)))))) (let ((s_2 (syntax-property$1 s_1 'module-body-inside-context (apply-post-expansion - (root-expand-context/outer-post-expansion root-ctx_0) + (begin-unsafe + (root-expand-context/outer-post-expansion root-ctx_0)) empty-syntax)))) s_2)))) (define expand-post-submodules.1 @@ -95071,9 +96263,10 @@ (semi-parsed-begin-for-syntax-s body_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx136_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx136_0))))) (if obs_0 (call-expand-observe obs_0 @@ -95153,18 +96346,20 @@ (parsed-only nested-bodys_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx136_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx136_0))))) (if obs_0 (call-expand-observe obs_0 'exit-begin-for-syntax) (void))) (let ((app_0 - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner - ctx136_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner + ctx136_0))) parsed-bfs_0 (expanded+parsed1.1 (let ((temp610_0 @@ -95199,9 +96394,10 @@ (expanded+parsed? body_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx136_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx136_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -95444,9 +96640,10 @@ args)))))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx136_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx136_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -95494,19 +96691,22 @@ (define stop-at-module*? (lambda (ctx_0) (let ((app_0 - (expand-context/inner-stops - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-stops + (root-expand-context/outer-inner ctx_0))))) (let ((app_1 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (free-id-set-member? app_0 app_1 (let ((app_2 (datum->syntax$1 core-stx 'module*))) (syntax-shift-phase-level$1 app_2 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0))))))))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0)))))))))) (define check-ids-unbound.1 (|#%name| check-ids-unbound @@ -95664,8 +96864,9 @@ (begin (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx174_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx174_0))))) (if obs_0 (begin (call-expand-observe obs_0 'enter-prim s172_0) @@ -95719,8 +96920,9 @@ (syntax-e$1 module647_0)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx174_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx174_0))))) (if obs_0 (call-expand-observe obs_0 'enter-prim s172_0) (void))) @@ -95915,8 +97117,9 @@ self173_0)))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx174_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx174_0))))) (if obs_0 (call-expand-observe obs_0 @@ -95924,8 +97127,9 @@ (extract-syntax submod_0)) (void))) (let ((ns_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx174_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx174_0))))) (let ((module-name_0 (1/module-path-index-resolve self173_0))) (let ((root-module-name_0 @@ -95948,13 +97152,15 @@ unsafe-undefined unsafe-undefined)))) (let ((temp671_0 - (expand-context/inner-for-serializable? - (root-expand-context/outer-inner - ctx174_0)))) + (begin-unsafe + (expand-context/inner-for-serializable? + (root-expand-context/outer-inner + ctx174_0))))) (let ((temp672_0 - (expand-context/inner-to-correlated-linklet? - (root-expand-context/outer-inner - ctx174_0)))) + (begin-unsafe + (expand-context/inner-to-correlated-linklet? + (root-expand-context/outer-inner + ctx174_0))))) (let ((temp671_1 temp671_0) (temp669_1 temp669_0) (temp668_1 temp668_0)) @@ -96123,9 +97329,10 @@ (cons (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx187_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx187_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -96264,8 +97471,9 @@ (define as-expand-time-top-level-bindings (lambda (ids_0 s_0 ctx_0) (let ((top-level-bind-scope_0 - (root-expand-context/inner-top-level-bind-scope - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (root-expand-context/inner-top-level-bind-scope + (root-expand-context/outer-inner ctx_0))))) (let ((tl-ids_0 (reverse$1 (begin @@ -96291,8 +97499,9 @@ (for-loop_0 null ids_0)))))) (begin (let ((temp2_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (check-no-duplicate-ids.1 unsafe-undefined tl-ids_0 @@ -96325,7 +97534,7 @@ (values tl-ids_0 (select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_0)))))))) -(define effect_3044 +(define effect_2376 (begin (void (add-core-form!* @@ -96334,13 +97543,16 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-define-values disarmed-s_0) (void))) (begin - (if (eq? (expand-context/outer-context ctx_0) 'top-level) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'top-level) (void) (raise-syntax-error$1 #f @@ -96490,8 +97702,9 @@ (as-expression-context ctx_0) ids_0))) (expand.1 #f #f rhs3_0 temp12_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-define-values19.1 s_0 ids_0 syms_0 exp-rhs_0) (let ((temp14_0 (list define-values1_0 ids_0 exp-rhs_0))) @@ -96499,7 +97712,7 @@ (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 4 args)))))))))) (void))) -(define effect_2602 +(define effect_2226 (begin (void (add-core-form!* @@ -96508,13 +97721,16 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-define-syntaxes disarmed-s_0) (void))) (begin - (if (eq? (expand-context/outer-context ctx_0) 'top-level) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'top-level) (void) (raise-syntax-error$1 #f "not in a definition context" s_0)) (call-with-values @@ -96661,8 +97877,9 @@ ((ids_0 syms_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prepare-env) (void))) @@ -96677,8 +97894,9 @@ unsafe-undefined rhs17_0 temp26_0)))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-define-syntaxes20.1 s_0 ids_0 @@ -96690,7 +97908,7 @@ (args (raise-binding-result-arity-error 2 args))))) (args (raise-binding-result-arity-error 4 args)))))))))) (void))) -(define effect_2340 +(define effect_2651 (begin (void (add-core-form!* @@ -96707,8 +97925,9 @@ (begin (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'enter-list form30_0) (void))) @@ -96723,9 +97942,10 @@ (let ((forms_2 (reverse$1 accum_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -96735,9 +97955,10 @@ forms_2)) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 'next) (void))) @@ -96754,14 +97975,17 @@ (cons exp-form_0 accum_0)))))))))) (loop_1 forms_0 null)))) (let ((lifts_0 - (box-clear! (lift-context-lifts lift-ctx_0)))) + (begin-unsafe + (box-clear! + (lift-context-lifts lift-ctx_0))))) (if (null? lifts_0) exp-forms_0 (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner - ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner + ctx_0))))) (if obs_0 (call-expand-observe obs_0 @@ -96770,9 +97994,10 @@ (void))) (let ((beg_0 (let ((temp44_0 - (expand-context/inner-phase - (root-expand-context/outer-inner - trans-ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner + trans-ctx_0))))) (wrap-lifts-as-begin.1 unsafe-undefined unsafe-undefined @@ -96796,13 +98021,16 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-begin-for-syntax #f) (void))) (begin - (if (eq? (expand-context/outer-context ctx_0) 'top-level) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'top-level) (void) (raise-syntax-error$1 #f "not in a definition context" s_0)) (call-with-values @@ -96837,8 +98065,9 @@ ((ok?_0 begin-for-syntax29_0 form30_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prepare-env) (void))) @@ -97041,8 +98270,9 @@ lift-ctx_0 trans-ctx_0 form30_0))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-begin-for-syntax21.1 s_0 all-exp-forms_0) (let ((temp46_0 (cons @@ -97051,7 +98281,7 @@ (rebuild.1 #t s_0 temp46_0))))))))) (args (raise-binding-result-arity-error 3 args)))))))))) (void))) -(define effect_2989 +(define effect_2818 (begin (void (add-core-form!* @@ -97060,13 +98290,16 @@ (let ((disarmed-s_0 (syntax-disarm$1 s_0))) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-require disarmed-s_0) (void))) (begin - (if (eq? (expand-context/outer-context ctx_0) 'top-level) + (if (eq? + (begin-unsafe (expand-context/outer-context ctx_0)) + 'top-level) (void) (raise-syntax-error$1 #f @@ -97106,8 +98339,9 @@ ((ok?_0 |#%require47_0| req48_0) (let ((sc_0 (new-scope 'macro))) (let ((ns_0 - (expand-context/inner-namespace - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-namespace + (root-expand-context/outer-inner ctx_0))))) (begin (let ((temp51_0 (reverse$1 @@ -97137,8 +98371,9 @@ (let ((temp53_0 (namespace-self-mpi/no-top-level ns_0))) (let ((temp56_0 - (expand-context/inner-phase - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-phase + (root-expand-context/outer-inner ctx_0))))) (let ((temp57_0 (make-requires+provides.1 #f #f))) (let ((temp56_1 temp56_0) (temp53_1 temp53_0) @@ -97159,13 +98394,14 @@ ns_0 temp56_1 temp57_0)))))) - (if (expand-context/inner-to-parsed? - (root-expand-context/outer-inner ctx_0)) + (if (begin-unsafe + (expand-context/inner-to-parsed? + (root-expand-context/outer-inner ctx_0))) (parsed-require23.1 s_0) s_0))))) (args (raise-binding-result-arity-error 3 args)))))))))) (void))) -(define effect_2865 +(define effect_2881 (begin (void (add-core-form!* @@ -97173,8 +98409,9 @@ (lambda (s_0 ctx_0) (begin (let ((obs_0 - (expand-context/inner-observer - (root-expand-context/outer-inner ctx_0)))) + (begin-unsafe + (expand-context/inner-observer + (root-expand-context/outer-inner ctx_0))))) (if obs_0 (call-expand-observe obs_0 'prim-provide #f) (void))) (raise-syntax-error$1 #f @@ -97237,7 +98474,7 @@ ns_0 #t null - #f + #t #t '|#%linklet-primitive| linklet-primitives_0) @@ -97245,13 +98482,13 @@ ns_0 #f null - #f + #t #f '|#%linklet-expander| linklet-expander-primitives) - (let ((temp26_0 + (let ((temp28_0 (list '|#%linklet-primitive| '|#%linklet-expander|))) - (declare-reexporting-module!.1 ns_0 #t '|#%linklet| temp26_0)))) + (declare-reexporting-module!.1 ns_0 #t '|#%linklet| temp28_0)))) (declare-hash-based-module!.1 ns_0 #f @@ -97260,7 +98497,7 @@ #f '|#%expobs| expobs-primitives) - (let ((temp33_0 + (let ((temp35_0 (begin (letrec* ((for-loop_0 @@ -97290,7 +98527,7 @@ (for-loop_0 hash2725 (hash-iterate-first main-primitives)))))) - (let ((temp34_0 + (let ((temp36_0 (begin (letrec* ((for-loop_0 @@ -97323,8 +98560,8 @@ (for-loop_0 hash2725 (hash-iterate-first read-primitives)))))) - (let ((temp33_1 temp33_0)) - (declare-kernel-module!.1 temp33_1 temp34_0 ns_0)))) + (let ((temp35_1 temp35_0)) + (declare-kernel-module!.1 temp35_1 temp36_0 ns_0)))) (begin (begin (letrec* @@ -97342,7 +98579,7 @@ (values) (begin (let ((or-part_0 (eq? name_0 '|#%foreign|))) - (let ((temp37_0 + (let ((temp39_0 (if or-part_0 or-part_0 (let ((or-part_1 @@ -97355,7 +98592,7 @@ hash2610 ns_0 #t - temp37_0 + temp39_0 unsafe-undefined unsafe-undefined name_0))) @@ -97367,7 +98604,7 @@ (values))))))) (for-loop_0 runtime-instances))) (void)) - (let ((temp39_0 + (let ((temp41_0 (list* '|#%place-struct| '|#%utils| @@ -97375,7 +98612,7 @@ '|#%expobs| '|#%linklet| runtime-instances))) - (declare-reexporting-module!.1 ns_0 #f '|#%builtin| temp39_0)) + (declare-reexporting-module!.1 ns_0 #f '|#%builtin| temp41_0)) (1/current-namespace ns_0) (1/dynamic-require ''|#%kernel| 0)))))) (define effect_2374 diff --git a/racket/src/cs/schemified/io.scm b/racket/src/cs/schemified/io.scm index 5d051bcb27..5a366f786b 100644 --- a/racket/src/cs/schemified/io.scm +++ b/racket/src/cs/schemified/io.scm @@ -467,7 +467,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memq "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memq + "not a proper list: " + orig-l_0)) (if (eq? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define memv @@ -484,7 +488,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memv "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memv + "not a proper list: " + orig-l_0)) (if (eqv? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define member @@ -502,10 +510,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_0)) (if (equal? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -535,10 +544,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_1) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_1)) (if (|#%app| eq?_0 v_1 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -3136,327 +3146,442 @@ (define RKTIO_ERROR_CONVERT_NOT_ENOUGH_SPACE 28) (define RKTIO_ERROR_CONVERT_BAD_SEQUENCE 29) (define RKTIO_ERROR_CONVERT_PREMATURE_END 30) -(define rktio_init (hash-ref rktio-table 'rktio_init)) -(define rktio_destroy (hash-ref rktio-table 'rktio_destroy)) -(define rktio_free (hash-ref rktio-table 'rktio_free)) -(define rktio_set_dll_path (hash-ref rktio-table 'rktio_set_dll_path)) -(define rktio_get_dll_path (hash-ref rktio-table 'rktio_get_dll_path)) -(define rktio_system_fd (hash-ref rktio-table 'rktio_system_fd)) -(define rktio_fd_system_fd (hash-ref rktio-table 'rktio_fd_system_fd)) +(define rktio_init (begin-unsafe (hash-ref rktio-table 'rktio_init))) +(define rktio_destroy (begin-unsafe (hash-ref rktio-table 'rktio_destroy))) +(define rktio_free (begin-unsafe (hash-ref rktio-table 'rktio_free))) +(define rktio_set_dll_path + (begin-unsafe (hash-ref rktio-table 'rktio_set_dll_path))) +(define rktio_get_dll_path + (begin-unsafe (hash-ref rktio-table 'rktio_get_dll_path))) +(define rktio_system_fd (begin-unsafe (hash-ref rktio-table 'rktio_system_fd))) +(define rktio_fd_system_fd + (begin-unsafe (hash-ref rktio-table 'rktio_fd_system_fd))) (define rktio_fd_is_regular_file - (hash-ref rktio-table 'rktio_fd_is_regular_file)) -(define rktio_fd_is_directory (hash-ref rktio-table 'rktio_fd_is_directory)) -(define rktio_fd_is_socket (hash-ref rktio-table 'rktio_fd_is_socket)) -(define rktio_fd_is_udp (hash-ref rktio-table 'rktio_fd_is_udp)) -(define rktio_fd_is_terminal (hash-ref rktio-table 'rktio_fd_is_terminal)) + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_regular_file))) +(define rktio_fd_is_directory + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_directory))) +(define rktio_fd_is_socket + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_socket))) +(define rktio_fd_is_udp (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_udp))) +(define rktio_fd_is_terminal + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_terminal))) (define rktio_fd_is_text_converted - (hash-ref rktio-table 'rktio_fd_is_text_converted)) + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_text_converted))) (define rktio_fd_is_pending_open - (hash-ref rktio-table 'rktio_fd_is_pending_open)) -(define rktio_fd_modes (hash-ref rktio-table 'rktio_fd_modes)) -(define rktio_open (hash-ref rktio-table 'rktio_open)) -(define rktio_close (hash-ref rktio-table 'rktio_close)) -(define rktio_close_noerr (hash-ref rktio-table 'rktio_close_noerr)) -(define rktio_dup (hash-ref rktio-table 'rktio_dup)) -(define rktio_forget (hash-ref rktio-table 'rktio_forget)) -(define rktio_std_fd (hash-ref rktio-table 'rktio_std_fd)) -(define rktio_create_console (hash-ref rktio-table 'rktio_create_console)) -(define rktio_read (hash-ref rktio-table 'rktio_read)) -(define rktio_write (hash-ref rktio-table 'rktio_write)) -(define rktio_read_converted (hash-ref rktio-table 'rktio_read_converted)) -(define rktio_read_in (hash-ref rktio-table 'rktio_read_in)) -(define rktio_write_in (hash-ref rktio-table 'rktio_write_in)) + (begin-unsafe (hash-ref rktio-table 'rktio_fd_is_pending_open))) +(define rktio_fd_modes (begin-unsafe (hash-ref rktio-table 'rktio_fd_modes))) +(define rktio_open (begin-unsafe (hash-ref rktio-table 'rktio_open))) +(define rktio_close (begin-unsafe (hash-ref rktio-table 'rktio_close))) +(define rktio_close_noerr + (begin-unsafe (hash-ref rktio-table 'rktio_close_noerr))) +(define rktio_dup (begin-unsafe (hash-ref rktio-table 'rktio_dup))) +(define rktio_forget (begin-unsafe (hash-ref rktio-table 'rktio_forget))) +(define rktio_std_fd (begin-unsafe (hash-ref rktio-table 'rktio_std_fd))) +(define rktio_create_console + (begin-unsafe (hash-ref rktio-table 'rktio_create_console))) +(define rktio_read (begin-unsafe (hash-ref rktio-table 'rktio_read))) +(define rktio_write (begin-unsafe (hash-ref rktio-table 'rktio_write))) +(define rktio_read_converted + (begin-unsafe (hash-ref rktio-table 'rktio_read_converted))) +(define rktio_read_in (begin-unsafe (hash-ref rktio-table 'rktio_read_in))) +(define rktio_write_in (begin-unsafe (hash-ref rktio-table 'rktio_write_in))) (define rktio_buffered_byte_count - (hash-ref rktio-table 'rktio_buffered_byte_count)) -(define rktio_poll_read_ready (hash-ref rktio-table 'rktio_poll_read_ready)) -(define rktio_poll_write_ready (hash-ref rktio-table 'rktio_poll_write_ready)) + (begin-unsafe (hash-ref rktio-table 'rktio_buffered_byte_count))) +(define rktio_poll_read_ready + (begin-unsafe (hash-ref rktio-table 'rktio_poll_read_ready))) +(define rktio_poll_write_ready + (begin-unsafe (hash-ref rktio-table 'rktio_poll_write_ready))) (define rktio_poll_write_flushed - (hash-ref rktio-table 'rktio_poll_write_flushed)) -(define rktio_file_lock_try (hash-ref rktio-table 'rktio_file_lock_try)) -(define rktio_file_unlock (hash-ref rktio-table 'rktio_file_unlock)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_write_flushed))) +(define rktio_file_lock_try + (begin-unsafe (hash-ref rktio-table 'rktio_file_lock_try))) +(define rktio_file_unlock + (begin-unsafe (hash-ref rktio-table 'rktio_file_unlock))) (define rktio_set_file_position - (hash-ref rktio-table 'rktio_set_file_position)) + (begin-unsafe (hash-ref rktio-table 'rktio_set_file_position))) (define rktio_get_file_position - (hash-ref rktio-table 'rktio_get_file_position)) -(define rktio_set_file_size (hash-ref rktio-table 'rktio_set_file_size)) -(define rktio_fd_detach (hash-ref rktio-table 'rktio_fd_detach)) -(define rktio_fd_attach (hash-ref rktio-table 'rktio_fd_attach)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_file_position))) +(define rktio_set_file_size + (begin-unsafe (hash-ref rktio-table 'rktio_set_file_size))) +(define rktio_fd_detach (begin-unsafe (hash-ref rktio-table 'rktio_fd_detach))) +(define rktio_fd_attach (begin-unsafe (hash-ref rktio-table 'rktio_fd_attach))) (define rktio_fd_close_transfer - (hash-ref rktio-table 'rktio_fd_close_transfer)) -(define rktio_make_pipe (hash-ref rktio-table 'rktio_make_pipe)) + (begin-unsafe (hash-ref rktio-table 'rktio_fd_close_transfer))) +(define rktio_make_pipe (begin-unsafe (hash-ref rktio-table 'rktio_make_pipe))) (define rktio_start_addrinfo_lookup - (hash-ref rktio-table 'rktio_start_addrinfo_lookup)) -(define rktio_get_ipv4_family (hash-ref rktio-table 'rktio_get_ipv4_family)) + (begin-unsafe (hash-ref rktio-table 'rktio_start_addrinfo_lookup))) +(define rktio_get_ipv4_family + (begin-unsafe (hash-ref rktio-table 'rktio_get_ipv4_family))) (define rktio_poll_addrinfo_lookup_ready - (hash-ref rktio-table 'rktio_poll_addrinfo_lookup_ready)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_addrinfo_lookup_ready))) (define rktio_addrinfo_lookup_get - (hash-ref rktio-table 'rktio_addrinfo_lookup_get)) + (begin-unsafe (hash-ref rktio-table 'rktio_addrinfo_lookup_get))) (define rktio_addrinfo_lookup_stop - (hash-ref rktio-table 'rktio_addrinfo_lookup_stop)) -(define rktio_addrinfo_free (hash-ref rktio-table 'rktio_addrinfo_free)) -(define rktio_listen (hash-ref rktio-table 'rktio_listen)) -(define rktio_listen_stop (hash-ref rktio-table 'rktio_listen_stop)) + (begin-unsafe (hash-ref rktio-table 'rktio_addrinfo_lookup_stop))) +(define rktio_addrinfo_free + (begin-unsafe (hash-ref rktio-table 'rktio_addrinfo_free))) +(define rktio_listen (begin-unsafe (hash-ref rktio-table 'rktio_listen))) +(define rktio_listen_stop + (begin-unsafe (hash-ref rktio-table 'rktio_listen_stop))) (define rktio_poll_accept_ready - (hash-ref rktio-table 'rktio_poll_accept_ready)) -(define rktio_accept (hash-ref rktio-table 'rktio_accept)) -(define rktio_start_connect (hash-ref rktio-table 'rktio_start_connect)) -(define rktio_connect_finish (hash-ref rktio-table 'rktio_connect_finish)) -(define rktio_connect_stop (hash-ref rktio-table 'rktio_connect_stop)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_accept_ready))) +(define rktio_accept (begin-unsafe (hash-ref rktio-table 'rktio_accept))) +(define rktio_start_connect + (begin-unsafe (hash-ref rktio-table 'rktio_start_connect))) +(define rktio_connect_finish + (begin-unsafe (hash-ref rktio-table 'rktio_connect_finish))) +(define rktio_connect_stop + (begin-unsafe (hash-ref rktio-table 'rktio_connect_stop))) (define rktio_poll_connect_ready - (hash-ref rktio-table 'rktio_poll_connect_ready)) -(define rktio_connect_trying (hash-ref rktio-table 'rktio_connect_trying)) -(define rktio_socket_shutdown (hash-ref rktio-table 'rktio_socket_shutdown)) -(define rktio_udp_open (hash-ref rktio-table 'rktio_udp_open)) -(define rktio_udp_disconnect (hash-ref rktio-table 'rktio_udp_disconnect)) -(define rktio_udp_bind (hash-ref rktio-table 'rktio_udp_bind)) -(define rktio_udp_connect (hash-ref rktio-table 'rktio_udp_connect)) -(define rktio_udp_sendto (hash-ref rktio-table 'rktio_udp_sendto)) -(define rktio_udp_sendto_in (hash-ref rktio-table 'rktio_udp_sendto_in)) -(define rktio_udp_recvfrom (hash-ref rktio-table 'rktio_udp_recvfrom)) -(define rktio_udp_recvfrom_in (hash-ref rktio-table 'rktio_udp_recvfrom_in)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_connect_ready))) +(define rktio_connect_trying + (begin-unsafe (hash-ref rktio-table 'rktio_connect_trying))) +(define rktio_socket_shutdown + (begin-unsafe (hash-ref rktio-table 'rktio_socket_shutdown))) +(define rktio_udp_open (begin-unsafe (hash-ref rktio-table 'rktio_udp_open))) +(define rktio_udp_disconnect + (begin-unsafe (hash-ref rktio-table 'rktio_udp_disconnect))) +(define rktio_udp_bind (begin-unsafe (hash-ref rktio-table 'rktio_udp_bind))) +(define rktio_udp_connect + (begin-unsafe (hash-ref rktio-table 'rktio_udp_connect))) +(define rktio_udp_sendto + (begin-unsafe (hash-ref rktio-table 'rktio_udp_sendto))) +(define rktio_udp_sendto_in + (begin-unsafe (hash-ref rktio-table 'rktio_udp_sendto_in))) +(define rktio_udp_recvfrom + (begin-unsafe (hash-ref rktio-table 'rktio_udp_recvfrom))) +(define rktio_udp_recvfrom_in + (begin-unsafe (hash-ref rktio-table 'rktio_udp_recvfrom_in))) (define rktio_udp_set_receive_buffer_size - (hash-ref rktio-table 'rktio_udp_set_receive_buffer_size)) -(define rktio_udp_set_ttl (hash-ref rktio-table 'rktio_udp_set_ttl)) -(define rktio_udp_get_ttl (hash-ref rktio-table 'rktio_udp_get_ttl)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_set_receive_buffer_size))) +(define rktio_udp_set_ttl + (begin-unsafe (hash-ref rktio-table 'rktio_udp_set_ttl))) +(define rktio_udp_get_ttl + (begin-unsafe (hash-ref rktio-table 'rktio_udp_get_ttl))) (define rktio_udp_get_multicast_loopback - (hash-ref rktio-table 'rktio_udp_get_multicast_loopback)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_get_multicast_loopback))) (define rktio_udp_set_multicast_loopback - (hash-ref rktio-table 'rktio_udp_set_multicast_loopback)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_set_multicast_loopback))) (define rktio_udp_get_multicast_ttl - (hash-ref rktio-table 'rktio_udp_get_multicast_ttl)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_get_multicast_ttl))) (define rktio_udp_set_multicast_ttl - (hash-ref rktio-table 'rktio_udp_set_multicast_ttl)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_set_multicast_ttl))) (define rktio_udp_multicast_interface - (hash-ref rktio-table 'rktio_udp_multicast_interface)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_multicast_interface))) (define rktio_udp_set_multicast_interface - (hash-ref rktio-table 'rktio_udp_set_multicast_interface)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_set_multicast_interface))) (define rktio_udp_change_multicast_group - (hash-ref rktio-table 'rktio_udp_change_multicast_group)) -(define rktio_socket_address (hash-ref rktio-table 'rktio_socket_address)) + (begin-unsafe (hash-ref rktio-table 'rktio_udp_change_multicast_group))) +(define rktio_socket_address + (begin-unsafe (hash-ref rktio-table 'rktio_socket_address))) (define rktio_socket_peer_address - (hash-ref rktio-table 'rktio_socket_peer_address)) -(define rktio_listener_address (hash-ref rktio-table 'rktio_listener_address)) + (begin-unsafe (hash-ref rktio-table 'rktio_socket_peer_address))) +(define rktio_listener_address + (begin-unsafe (hash-ref rktio-table 'rktio_listener_address))) (define rktio_is_ok_envvar_name - (hash-ref rktio-table 'rktio_is_ok_envvar_name)) + (begin-unsafe (hash-ref rktio-table 'rktio_is_ok_envvar_name))) (define rktio_are_envvar_names_case_insensitive - (hash-ref rktio-table 'rktio_are_envvar_names_case_insensitive)) -(define rktio_getenv (hash-ref rktio-table 'rktio_getenv)) -(define rktio_setenv (hash-ref rktio-table 'rktio_setenv)) -(define rktio_envvars (hash-ref rktio-table 'rktio_envvars)) -(define rktio_empty_envvars (hash-ref rktio-table 'rktio_empty_envvars)) -(define rktio_envvars_copy (hash-ref rktio-table 'rktio_envvars_copy)) -(define rktio_envvars_free (hash-ref rktio-table 'rktio_envvars_free)) -(define rktio_envvars_get (hash-ref rktio-table 'rktio_envvars_get)) -(define rktio_envvars_set (hash-ref rktio-table 'rktio_envvars_set)) -(define rktio_envvars_count (hash-ref rktio-table 'rktio_envvars_count)) -(define rktio_envvars_name_ref (hash-ref rktio-table 'rktio_envvars_name_ref)) + (begin-unsafe + (hash-ref rktio-table 'rktio_are_envvar_names_case_insensitive))) +(define rktio_getenv (begin-unsafe (hash-ref rktio-table 'rktio_getenv))) +(define rktio_setenv (begin-unsafe (hash-ref rktio-table 'rktio_setenv))) +(define rktio_envvars (begin-unsafe (hash-ref rktio-table 'rktio_envvars))) +(define rktio_empty_envvars + (begin-unsafe (hash-ref rktio-table 'rktio_empty_envvars))) +(define rktio_envvars_copy + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_copy))) +(define rktio_envvars_free + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_free))) +(define rktio_envvars_get + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_get))) +(define rktio_envvars_set + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_set))) +(define rktio_envvars_count + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_count))) +(define rktio_envvars_name_ref + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_name_ref))) (define rktio_envvars_value_ref - (hash-ref rktio-table 'rktio_envvars_value_ref)) -(define rktio_process (hash-ref rktio-table 'rktio_process)) + (begin-unsafe (hash-ref rktio-table 'rktio_envvars_value_ref))) +(define rktio_process (begin-unsafe (hash-ref rktio-table 'rktio_process))) (define rktio_process_allowed_flags - (hash-ref rktio-table 'rktio_process_allowed_flags)) -(define rktio_process_pid (hash-ref rktio-table 'rktio_process_pid)) -(define rktio_process_kill (hash-ref rktio-table 'rktio_process_kill)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_allowed_flags))) +(define rktio_process_pid + (begin-unsafe (hash-ref rktio-table 'rktio_process_pid))) +(define rktio_process_kill + (begin-unsafe (hash-ref rktio-table 'rktio_process_kill))) (define rktio_process_interrupt - (hash-ref rktio-table 'rktio_process_interrupt)) -(define rktio_process_forget (hash-ref rktio-table 'rktio_process_forget)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_interrupt))) +(define rktio_process_forget + (begin-unsafe (hash-ref rktio-table 'rktio_process_forget))) (define rktio_poll_process_done - (hash-ref rktio-table 'rktio_poll_process_done)) -(define rktio_process_status (hash-ref rktio-table 'rktio_process_status)) -(define rktio_reap_processes (hash-ref rktio-table 'rktio_reap_processes)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_process_done))) +(define rktio_process_status + (begin-unsafe (hash-ref rktio-table 'rktio_process_status))) +(define rktio_reap_processes + (begin-unsafe (hash-ref rktio-table 'rktio_reap_processes))) (define rktio_fs_change_properties - (hash-ref rktio-table 'rktio_fs_change_properties)) -(define rktio_fs_change (hash-ref rktio-table 'rktio_fs_change)) -(define rktio_fs_change_forget (hash-ref rktio-table 'rktio_fs_change_forget)) + (begin-unsafe (hash-ref rktio-table 'rktio_fs_change_properties))) +(define rktio_fs_change (begin-unsafe (hash-ref rktio-table 'rktio_fs_change))) +(define rktio_fs_change_forget + (begin-unsafe (hash-ref rktio-table 'rktio_fs_change_forget))) (define rktio_poll_fs_change_ready - (hash-ref rktio-table 'rktio_poll_fs_change_ready)) -(define rktio_make_poll_set (hash-ref rktio-table 'rktio_make_poll_set)) -(define rktio_poll_set_forget (hash-ref rktio-table 'rktio_poll_set_forget)) -(define rktio_poll_add (hash-ref rktio-table 'rktio_poll_add)) -(define rktio_poll_add_accept (hash-ref rktio-table 'rktio_poll_add_accept)) -(define rktio_poll_add_connect (hash-ref rktio-table 'rktio_poll_add_connect)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_fs_change_ready))) +(define rktio_make_poll_set + (begin-unsafe (hash-ref rktio-table 'rktio_make_poll_set))) +(define rktio_poll_set_forget + (begin-unsafe (hash-ref rktio-table 'rktio_poll_set_forget))) +(define rktio_poll_add (begin-unsafe (hash-ref rktio-table 'rktio_poll_add))) +(define rktio_poll_add_accept + (begin-unsafe (hash-ref rktio-table 'rktio_poll_add_accept))) +(define rktio_poll_add_connect + (begin-unsafe (hash-ref rktio-table 'rktio_poll_add_connect))) (define rktio_poll_add_addrinfo_lookup - (hash-ref rktio-table 'rktio_poll_add_addrinfo_lookup)) -(define rktio_poll_add_process (hash-ref rktio-table 'rktio_poll_add_process)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_add_addrinfo_lookup))) +(define rktio_poll_add_process + (begin-unsafe (hash-ref rktio-table 'rktio_poll_add_process))) (define rktio_poll_add_fs_change - (hash-ref rktio-table 'rktio_poll_add_fs_change)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_add_fs_change))) (define rktio_poll_set_add_nosleep - (hash-ref rktio-table 'rktio_poll_set_add_nosleep)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_set_add_nosleep))) (define rktio_poll_set_add_handle - (hash-ref rktio-table 'rktio_poll_set_add_handle)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_set_add_handle))) (define rktio_poll_set_add_eventmask - (hash-ref rktio-table 'rktio_poll_set_add_eventmask)) + (begin-unsafe (hash-ref rktio-table 'rktio_poll_set_add_eventmask))) (define rkio_reset_sleep_backoff - (hash-ref rktio-table 'rkio_reset_sleep_backoff)) -(define rktio_ltps_open (hash-ref rktio-table 'rktio_ltps_open)) -(define rktio_ltps_close (hash-ref rktio-table 'rktio_ltps_close)) -(define rktio_ltps_add (hash-ref rktio-table 'rktio_ltps_add)) + (begin-unsafe (hash-ref rktio-table 'rkio_reset_sleep_backoff))) +(define rktio_ltps_open (begin-unsafe (hash-ref rktio-table 'rktio_ltps_open))) +(define rktio_ltps_close + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_close))) +(define rktio_ltps_add (begin-unsafe (hash-ref rktio-table 'rktio_ltps_add))) (define rktio_ltps_handle_set_data - (hash-ref rktio-table 'rktio_ltps_handle_set_data)) + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_handle_set_data))) (define rktio_ltps_handle_get_data - (hash-ref rktio-table 'rktio_ltps_handle_get_data)) -(define rktio_ltps_remove_all (hash-ref rktio-table 'rktio_ltps_remove_all)) -(define rktio_ltps_poll (hash-ref rktio-table 'rktio_ltps_poll)) + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_handle_get_data))) +(define rktio_ltps_remove_all + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_remove_all))) +(define rktio_ltps_poll (begin-unsafe (hash-ref rktio-table 'rktio_ltps_poll))) (define rktio_ltps_get_signaled_handle - (hash-ref rktio-table 'rktio_ltps_get_signaled_handle)) + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_get_signaled_handle))) (define rktio_ltps_handle_set_auto - (hash-ref rktio-table 'rktio_ltps_handle_set_auto)) -(define rktio_sleep (hash-ref rktio-table 'rktio_sleep)) -(define rktio_start_sleep (hash-ref rktio-table 'rktio_start_sleep)) -(define rktio_end_sleep (hash-ref rktio-table 'rktio_end_sleep)) -(define rktio_file_exists (hash-ref rktio-table 'rktio_file_exists)) -(define rktio_directory_exists (hash-ref rktio-table 'rktio_directory_exists)) -(define rktio_link_exists (hash-ref rktio-table 'rktio_link_exists)) -(define rktio_is_regular_file (hash-ref rktio-table 'rktio_is_regular_file)) -(define rktio_file_type (hash-ref rktio-table 'rktio_file_type)) -(define rktio_delete_file (hash-ref rktio-table 'rktio_delete_file)) -(define rktio_rename_file (hash-ref rktio-table 'rktio_rename_file)) + (begin-unsafe (hash-ref rktio-table 'rktio_ltps_handle_set_auto))) +(define rktio_sleep (begin-unsafe (hash-ref rktio-table 'rktio_sleep))) +(define rktio_start_sleep + (begin-unsafe (hash-ref rktio-table 'rktio_start_sleep))) +(define rktio_end_sleep (begin-unsafe (hash-ref rktio-table 'rktio_end_sleep))) +(define rktio_file_exists + (begin-unsafe (hash-ref rktio-table 'rktio_file_exists))) +(define rktio_directory_exists + (begin-unsafe (hash-ref rktio-table 'rktio_directory_exists))) +(define rktio_link_exists + (begin-unsafe (hash-ref rktio-table 'rktio_link_exists))) +(define rktio_is_regular_file + (begin-unsafe (hash-ref rktio-table 'rktio_is_regular_file))) +(define rktio_file_type (begin-unsafe (hash-ref rktio-table 'rktio_file_type))) +(define rktio_delete_file + (begin-unsafe (hash-ref rktio-table 'rktio_delete_file))) +(define rktio_rename_file + (begin-unsafe (hash-ref rktio-table 'rktio_rename_file))) (define rktio_get_current_directory - (hash-ref rktio-table 'rktio_get_current_directory)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_current_directory))) (define rktio_set_current_directory - (hash-ref rktio-table 'rktio_set_current_directory)) -(define rktio_make_directory (hash-ref rktio-table 'rktio_make_directory)) -(define rktio_delete_directory (hash-ref rktio-table 'rktio_delete_directory)) -(define rktio_readlink (hash-ref rktio-table 'rktio_readlink)) -(define rktio_make_link (hash-ref rktio-table 'rktio_make_link)) -(define rktio_file_size (hash-ref rktio-table 'rktio_file_size)) + (begin-unsafe (hash-ref rktio-table 'rktio_set_current_directory))) +(define rktio_make_directory + (begin-unsafe (hash-ref rktio-table 'rktio_make_directory))) +(define rktio_delete_directory + (begin-unsafe (hash-ref rktio-table 'rktio_delete_directory))) +(define rktio_readlink (begin-unsafe (hash-ref rktio-table 'rktio_readlink))) +(define rktio_make_link (begin-unsafe (hash-ref rktio-table 'rktio_make_link))) +(define rktio_file_size (begin-unsafe (hash-ref rktio-table 'rktio_file_size))) (define rktio_get_file_modify_seconds - (hash-ref rktio-table 'rktio_get_file_modify_seconds)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_file_modify_seconds))) (define rktio_set_file_modify_seconds - (hash-ref rktio-table 'rktio_set_file_modify_seconds)) -(define rktio_fd_identity (hash-ref rktio-table 'rktio_fd_identity)) -(define rktio_path_identity (hash-ref rktio-table 'rktio_path_identity)) + (begin-unsafe (hash-ref rktio-table 'rktio_set_file_modify_seconds))) +(define rktio_fd_identity + (begin-unsafe (hash-ref rktio-table 'rktio_fd_identity))) +(define rktio_path_identity + (begin-unsafe (hash-ref rktio-table 'rktio_path_identity))) (define rktio_get_file_or_directory_permissions - (hash-ref rktio-table 'rktio_get_file_or_directory_permissions)) + (begin-unsafe + (hash-ref rktio-table 'rktio_get_file_or_directory_permissions))) (define rktio_set_file_or_directory_permissions - (hash-ref rktio-table 'rktio_set_file_or_directory_permissions)) + (begin-unsafe + (hash-ref rktio-table 'rktio_set_file_or_directory_permissions))) (define rktio_directory_list_start - (hash-ref rktio-table 'rktio_directory_list_start)) + (begin-unsafe (hash-ref rktio-table 'rktio_directory_list_start))) (define rktio_directory_list_step - (hash-ref rktio-table 'rktio_directory_list_step)) + (begin-unsafe (hash-ref rktio-table 'rktio_directory_list_step))) (define rktio_directory_list_stop - (hash-ref rktio-table 'rktio_directory_list_stop)) -(define rktio_filesystem_roots (hash-ref rktio-table 'rktio_filesystem_roots)) -(define rktio_copy_file_start (hash-ref rktio-table 'rktio_copy_file_start)) + (begin-unsafe (hash-ref rktio-table 'rktio_directory_list_stop))) +(define rktio_filesystem_roots + (begin-unsafe (hash-ref rktio-table 'rktio_filesystem_roots))) +(define rktio_copy_file_start + (begin-unsafe (hash-ref rktio-table 'rktio_copy_file_start))) (define rktio_copy_file_is_done - (hash-ref rktio-table 'rktio_copy_file_is_done)) -(define rktio_copy_file_step (hash-ref rktio-table 'rktio_copy_file_step)) + (begin-unsafe (hash-ref rktio-table 'rktio_copy_file_is_done))) +(define rktio_copy_file_step + (begin-unsafe (hash-ref rktio-table 'rktio_copy_file_step))) (define rktio_copy_file_finish_permissions - (hash-ref rktio-table 'rktio_copy_file_finish_permissions)) -(define rktio_copy_file_stop (hash-ref rktio-table 'rktio_copy_file_stop)) -(define rktio_system_path (hash-ref rktio-table 'rktio_system_path)) + (begin-unsafe (hash-ref rktio-table 'rktio_copy_file_finish_permissions))) +(define rktio_copy_file_stop + (begin-unsafe (hash-ref rktio-table 'rktio_copy_file_stop))) +(define rktio_system_path + (begin-unsafe (hash-ref rktio-table 'rktio_system_path))) (define rktio_expand_user_tilde - (hash-ref rktio-table 'rktio_expand_user_tilde)) + (begin-unsafe (hash-ref rktio-table 'rktio_expand_user_tilde))) (define rktio_get_signal_handle - (hash-ref rktio-table 'rktio_get_signal_handle)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_signal_handle))) (define rktio_signal_received_at - (hash-ref rktio-table 'rktio_signal_received_at)) -(define rktio_signal_received (hash-ref rktio-table 'rktio_signal_received)) + (begin-unsafe (hash-ref rktio-table 'rktio_signal_received_at))) +(define rktio_signal_received + (begin-unsafe (hash-ref rktio-table 'rktio_signal_received))) (define rktio_wait_until_signal_received - (hash-ref rktio-table 'rktio_wait_until_signal_received)) + (begin-unsafe (hash-ref rktio-table 'rktio_wait_until_signal_received))) (define rktio_flush_signals_received - (hash-ref rktio-table 'rktio_flush_signals_received)) + (begin-unsafe (hash-ref rktio-table 'rktio_flush_signals_received))) (define rktio_install_os_signal_handler - (hash-ref rktio-table 'rktio_install_os_signal_handler)) -(define rktio_poll_os_signal (hash-ref rktio-table 'rktio_poll_os_signal)) -(define rktio_get_milliseconds (hash-ref rktio-table 'rktio_get_milliseconds)) + (begin-unsafe (hash-ref rktio-table 'rktio_install_os_signal_handler))) +(define rktio_poll_os_signal + (begin-unsafe (hash-ref rktio-table 'rktio_poll_os_signal))) +(define rktio_get_milliseconds + (begin-unsafe (hash-ref rktio-table 'rktio_get_milliseconds))) (define rktio_get_inexact_milliseconds - (hash-ref rktio-table 'rktio_get_inexact_milliseconds)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_inexact_milliseconds))) (define rktio_get_process_milliseconds - (hash-ref rktio-table 'rktio_get_process_milliseconds)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_process_milliseconds))) (define rktio_get_process_children_milliseconds - (hash-ref rktio-table 'rktio_get_process_children_milliseconds)) -(define rktio_get_seconds (hash-ref rktio-table 'rktio_get_seconds)) -(define rktio_seconds_to_date (hash-ref rktio-table 'rktio_seconds_to_date)) -(define rktio_shell_execute (hash-ref rktio-table 'rktio_shell_execute)) + (begin-unsafe + (hash-ref rktio-table 'rktio_get_process_children_milliseconds))) +(define rktio_get_seconds + (begin-unsafe (hash-ref rktio-table 'rktio_get_seconds))) +(define rktio_seconds_to_date + (begin-unsafe (hash-ref rktio-table 'rktio_seconds_to_date))) +(define rktio_shell_execute + (begin-unsafe (hash-ref rktio-table 'rktio_shell_execute))) (define rktio_path_to_wide_path - (hash-ref rktio-table 'rktio_path_to_wide_path)) + (begin-unsafe (hash-ref rktio-table 'rktio_path_to_wide_path))) (define rktio_wide_path_to_path - (hash-ref rktio-table 'rktio_wide_path_to_path)) -(define rktio_processor_count (hash-ref rktio-table 'rktio_processor_count)) -(define rktio_syslog (hash-ref rktio-table 'rktio_syslog)) + (begin-unsafe (hash-ref rktio-table 'rktio_wide_path_to_path))) +(define rktio_processor_count + (begin-unsafe (hash-ref rktio-table 'rktio_processor_count))) +(define rktio_syslog (begin-unsafe (hash-ref rktio-table 'rktio_syslog))) (define rktio_convert_properties - (hash-ref rktio-table 'rktio_convert_properties)) -(define rktio_converter_open (hash-ref rktio-table 'rktio_converter_open)) -(define rktio_converter_close (hash-ref rktio-table 'rktio_converter_close)) -(define rktio_convert (hash-ref rktio-table 'rktio_convert)) -(define rktio_convert_in (hash-ref rktio-table 'rktio_convert_in)) -(define rktio_convert_reset (hash-ref rktio-table 'rktio_convert_reset)) -(define rktio_locale_recase (hash-ref rktio-table 'rktio_locale_recase)) -(define rktio_recase_utf16 (hash-ref rktio-table 'rktio_recase_utf16)) -(define rktio_locale_strcoll (hash-ref rktio-table 'rktio_locale_strcoll)) -(define rktio_strcoll_utf16 (hash-ref rktio-table 'rktio_strcoll_utf16)) -(define rktio_locale_encoding (hash-ref rktio-table 'rktio_locale_encoding)) -(define rktio_set_locale (hash-ref rktio-table 'rktio_set_locale)) + (begin-unsafe (hash-ref rktio-table 'rktio_convert_properties))) +(define rktio_converter_open + (begin-unsafe (hash-ref rktio-table 'rktio_converter_open))) +(define rktio_converter_close + (begin-unsafe (hash-ref rktio-table 'rktio_converter_close))) +(define rktio_convert (begin-unsafe (hash-ref rktio-table 'rktio_convert))) +(define rktio_convert_in + (begin-unsafe (hash-ref rktio-table 'rktio_convert_in))) +(define rktio_convert_reset + (begin-unsafe (hash-ref rktio-table 'rktio_convert_reset))) +(define rktio_locale_recase + (begin-unsafe (hash-ref rktio-table 'rktio_locale_recase))) +(define rktio_recase_utf16 + (begin-unsafe (hash-ref rktio-table 'rktio_recase_utf16))) +(define rktio_locale_strcoll + (begin-unsafe (hash-ref rktio-table 'rktio_locale_strcoll))) +(define rktio_strcoll_utf16 + (begin-unsafe (hash-ref rktio-table 'rktio_strcoll_utf16))) +(define rktio_locale_encoding + (begin-unsafe (hash-ref rktio-table 'rktio_locale_encoding))) +(define rktio_set_locale + (begin-unsafe (hash-ref rktio-table 'rktio_set_locale))) (define rktio_set_default_locale - (hash-ref rktio-table 'rktio_set_default_locale)) + (begin-unsafe (hash-ref rktio-table 'rktio_set_default_locale))) (define rktio_push_c_numeric_locale - (hash-ref rktio-table 'rktio_push_c_numeric_locale)) + (begin-unsafe (hash-ref rktio-table 'rktio_push_c_numeric_locale))) (define rktio_pop_c_numeric_locale - (hash-ref rktio-table 'rktio_pop_c_numeric_locale)) + (begin-unsafe (hash-ref rktio-table 'rktio_pop_c_numeric_locale))) (define rktio_system_language_country - (hash-ref rktio-table 'rktio_system_language_country)) -(define rktio_sha1_init (hash-ref rktio-table 'rktio_sha1_init)) -(define rktio_sha1_update (hash-ref rktio-table 'rktio_sha1_update)) -(define rktio_sha1_final (hash-ref rktio-table 'rktio_sha1_final)) -(define rktio_sha2_init (hash-ref rktio-table 'rktio_sha2_init)) -(define rktio_sha2_update (hash-ref rktio-table 'rktio_sha2_update)) -(define rktio_sha2_final (hash-ref rktio-table 'rktio_sha2_final)) -(define rktio_dll_open (hash-ref rktio-table 'rktio_dll_open)) -(define rktio_dll_find_object (hash-ref rktio-table 'rktio_dll_find_object)) -(define rktio_dll_close (hash-ref rktio-table 'rktio_dll_close)) -(define rktio_dll_get_error (hash-ref rktio-table 'rktio_dll_get_error)) -(define rktio_set_dll_procs (hash-ref rktio-table 'rktio_set_dll_procs)) + (begin-unsafe (hash-ref rktio-table 'rktio_system_language_country))) +(define rktio_sha1_init (begin-unsafe (hash-ref rktio-table 'rktio_sha1_init))) +(define rktio_sha1_update + (begin-unsafe (hash-ref rktio-table 'rktio_sha1_update))) +(define rktio_sha1_final + (begin-unsafe (hash-ref rktio-table 'rktio_sha1_final))) +(define rktio_sha2_init (begin-unsafe (hash-ref rktio-table 'rktio_sha2_init))) +(define rktio_sha2_update + (begin-unsafe (hash-ref rktio-table 'rktio_sha2_update))) +(define rktio_sha2_final + (begin-unsafe (hash-ref rktio-table 'rktio_sha2_final))) +(define rktio_dll_open (begin-unsafe (hash-ref rktio-table 'rktio_dll_open))) +(define rktio_dll_find_object + (begin-unsafe (hash-ref rktio-table 'rktio_dll_find_object))) +(define rktio_dll_close (begin-unsafe (hash-ref rktio-table 'rktio_dll_close))) +(define rktio_dll_get_error + (begin-unsafe (hash-ref rktio-table 'rktio_dll_get_error))) +(define rktio_set_dll_procs + (begin-unsafe (hash-ref rktio-table 'rktio_set_dll_procs))) (define rktio_get_last_error_kind - (hash-ref rktio-table 'rktio_get_last_error_kind)) -(define rktio_get_last_error (hash-ref rktio-table 'rktio_get_last_error)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_last_error_kind))) +(define rktio_get_last_error + (begin-unsafe (hash-ref rktio-table 'rktio_get_last_error))) (define rktio_get_last_error_step - (hash-ref rktio-table 'rktio_get_last_error_step)) -(define rktio_set_last_error (hash-ref rktio-table 'rktio_set_last_error)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_last_error_step))) +(define rktio_set_last_error + (begin-unsafe (hash-ref rktio-table 'rktio_set_last_error))) (define rktio_set_last_error_step - (hash-ref rktio-table 'rktio_set_last_error_step)) -(define rktio_remap_last_error (hash-ref rktio-table 'rktio_remap_last_error)) + (begin-unsafe (hash-ref rktio-table 'rktio_set_last_error_step))) +(define rktio_remap_last_error + (begin-unsafe (hash-ref rktio-table 'rktio_remap_last_error))) (define rktio_get_last_error_string - (hash-ref rktio-table 'rktio_get_last_error_string)) -(define rktio_get_error_string (hash-ref rktio-table 'rktio_get_error_string)) -(define rktio_filesize_ref (hash-ref rktio-table 'rktio_filesize_ref)) -(define rktio_timestamp_ref (hash-ref rktio-table 'rktio_timestamp_ref)) -(define rktio_is_timestamp (hash-ref rktio-table 'rktio_is_timestamp)) -(define rktio_recv_length_ref (hash-ref rktio-table 'rktio_recv_length_ref)) -(define rktio_recv_address_ref (hash-ref rktio-table 'rktio_recv_address_ref)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_last_error_string))) +(define rktio_get_error_string + (begin-unsafe (hash-ref rktio-table 'rktio_get_error_string))) +(define rktio_filesize_ref + (begin-unsafe (hash-ref rktio-table 'rktio_filesize_ref))) +(define rktio_timestamp_ref + (begin-unsafe (hash-ref rktio-table 'rktio_timestamp_ref))) +(define rktio_is_timestamp + (begin-unsafe (hash-ref rktio-table 'rktio_is_timestamp))) +(define rktio_recv_length_ref + (begin-unsafe (hash-ref rktio-table 'rktio_recv_length_ref))) +(define rktio_recv_address_ref + (begin-unsafe (hash-ref rktio-table 'rktio_recv_address_ref))) (define rktio_identity_to_vector - (hash-ref rktio-table 'rktio_identity_to_vector)) + (begin-unsafe (hash-ref rktio-table 'rktio_identity_to_vector))) (define rktio_convert_result_to_vector - (hash-ref rktio-table 'rktio_convert_result_to_vector)) -(define rktio_to_bytes (hash-ref rktio-table 'rktio_to_bytes)) -(define rktio_to_bytes_list (hash-ref rktio-table 'rktio_to_bytes_list)) -(define rktio_to_shorts (hash-ref rktio-table 'rktio_to_shorts)) -(define rktio_NULL (hash-ref rktio-table 'rktio_NULL)) + (begin-unsafe (hash-ref rktio-table 'rktio_convert_result_to_vector))) +(define rktio_to_bytes (begin-unsafe (hash-ref rktio-table 'rktio_to_bytes))) +(define rktio_to_bytes_list + (begin-unsafe (hash-ref rktio-table 'rktio_to_bytes_list))) +(define rktio_to_shorts (begin-unsafe (hash-ref rktio-table 'rktio_to_shorts))) +(define rktio_NULL (begin-unsafe (hash-ref rktio-table 'rktio_NULL))) (define rktio_do_install_os_signal_handler - (hash-ref rktio-table 'rktio_do_install_os_signal_handler)) + (begin-unsafe (hash-ref rktio-table 'rktio_do_install_os_signal_handler))) (define rktio_get_ctl_c_handler - (hash-ref rktio-table 'rktio_get_ctl_c_handler)) -(define rktio_from_bytes_list (hash-ref rktio-table 'rktio_from_bytes_list)) -(define rktio_free_bytes_list (hash-ref rktio-table 'rktio_free_bytes_list)) -(define rktio_make_sha1_ctx (hash-ref rktio-table 'rktio_make_sha1_ctx)) -(define rktio_make_sha2_ctx (hash-ref rktio-table 'rktio_make_sha2_ctx)) + (begin-unsafe (hash-ref rktio-table 'rktio_get_ctl_c_handler))) +(define rktio_from_bytes_list + (begin-unsafe (hash-ref rktio-table 'rktio_from_bytes_list))) +(define rktio_free_bytes_list + (begin-unsafe (hash-ref rktio-table 'rktio_free_bytes_list))) +(define rktio_make_sha1_ctx + (begin-unsafe (hash-ref rktio-table 'rktio_make_sha1_ctx))) +(define rktio_make_sha2_ctx + (begin-unsafe (hash-ref rktio-table 'rktio_make_sha2_ctx))) (define rktio_process_result_stdin_fd - (hash-ref rktio-table 'rktio_process_result_stdin_fd)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_result_stdin_fd))) (define rktio_process_result_stdout_fd - (hash-ref rktio-table 'rktio_process_result_stdout_fd)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_result_stdout_fd))) (define rktio_process_result_stderr_fd - (hash-ref rktio-table 'rktio_process_result_stderr_fd)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_result_stderr_fd))) (define rktio_process_result_process - (hash-ref rktio-table 'rktio_process_result_process)) -(define rktio_status_running (hash-ref rktio-table 'rktio_status_running)) -(define rktio_status_result (hash-ref rktio-table 'rktio_status_result)) -(define rktio_pipe_results (hash-ref rktio-table 'rktio_pipe_results)) + (begin-unsafe (hash-ref rktio-table 'rktio_process_result_process))) +(define rktio_status_running + (begin-unsafe (hash-ref rktio-table 'rktio_status_running))) +(define rktio_status_result + (begin-unsafe (hash-ref rktio-table 'rktio_status_result))) +(define rktio_pipe_results + (begin-unsafe (hash-ref rktio-table 'rktio_pipe_results))) (define rktio-error? vector?) (define rktio-errkind (lambda (v_0) (vector-ref v_0 0))) (define rktio-errno (lambda (v_0) (vector-ref v_0 1))) (define racket-error? (lambda (v_0 errno_0) - (if (eqv? (vector-ref v_0 0) 3) (eqv? (vector-ref v_0 1) errno_0) #f))) + (if (eqv? (begin-unsafe (vector-ref v_0 0)) 3) + (eqv? (begin-unsafe (vector-ref v_0 1)) errno_0) + #f))) (define cell.1 (unsafe-make-place-local (|#%app| rktio_init))) (define rktio-place-init! (lambda () (unsafe-place-local-set! cell.1 (|#%app| rktio_init)))) @@ -5859,11 +5984,12 @@ or-part_0 (if just-length?5_0 #f - (raise-arguments-error - who7_0 - "byte string is not a well-formed UTF-8 encoding" - "byte string" - (subbytes bstr8_0 start10_0 end11_0)))))))))) + (begin-unsafe + (raise-arguments-error + who7_0 + "byte string is not a well-formed UTF-8 encoding" + "byte string" + (subbytes bstr8_0 start10_0 end11_0))))))))))) (define 1/bytes->string/utf-8 (let ((bytes->string/utf-8_0 (|#%name| @@ -6307,12 +6433,12 @@ (begin (unsafe-start-atomic) (begin - (let ((app_0 (vector-ref err_0 0))) + (let ((app_0 (begin-unsafe (vector-ref err_0 0)))) (|#%app| rktio_set_last_error (unsafe-place-local-ref cell.1) app_0 - (vector-ref err_0 1))) + (begin-unsafe (vector-ref err_0 1)))) (begin (|#%app| rktio_remap_last_error (unsafe-place-local-ref cell.1)) (let ((errno_0 @@ -6339,18 +6465,18 @@ (begin (unsafe-start-atomic) (let ((p_0 - (let ((app_0 (vector-ref err_0 0))) + (let ((app_0 (begin-unsafe (vector-ref err_0 0)))) (|#%app| rktio_get_error_string (unsafe-place-local-ref cell.1) app_0 - (vector-ref err_0 1))))) + (begin-unsafe (vector-ref err_0 1)))))) (let ((system-msg_0 (|#%app| rktio_to_bytes p_0))) (begin (unsafe-end-atomic) (let ((app_0 (1/bytes->string/utf-8 system-msg_0 '#\x3f))) (let ((app_1 - (let ((kind_0 (vector-ref err_0 0))) + (let ((kind_0 (begin-unsafe (vector-ref err_0 0)))) (if (eqv? kind_0 0) "errno" (if (eqv? kind_0 1) @@ -6361,7 +6487,7 @@ "; " app_1 "=" - (number->string (vector-ref err_0 1))))))))))) + (number->string (begin-unsafe (vector-ref err_0 1)))))))))))) (define raise-rktio-error (lambda (who_0 err_0 base-msg_0) (raise @@ -6371,9 +6497,10 @@ (lambda (v_0 base-msg_0) (begin (if (vector? v_0) - (raise - (let ((app_0 (format-rktio-message #f v_0 base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))) + (begin-unsafe + (raise + (let ((app_0 (format-rktio-message #f v_0 base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))) (void)) v_0))) (define raise-filesystem-error @@ -6394,16 +6521,16 @@ exn:fail:filesystem:exists msg_0 (current-continuation-marks)) - (if (not (eq? (vector-ref err_0 0) 3)) + (if (not (eq? (begin-unsafe (vector-ref err_0 0)) 3)) (let ((app_0 (current-continuation-marks))) (|#%app| exn:fail:filesystem:errno msg_0 app_0 - (let ((app_1 (vector-ref err_0 1))) + (let ((app_1 (begin-unsafe (vector-ref err_0 1)))) (cons app_1 - (let ((kind_0 (vector-ref err_0 0))) + (let ((kind_0 (begin-unsafe (vector-ref err_0 0)))) (if (eqv? kind_0 0) 'posix (if (eqv? kind_0 1) @@ -7531,11 +7658,12 @@ req_0)) (unsafe-end-atomic)) (let ((app_2 - (do-remove - 'remq - req_0 - live-reqs_0 - eq?))) + (begin-unsafe + (do-remove + 'remq + req_0 + live-reqs_0 + eq?)))) (loop_0 commit-ch_0 pause-ch_0 @@ -7583,11 +7711,12 @@ commit-ch_0 pause-ch_0 live-reqs_0 - (do-remove - 'remq - resp_0 - live-resps_0 - eq?)))) + (begin-unsafe + (do-remove + 'remq + resp_0 + live-resps_0 + eq?))))) fold-var_0))) (values fold-var_1)))) (for-loop_0 @@ -8402,6 +8531,7 @@ copy?399_0) (begin (begin + (begin-unsafe (void)) (|#%app| temp12.1 this-id_0) (let ((o_0 (pipe-input-port-d this-id_0))) (if (temp5.1$2 o_0) @@ -8499,7 +8629,7 @@ (make-semaphore)) (let ((out_0 (let ((r_0 (pipe-data-output-ref o_0))) - (weak-box-value r_0)))) + (begin-unsafe (weak-box-value r_0))))) (if out_0 (|#%app| temp19.1$1 out_0) (void))))) @@ -8557,6 +8687,7 @@ (lambda (this-id_0 work-done!504_0) (begin (begin + (begin-unsafe (void)) (let ((o_0 (pipe-input-port-d this-id_0))) (let ((or-part_0 (not (pipe-data-output-ref o_0)))) (if or-part_0 @@ -8581,6 +8712,7 @@ (lambda (this-id_0 amt594_0 progress-evt595_0 ext-evt596_0 finish597_0) (begin (begin + (begin-unsafe (void)) (if (zero? amt594_0) (temp1.1 this-id_0) (temp3.1 @@ -8857,7 +8989,7 @@ (fx- (pipe-data-len o_0) 1))))) (let ((in_0 (let ((r_0 (pipe-data-input-ref o_0))) - (weak-box-value r_0)))) + (begin-unsafe (weak-box-value r_0))))) (begin (if in_0 (temp13.1 in_0) (void)) (let ((new-bstr_0 @@ -9093,6 +9225,7 @@ copy?823_0) (begin (begin + (begin-unsafe (void)) (|#%app| temp17.1 this-id_0) (let ((o_0 (pipe-output-port-d this-id_0))) (try-again_0 @@ -9236,10 +9369,10 @@ (core-port-buffer output_0)) (set-pipe-data-input-ref! d_0 - (make-weak-box input_0)) + (begin-unsafe (make-weak-box input_0))) (set-pipe-data-output-ref! d_0 - (make-weak-box output_0)) + (begin-unsafe (make-weak-box output_0))) (set-pipe-data-write-ready-evt! d_0 write-ready-evt_0) @@ -9287,7 +9420,7 @@ ((limit24_0) (make-pipe_0 limit24_0 'pipe 'pipe)))))) (define struct:pipe-write-poller (make-record-type-descriptor* 'pipe-write-poller #f #f #f #f 1 1)) -(define effect_2427 +(define effect_2371 (struct-type-install-properties! struct:pipe-write-poller 'pipe-write-poller @@ -9317,7 +9450,7 @@ (set-pipe-data-write-ready-sema! o_0 (make-semaphore))) (let ((in_0 (let ((r_0 (pipe-data-input-ref o_0))) - (weak-box-value r_0)))) + (begin-unsafe (weak-box-value r_0))))) (begin (if in_0 (temp14.1 in_0) (void)) (values @@ -9374,7 +9507,7 @@ (void))) (define struct:pipe-read-poller (make-record-type-descriptor* 'pipe-read-poller #f #f #f #f 1 1)) -(define effect_2764 +(define effect_2394 (struct-type-install-properties! struct:pipe-read-poller 'pipe-read-poller @@ -9405,7 +9538,7 @@ (set-pipe-data-read-ready-sema! o_0 (make-semaphore))) (let ((out_0 (let ((r_0 (pipe-data-output-ref o_0))) - (weak-box-value r_0)))) + (begin-unsafe (weak-box-value r_0))))) (begin (if out_0 (temp18.1$1 out_0) (void)) (values @@ -10287,12 +10420,13 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "error closing stream port")) - (raise - (let ((app_0 (format-rktio-message #f v_0 base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 (format-rktio-message #f v_0 base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks))))))) (void)))) (void))))))) (define struct:fd-input-port @@ -10650,7 +10784,7 @@ #f 8 255)) -(define effect_2726 +(define effect_2781 (struct-type-install-properties! struct:fd-output-port 'fd-output-port @@ -10677,13 +10811,14 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "error setting file size")) - (raise - (let ((app_0 - (format-rktio-message - 'file-truncate - result_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'file-truncate + result_0 + base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (void)))))) (cons prop:file-stream (lambda (p_0) (|#%app| fd-output-port-fd p_0)))) (current-inspector) @@ -11445,13 +11580,14 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "error setting stream position")) - (raise - (let ((app_0 - (format-rktio-message 'file-position r_0 base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message 'file-position r_0 base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (void))))) (define struct:fd-evt (make-record-type-descriptor* 'fd-evt #f #f #f #f 3 7)) -(define effect_2550 +(define effect_2590 (struct-type-install-properties! struct:fd-evt 'fd-evt @@ -11491,7 +11627,8 @@ (if ready?_0 (values '(0) #f) (let ((c1_0 - (if (not (|#%app| poll-ctx-poll? ctx_0)) + (if (not + (begin-unsafe (|#%app| poll-ctx-poll? ctx_0))) (let ((app_0 (|#%app| fd-evt-fd fde_0))) (fd-semaphore-update! app_0 @@ -11761,13 +11898,14 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "error during dup of file descriptor")) - (raise - (let ((app_0 - (format-rktio-message - 'place-channel-put - new-fd_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'place-channel-put + new-fd_0 + base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (void)) (let ((fd-dup_0 (box @@ -15663,13 +15801,14 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "error getting locale encoding")) - (raise - (let ((app_0 - (format-rktio-message - 'locale-string-encoding - e_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'locale-string-encoding + e_0 + base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (begin0 (|#%app| rktio_to_bytes e_0) (|#%app| rktio_free e_0))))))) (define 1/locale-string-encoding (|#%name| @@ -15697,13 +15836,14 @@ (unsafe-end-atomic) (let ((base-msg_0 "error getting language and country information")) - (raise - (let ((app_0 - (format-rktio-message - 'system-language+country - c_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'system-language+country + c_0 + base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (begin0 (|#%app| rktio_to_bytes c_0) (|#%app| rktio_free c_0) @@ -16446,18 +16586,19 @@ (unsafe-bytes-set! out-bstr22_0 j_0 v_0) (void)) (let ((next-j_0 (fx+ j_0 1))) - (begin - (loop_0 - assume-paired-surrogates?16_0 - from-utf-16-ish?15_0 - in-bstr19_0 - in-end21_0 - in-start20_0 - out-bstr22_0 - out-end24_0 - out-start23_0 - next-i_0 - next-j_0))))) + (begin-unsafe + (begin + (loop_0 + assume-paired-surrogates?16_0 + from-utf-16-ish?15_0 + in-bstr19_0 + in-end21_0 + in-start20_0 + out-bstr22_0 + out-end24_0 + out-start23_0 + next-i_0 + next-j_0)))))) (if (fx<= v_0 2047) (if (if out-end24_0 (fx>= (fx+ j_0 1) out-end24_0) #f) (let ((app_0 (fx- i_0 in-start20_0))) @@ -16476,18 +16617,19 @@ (fxior 128 (fxand v_0 63))))) (void)) (let ((next-j_0 (+ j_0 2))) - (begin - (loop_0 - assume-paired-surrogates?16_0 - from-utf-16-ish?15_0 - in-bstr19_0 - in-end21_0 - in-start20_0 - out-bstr22_0 - out-end24_0 - out-start23_0 - next-i_0 - next-j_0))))) + (begin-unsafe + (begin + (loop_0 + assume-paired-surrogates?16_0 + from-utf-16-ish?15_0 + in-bstr19_0 + in-end21_0 + in-start20_0 + out-bstr22_0 + out-end24_0 + out-start23_0 + next-i_0 + next-j_0)))))) (if (fx<= v_0 65535) (if (if out-end24_0 (fx>= (fx+ j_0 2) out-end24_0) #f) (let ((app_0 (fx- i_0 in-start20_0))) @@ -16511,18 +16653,19 @@ (fxior 128 (fxand v_0 63))))) (void)) (let ((next-j_0 (fx+ j_0 3))) - (begin - (loop_0 - assume-paired-surrogates?16_0 - from-utf-16-ish?15_0 - in-bstr19_0 - in-end21_0 - in-start20_0 - out-bstr22_0 - out-end24_0 - out-start23_0 - next-i_0 - next-j_0))))) + (begin-unsafe + (begin + (loop_0 + assume-paired-surrogates?16_0 + from-utf-16-ish?15_0 + in-bstr19_0 + in-end21_0 + in-start20_0 + out-bstr22_0 + out-end24_0 + out-start23_0 + next-i_0 + next-j_0)))))) (if (if out-end24_0 (fx>= (fx+ j_0 3) out-end24_0) #f) (let ((app_0 (fx- i_0 in-start20_0))) (values app_0 (fx- j_0 out-start23_0) 'continues)) @@ -16550,18 +16693,19 @@ (fxior 128 (fxand v_0 63))))) (void)) (let ((next-j_0 (fx+ j_0 4))) - (begin - (loop_0 - assume-paired-surrogates?16_0 - from-utf-16-ish?15_0 - in-bstr19_0 - in-end21_0 - in-start20_0 - out-bstr22_0 - out-end24_0 - out-start23_0 - next-i_0 - next-j_0)))))))))))) + (begin-unsafe + (begin + (loop_0 + assume-paired-surrogates?16_0 + from-utf-16-ish?15_0 + in-bstr19_0 + in-end21_0 + in-start20_0 + out-bstr22_0 + out-end24_0 + out-start23_0 + next-i_0 + next-j_0))))))))))))) (continue_1 (|#%name| continue @@ -17887,11 +18031,12 @@ (loop_0 c_0 err-byte1_0 in-bstr_0 str4_0 0))) (lambda () (let ((c_1 (unsafe-unbox* c_0))) - (cache-save! - c_1 - enc_0 - cache-to - set-cache-to!))))))))))))))) + (begin-unsafe + (cache-save! + c_1 + enc_0 + cache-to + set-cache-to!)))))))))))))))) (|#%name| string->bytes/locale (case-lambda @@ -18009,11 +18154,12 @@ (lambda () (loop_0 c_0 err-char5_0 in-bstr8_0 0)) (lambda () (let ((c_1 (unsafe-unbox* c_0))) - (cache-save! - c_1 - enc_0 - cache-from - set-cache-from!))))))))))))))) + (begin-unsafe + (cache-save! + c_1 + enc_0 + cache-from + set-cache-from!)))))))))))))))) (|#%name| bytes->string/locale (case-lambda @@ -18252,7 +18398,7 @@ (define check-path-argument (lambda (who_0 p_0) (if (let ((or-part_0 (path-string? p_0))) - (if or-part_0 or-part_0 (1/path? p_0))) + (if or-part_0 or-part_0 (begin-unsafe (1/path? p_0)))) (void) (raise-argument-error who_0 @@ -19122,7 +19268,7 @@ (if or-part_0 or-part_0 (let ((or-part_1 (string? p_0))) - (if or-part_1 or-part_1 (1/path? p_0))))) + (if or-part_1 or-part_1 (begin-unsafe (1/path? p_0)))))) (void) (raise-argument-error who_0 @@ -22710,16 +22856,17 @@ (begin (if (if (bytes? v5_0) (not max-length3_0) #f) (begin - (do-write-bytes - who4_0 - o6_0 - v5_0 - 0 - (unsafe-bytes-length v5_0)) + (begin-unsafe + (do-write-bytes + who4_0 + o6_0 + v5_0 + 0 + (unsafe-bytes-length v5_0))) (void)) (if (if (string? v5_0) (not max-length3_0) #f) (begin (1/write-string v5_0 o6_0) (void)) - (let ((config_0 (make-hasheq))) + (let ((config_0 (begin-unsafe (make-hasheq)))) (begin (dots (let ((app_0 (sub3 max-length3_0))) @@ -22768,7 +22915,7 @@ do-write (lambda (who10_0 v11_0 o12_0 max-length9_0) (begin - (let ((config_0 (make-hasheq))) + (let ((config_0 (begin-unsafe (make-hasheq)))) (begin (dots (let ((app_0 (sub3 max-length9_0))) @@ -22830,7 +22977,7 @@ (if (eq? quote-depth16_0 unsafe-undefined) 0 quote-depth16_0))) - (let ((config_0 (make-hasheq))) + (let ((config_0 (begin-unsafe (make-hasheq)))) (begin (dots (let ((app_0 (sub3 max-length17_0))) @@ -22897,31 +23044,34 @@ (if (<= (unsafe-bytes-length bstr_0) max-length33_0) - (do-write-bytes - who34_0 - o36_0 - bstr_0 - 0 - (unsafe-bytes-length bstr_0)) + (begin-unsafe + (do-write-bytes + who34_0 + o36_0 + bstr_0 + 0 + (unsafe-bytes-length bstr_0))) (begin (let ((bstr_1 (subbytes bstr_0 0 (sub3 max-length33_0)))) - (do-write-bytes - who34_0 - o36_0 - bstr_1 - 0 - (unsafe-bytes-length bstr_1))) + (begin-unsafe + (do-write-bytes + who34_0 + o36_0 + bstr_1 + 0 + (unsafe-bytes-length bstr_1)))) (let ((bstr_1 #vu8(46 46 46))) - (do-write-bytes - who34_0 - o36_0 - bstr_1 - 0 - (unsafe-bytes-length bstr_1)))))))))) + (begin-unsafe + (do-write-bytes + who34_0 + o36_0 + bstr_1 + 0 + (unsafe-bytes-length bstr_1))))))))))) (void))))))))) (lambda (param_0 default-value_0) (set! do-global-print @@ -22974,12 +23124,13 @@ o_0 'newline))) (let ((bstr_1 bstr_0)) - (do-write-bytes - 'newline - o_1 - bstr_1 - 0 - (unsafe-bytes-length bstr_1))))) + (begin-unsafe + (do-write-bytes + 'newline + o_1 + bstr_1 + 0 + (unsafe-bytes-length bstr_1)))))) (void)))))))) (|#%name| newline @@ -23312,9 +23463,10 @@ (1/custom-write? v_0) #f) (let ((o/m_0 - (make-max-output-port - o_0 - max-length_0))) + (begin-unsafe + (make-max-output-port + o_0 + max-length_0)))) (begin (set-port-handlers-to-recur! o/m_0 @@ -23324,10 +23476,11 @@ v_1 mode_1 o_1 - (if max-length_0 - (max-output-port-max-length - o/m_0) - #f) + (begin-unsafe + (if max-length_0 + (max-output-port-max-length + o/m_0) + #f)) graph_0 config_0))) (|#%app| @@ -23335,10 +23488,11 @@ v_0 o/m_0 mode_0) - (if max-length_0 - (max-output-port-max-length - o/m_0) - #f))) + (begin-unsafe + (if max-length_0 + (max-output-port-max-length + o/m_0) + #f)))) (if (if (struct? v_0) (config-get config_0 @@ -24383,7 +24537,7 @@ (if (let ((or-part_0 (path-string? p_0))) (if or-part_0 or-part_0 - (let ((or-part_1 (1/path? p_0))) + (let ((or-part_1 (begin-unsafe (1/path? p_0)))) (if or-part_1 or-part_1 (let ((or-part_2 (eq? p_0 'up))) @@ -25427,7 +25581,9 @@ (begin (if wrt-given?1_0 (if (if (let ((or-part_0 (path-string? wrt4_0))) - (if or-part_0 or-part_0 (1/path? wrt4_0))) + (if or-part_0 + or-part_0 + (begin-unsafe (1/path? wrt4_0)))) (1/complete-path? wrt4_0) #f) (void) @@ -26386,7 +26542,7 @@ (|#%app| app_0 (let ((p_2 (path->complete-path.1 #f p_1 current-directory$1))) - (do-cleanse-path p_2 #t)))))))) + (begin-unsafe (do-cleanse-path p_2 #t))))))))) (define ->host/as-is (lambda (p_0 who_0 src_0) (let ((p_1 (->path p_0))) @@ -27028,16 +27184,17 @@ "error getting file " (if exclusive?_0 "exclusive" "shared") " lock"))) - (raise - (let ((app_0 - (format-rktio-message - 'port-try-file-lock? - r_0 - base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'port-try-file-lock? + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks)))))) (void)) (eqv? r_0 1)))))))))))))))) (define 1/port-file-unlock @@ -27067,16 +27224,17 @@ (unsafe-end-atomic) (if (vector? r_0) (let ((base-msg_0 "error unlocking file")) - (raise - (let ((app_0 - (format-rktio-message - 'port-file-unlock - r_0 - base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'port-file-unlock + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks)))))) (void))))))))))))) (define make-get-location (lambda (user-get-location_0) @@ -30824,9 +30982,10 @@ (if (eq? 'up (car l_0)) (let ((new-base_0 (combine_0 base_0 accum_0))) (let ((target_0 - (do-resolve-path - new-base_0 - 'simplify-path))) + (begin-unsafe + (do-resolve-path + new-base_0 + 'simplify-path)))) (call-with-values (lambda () (if (eq? target_0 new-base_0) @@ -30922,7 +31081,8 @@ (void)) (if (|#%app| simple? p_0 convention_0) p_0 - (let ((clean-p_0 (do-cleanse-path p_0 #t))) + (let ((clean-p_0 + (begin-unsafe (do-cleanse-path p_0 #t)))) (if (|#%app| simple? clean-p_0 convention_0) (if (let ((or-part_0 (not use-filesystem?1_0))) (if or-part_0 @@ -30990,8 +31150,8 @@ ((p-in_0) (begin (simplify-path_0 p-in_0 #t))) ((p-in_0 use-filesystem?1_0) (simplify-path_0 p-in_0 use-filesystem?1_0)))))) -(define effect_2475 - (begin (void (set! simplify-path/dl 1/simplify-path)) (void))) +(define effect_2315 + (begin (void (begin-unsafe (set! simplify-path/dl 1/simplify-path))) (void))) (define simple? (letrec ((is-a-sep?_0 (|#%name| @@ -31597,16 +31757,17 @@ (if (vector? r_0) (if (eq? fail_0 none) (let ((base-msg_0 "change failed")) - (raise - (let ((app_0 - (format-rktio-message - 'environment-variables-set! - r_0 - base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'environment-variables-set! + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks)))))) (|#%app| fail_0)) (void))) (let ((nk_0 (normalize-key k_0))) @@ -31777,7 +31938,8 @@ (if or-part_0 or-part_0 (string->path$1 "../etc"))))) - (begin (1/path->directory-path p_0)))))) + (begin-unsafe + (begin (1/path->directory-path p_0))))))) (if (unsafe-fx< index_0 6) (if (unsafe-fx< index_0 5) (let ((p_0 @@ -31785,7 +31947,7 @@ (if or-part_0 or-part_0 (string->path$1 "../collects"))))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (let ((p_0 (let ((or-part_0 host-config-dir)) (if or-part_0 @@ -31794,7 +31956,7 @@ (if or-part_1 or-part_1 (string->path$1 "../etc"))))))) - (begin (1/path->directory-path p_0)))) + (begin-unsafe (begin (1/path->directory-path p_0))))) (if (unsafe-fx< index_0 7) (let ((p_0 (let ((or-part_0 host-collects-dir)) @@ -31804,18 +31966,19 @@ (if or-part_1 or-part_1 (string->path$1 "../collects"))))))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (if (unsafe-fx< index_0 8) - (begin (1/path->directory-path orig-dir)) + (begin-unsafe (begin (1/path->directory-path orig-dir))) (let ((p_0 (rktio-system-path 'find-system-path 1))) - (begin (1/path->directory-path p_0))))))) + (begin-unsafe + (begin (1/path->directory-path p_0)))))))) (if (unsafe-fx< index_0 13) (if (unsafe-fx< index_0 10) (let ((p_0 (rktio-system-path 'find-system-path 0))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (if (unsafe-fx< index_0 11) (let ((p_0 (rktio-system-path 'find-system-path 2))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (if (unsafe-fx< index_0 12) (rktio-system-path 'find-system-path 3) (let ((p_0 @@ -31823,22 +31986,23 @@ (if or-part_0 or-part_0 (rktio-system-path 'find-system-path 4))))) - (begin (1/path->directory-path p_0)))))) + (begin-unsafe + (begin (1/path->directory-path p_0))))))) (if (unsafe-fx< index_0 15) (if (unsafe-fx< index_0 14) (let ((p_0 (rktio-system-path 'find-system-path 10))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (let ((p_0 (rktio-system-path 'find-system-path 5))) - (begin (1/path->directory-path p_0)))) + (begin-unsafe (begin (1/path->directory-path p_0))))) (if (unsafe-fx< index_0 16) (let ((p_0 (rktio-system-path 'find-system-path 6))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (if (unsafe-fx< index_0 17) (let ((p_0 (rktio-system-path 'find-system-path 7))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (if (unsafe-fx< index_0 18) (let ((p_0 (rktio-system-path 'find-system-path 8))) - (begin (1/path->directory-path p_0))) + (begin-unsafe (begin (1/path->directory-path p_0)))) (rktio-system-path 'find-system-path 9)))))))) (1/security-guard-check-file 'find-system-path #f '(exists)))))))) (define exec-file #f) @@ -31908,9 +32072,10 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "path lookup failed")) - (raise - (let ((app_0 (format-rktio-message who_0 s_0 base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 (format-rktio-message who_0 s_0 base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (let ((bstr_0 (|#%app| rktio_to_bytes s_0))) (begin (|#%app| rktio_free s_0) @@ -32332,7 +32497,7 @@ (lambda (p_0) (begin (begin - (if (1/path? p_0) + (if (begin-unsafe (1/path? p_0)) (void) (raise-argument-error 'path-convention-type @@ -32568,9 +32733,10 @@ (if (fx= i-len_0 len_0) (let ((new-s_0 (recase/no-nul - (if (zero? pos_0) - s3_0 - (substring s3_0 pos_0 len_0)) + (begin-unsafe + (if (zero? pos_0) + s3_0 + (substring s3_0 pos_0 len_0))) up?1_0))) (if (eqv? pos_0 0) new-s_0 (list new-s_0))) (let ((new-s_0 @@ -32663,7 +32829,8 @@ (lambda () (loop_0 c_0 in-bstr_0 s_0 up?_0 0)) (lambda () (let ((c_1 (unsafe-unbox* c_0))) - (cache-save! c_1 enc_0 cache-to set-cache-to!))))))))))) + (begin-unsafe + (cache-save! c_1 enc_0 cache-to set-cache-to!)))))))))))) (define locale-recase.1 (|#%name| locale-recase @@ -32750,12 +32917,14 @@ (+ i2_0 (string-length-up-to-nul s2_0 i2_0 l2_0)))) (if (if (= l1_0 t-l1_0) (= l2_0 t-l2_0) #f) (let ((app_0 - (if (zero? i1_0) - s1_0 - (substring s1_0 i1_0 l1_0)))) + (begin-unsafe + (if (zero? i1_0) + s1_0 + (substring s1_0 i1_0 l1_0))))) (collate/no-nul app_0 - (if (zero? i2_0) s2_0 (substring s2_0 i2_0 l2_0)) + (begin-unsafe + (if (zero? i2_0) s2_0 (substring s2_0 i2_0 l2_0))) ci?_0)) (let ((v_0 (let ((app_0 (substring s1_0 i1_0 t-l1_0))) @@ -32985,13 +33154,15 @@ (lambda () (begin (let ((c_0 (unsafe-unbox* c1_0))) - (cache-save! c_0 enc_0 cache-to set-cache-to!)) + (begin-unsafe + (cache-save! c_0 enc_0 cache-to set-cache-to!))) (let ((c_0 (unsafe-unbox* c2_0))) - (cache-save! - c_0 - enc_0 - cache-to_3068 - set-cache-to2!)))))))))))))) + (begin-unsafe + (cache-save! + c_0 + enc_0 + cache-to_3068 + set-cache-to2!))))))))))))))) (define 1/error (|#%name| error @@ -34016,13 +34187,13 @@ (define decrement-receiever-waiters! (lambda (lr_0) (if (let ((q_0 (|#%app| queue-log-receiver-waiters lr_0))) - (not (queue-start q_0))) + (begin-unsafe (not (queue-start q_0)))) (set-box! (queue-log-receiver-backref lr_0) #f) (void)))) (define increment-receiever-waiters! (lambda (lr_0) (if (let ((q_0 (|#%app| queue-log-receiver-waiters lr_0))) - (not (queue-start q_0))) + (begin-unsafe (not (queue-start q_0)))) (set-box! (queue-log-receiver-backref lr_0) lr_0) (void)))) (define struct:stdio-log-receiver @@ -34465,14 +34636,18 @@ (if (pair? lst_0) (let ((r_0 (unsafe-car lst_0))) (let ((rest_0 (unsafe-cdr lst_0))) - (if (if (let ((app_0 (level->value max-level_0))) - (>= app_0 (level->value ceiling-level_0))) + (if (if (begin-unsafe + (let ((app_0 (level->value max-level_0))) + (>= app_0 (level->value ceiling-level_0)))) (let ((or-part_0 (not topic_0))) (if or-part_0 or-part_0 - (let ((app_0 - (level->value topic-max-level_0))) - (>= app_0 (level->value ceiling-level_0))))) + (begin-unsafe + (let ((app_0 + (level->value topic-max-level_0))) + (>= + app_0 + (level->value ceiling-level_0)))))) #f) (values max-level_0 topic-max-level_0) (call-with-values @@ -34497,14 +34672,15 @@ #f)))) (case-lambda ((max-level_1 topic-max-level_1) - (begin - (for-loop_0 - ceiling-level_0 - topic-ceiling-level_0 - topic_0 - max-level_1 - topic-max-level_1 - rest_0))) + (begin-unsafe + (begin + (for-loop_0 + ceiling-level_0 + topic-ceiling-level_0 + topic_0 + max-level_1 + topic-max-level_1 + rest_0)))) (args (raise-binding-result-arity-error 2 args))))))) (values max-level_0 topic-max-level_0)))))) @@ -34575,17 +34751,21 @@ ((max-level_0 topic-max-level_0) (let ((c1_0 (if (let ((or-part_0 - (let ((app_0 - (level->value ceiling-level_0))) - (>= app_0 (level->value max-level_0))))) + (begin-unsafe + (let ((app_0 + (level->value ceiling-level_0))) + (>= + app_0 + (level->value max-level_0)))))) (if or-part_0 or-part_0 (if topic_0 - (let ((app_0 - (level->value ceiling-level_0))) - (>= - app_0 - (level->value topic-max-level_0))) + (begin-unsafe + (let ((app_0 + (level->value ceiling-level_0))) + (>= + app_0 + (level->value topic-max-level_0)))) #f))) (logger-parent parent_0) #f))) @@ -34908,7 +35088,8 @@ (define log-level?* (lambda (logger_0 level_0 topic_0) (let ((a_0 (logger-wanted-level logger_0 topic_0))) - (let ((app_0 (level->value a_0))) (>= app_0 (level->value level_0)))))) + (begin-unsafe + (let ((app_0 (level->value a_0))) (>= app_0 (level->value level_0))))))) (define 1/log-max-level (let ((log-max-level_0 (|#%name| @@ -35110,8 +35291,9 @@ in-interrupt?_0) (let ((msg_0 (box #f))) (if (let ((a_0 (logger-max-wanted-level* logger_0))) - (let ((app_0 (level->value a_0))) - (>= app_0 (level->value level_0)))) + (begin-unsafe + (let ((app_0 (level->value a_0))) + (>= app_0 (level->value level_0))))) (letrec* ((loop_0 (|#%name| @@ -35135,10 +35317,12 @@ (filters-level-for-topic (log-receiver-filters r_0) topic_0))) - (let ((app_0 (level->value a_0))) - (>= - app_0 - (level->value level_0)))) + (begin-unsafe + (let ((app_0 + (level->value a_0))) + (>= + app_0 + (level->value level_0))))) (begin (if (unsafe-unbox* msg_0) (void) @@ -35170,8 +35354,9 @@ (filters-level-for-topic (logger-propagate-filters logger_1) topic_0))) - (let ((app_0 (level->value a_0))) - (>= app_0 (level->value level_0)))) + (begin-unsafe + (let ((app_0 (level->value a_0))) + (>= app_0 (level->value level_0))))) #f) (loop_0 parent_0) (void))))))))) @@ -35456,7 +35641,7 @@ (lambda (fc_0) (begin (begin - (if (fs-change-evt? fc_0) + (if (begin-unsafe (fs-change-evt? fc_0)) (void) (raise-argument-error 'filesystem-change-evt-cancel @@ -36215,16 +36400,17 @@ (unsafe-end-atomic) (let ((base-msg_0 "process creation failed")) - (raise - (let ((app_0 - (format-rktio-message - 'subprocess - r_0 - base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'subprocess + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks))))))) (void)) (let ((in_0 (let ((fd_0 @@ -36335,13 +36521,17 @@ (begin (unsafe-end-atomic) (let ((base-msg_0 "status access failed")) - (raise - (let ((app_0 - (format-rktio-message - 'subprocess-status - r_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'subprocess-status + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks))))))) (if (|#%app| rktio_status_running r_0) (begin (|#%app| rktio_free r_0) (unsafe-end-atomic) 'running) (begin @@ -36514,16 +36704,17 @@ (begin (if (vector? r_0) (let ((base-msg_0 "failed")) - (raise - (let ((app_0 - (format-rktio-message - 'shell-execute - r_0 - base-msg_0))) - (|#%app| - exn:fail - app_0 - (current-continuation-marks))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'shell-execute + r_0 + base-msg_0))) + (|#%app| + exn:fail + app_0 + (current-continuation-marks)))))) (void)) #f)))))))))))) (define effect_3140 @@ -36546,16 +36737,16 @@ (let ((err_0 (remap-rktio-error orig-err_0))) (let ((msg_0 (format-rktio-message who_0 err_0 base-msg_0))) (raise - (if (not (eq? (vector-ref err_0 0) 3)) + (if (not (eq? (begin-unsafe (vector-ref err_0 0)) 3)) (let ((app_0 (current-continuation-marks))) (|#%app| exn:fail:network:errno msg_0 app_0 - (let ((app_1 (vector-ref err_0 1))) + (let ((app_1 (begin-unsafe (vector-ref err_0 1)))) (cons app_1 - (let ((kind_0 (vector-ref err_0 0))) + (let ((kind_0 (begin-unsafe (vector-ref err_0 0)))) (if (eqv? kind_0 0) 'posix (if (eqv? kind_0 1) @@ -37950,7 +38141,7 @@ (begin (begin (unsafe-start-atomic) - (if (unbox (tcp-listener-closed listener4_0)) + (if (begin-unsafe (unbox (tcp-listener-closed listener4_0))) (|#%app| closed-error who3_0 listener4_0) (if (|#%app| accept-ready? listener4_0) (begin @@ -37976,7 +38167,9 @@ (rktio-evt1.1 (lambda () (let ((or-part_0 - (unbox (tcp-listener-closed listener4_0)))) + (begin-unsafe + (unbox + (tcp-listener-closed listener4_0))))) (if or-part_0 or-part_0 (|#%app| accept-ready? listener4_0)))) @@ -38001,7 +38194,7 @@ "tcp-listener?" listener_0)) (unsafe-start-atomic) - (if (unbox (tcp-listener-closed listener_0)) + (if (begin-unsafe (unbox (tcp-listener-closed listener_0))) (|#%app| closed-error 'tcp-accept-ready? listener_0) (|#%app| accept-ready? listener_0))))))) (define 1/tcp-accept-evt @@ -38016,7 +38209,7 @@ (accept-evt6.1 listener_0)))))) (define struct:accept-evt (make-record-type-descriptor* 'tcp-accept-evt #f #f #f #f 1 1)) -(define effect_2060 +(define effect_2325 (struct-type-install-properties! struct:accept-evt 'tcp-accept-evt @@ -38030,7 +38223,7 @@ poller (lambda (self_0 poll-ctx_0) (let ((listener_0 (|#%app| accept-evt-listener self_0))) - (if (unbox (tcp-listener-closed listener_0)) + (if (begin-unsafe (unbox (tcp-listener-closed listener_0))) (|#%app| error-result (lambda () @@ -38582,10 +38775,11 @@ (begin (unsafe-end-atomic) (let ((mode_0 "get")) - (raise-network-error - 'udp-ttl - v_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (raise-network-error + 'udp-ttl + v_0 + (string-append mode_0 "sockopt failed"))))) v_0))) (unsafe-end-atomic))))))) (define 1/udp-set-ttl! @@ -38614,10 +38808,11 @@ (begin (unsafe-end-atomic) (let ((mode_0 "set")) - (raise-network-error - 'udp-set-ttl! - r_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (raise-network-error + 'udp-set-ttl! + r_0 + (string-append mode_0 "sockopt failed"))))) (void)))) (unsafe-end-atomic))))))) (define 1/tcp-addresses @@ -38647,7 +38842,7 @@ (call-with-values (lambda () (if (1/tcp-listener? p2_0) - (if (unbox (tcp-listener-closed p2_0)) + (if (begin-unsafe (unbox (tcp-listener-closed p2_0))) (begin (unsafe-end-atomic) (raise-arguments-error @@ -40047,14 +40242,16 @@ action_0))) (if (vector? v_0) (let ((mode_0 "set")) - (begin - (unsafe-end-atomic) - (raise-network-error - who_0 - v_0 - (string-append - mode_0 - "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + who_0 + v_0 + (string-append + mode_0 + "sockopt failed")))))) (void))))))))) (let ((temp16_1 temp16_0) (temp15_1 temp15_0) @@ -40089,10 +40286,11 @@ (lambda (who_0 mode_0 v_0) (begin (unsafe-end-atomic) - (raise-network-error - who_0 - v_0 - (string-append mode_0 "sockopt failed"))))) + (begin-unsafe + (raise-network-error + who_0 + v_0 + (string-append mode_0 "sockopt failed")))))) (define 1/udp-multicast-interface (|#%name| udp-multicast-interface @@ -40117,12 +40315,14 @@ (udp-s u_0)))) (if (vector? v_0) (let ((mode_0 "get")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-interface - v_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-interface + v_0 + (string-append mode_0 "sockopt failed")))))) (let ((bstr_0 (|#%app| rktio_to_bytes v_0))) (begin (|#%app| rktio_free v_0) @@ -40167,14 +40367,16 @@ addr_0))) (if (vector? r_0) (let ((mode_0 "set")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-set-interface! - r_0 - (string-append - mode_0 - "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-set-interface! + r_0 + (string-append + mode_0 + "sockopt failed")))))) (void))))))))) (let ((temp29_1 temp29_0) (temp28_1 temp28_0)) (call-with-resolved-address.1 @@ -40214,12 +40416,14 @@ (udp-s u_0)))) (if (vector? v_0) (let ((mode_0 "get")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-loopback? - v_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-loopback? + v_0 + (string-append mode_0 "sockopt failed")))))) (not (zero? v_0))))) (unsafe-end-atomic))))))) (define 1/udp-multicast-set-loopback! @@ -40247,12 +40451,14 @@ loopback?_0))) (if (vector? r_0) (let ((mode_0 "set")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-set-loopback! - r_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-set-loopback! + r_0 + (string-append mode_0 "sockopt failed")))))) (void)))) (unsafe-end-atomic))))))) (define 1/udp-multicast-ttl @@ -40275,12 +40481,14 @@ (udp-s u_0)))) (if (vector? v_0) (let ((mode_0 "get")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-ttl - v_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-ttl + v_0 + (string-append mode_0 "sockopt failed")))))) v_0))) (unsafe-end-atomic))))))) (define 1/udp-multicast-set-ttl! @@ -40311,12 +40519,14 @@ ttl_0))) (if (vector? r_0) (let ((mode_0 "set")) - (begin - (unsafe-end-atomic) - (raise-network-error - 'udp-multicast-set-ttl! - r_0 - (string-append mode_0 "sockopt failed")))) + (begin-unsafe + (begin + (unsafe-end-atomic) + (begin-unsafe + (raise-network-error + 'udp-multicast-set-ttl! + r_0 + (string-append mode_0 "sockopt failed")))))) (void)))) (unsafe-end-atomic))))))) (define ffi-get-lib @@ -41052,13 +41262,14 @@ (|#%app| cleanup_0) (unsafe-end-atomic) (let ((base-msg_0 (string-append "error during " during_0))) - (raise - (let ((app_0 - (format-rktio-message - 'dynamic-place - new-fd_0 - base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message + 'dynamic-place + new-fd_0 + base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (void)) new-fd_0)))) (define pipe @@ -41070,10 +41281,11 @@ (|#%app| cleanup_0) (unsafe-end-atomic) (let ((base-msg_0 (string-append "error during " during_0))) - (raise - (let ((app_0 - (format-rktio-message 'dynamic-place p_0 base-msg_0))) - (|#%app| exn:fail app_0 (current-continuation-marks)))))) + (begin-unsafe + (raise + (let ((app_0 + (format-rktio-message 'dynamic-place p_0 base-msg_0))) + (|#%app| exn:fail app_0 (current-continuation-marks))))))) (void)) (call-with-values (lambda () (|#%app| rktio_pipe_results p_0)) diff --git a/racket/src/cs/schemified/regexp.scm b/racket/src/cs/schemified/regexp.scm index 252048185a..5a65a3cda9 100644 --- a/racket/src/cs/schemified/regexp.scm +++ b/racket/src/cs/schemified/regexp.scm @@ -2532,14 +2532,15 @@ (let ((app_0 (range:s))) (range-invert app_0 (chytes-limit s_0)))) (values #f #f #f))))))))))) -(define range:d (lambda () (range-union null (list (cons 48 57))))) +(define range:d + (lambda () (begin-unsafe (range-union null (list (cons 48 57)))))) (define range:w (lambda () (range-add (let ((range_0 (let ((range_0 (range:d))) - (range-union range_0 (list (cons 97 122)))))) - (range-union range_0 (list (cons 65 90)))) + (begin-unsafe (range-union range_0 (list (cons 97 122))))))) + (begin-unsafe (range-union range_0 (list (cons 65 90))))) 95))) (define range:s (lambda () @@ -2585,43 +2586,56 @@ (if (unsafe-fx< index_0 1) #f (let ((range_0 - (range-union null (list (cons 97 122))))) - (range-union range_0 (list (cons 65 90))))) + (begin-unsafe + (range-union null (list (cons 97 122)))))) + (begin-unsafe + (range-union range_0 (list (cons 65 90)))))) (if (unsafe-fx< index_0 3) - (range-union null (list (cons 65 90))) + (begin-unsafe + (range-union null (list (cons 65 90)))) (if (unsafe-fx< index_0 4) - (range-union null (list (cons 97 122))) + (begin-unsafe + (range-union null (list (cons 97 122)))) (if (unsafe-fx< index_0 5) - (range-union null (list (cons 48 57))) + (begin-unsafe + (range-union null (list (cons 48 57)))) (let ((range_0 (let ((range_0 - (range-union - null - (list (cons 48 57))))) - (range-union - range_0 - (list (cons 97 102)))))) - (range-union - range_0 - (list (cons 65 70)))))))) + (begin-unsafe + (range-union + null + (list (cons 48 57)))))) + (begin-unsafe + (range-union + range_0 + (list (cons 97 102))))))) + (begin-unsafe + (range-union + range_0 + (list (cons 65 70))))))))) (if (unsafe-fx< index_0 9) (if (unsafe-fx< index_0 7) (let ((range_0 (let ((range_0 - (range-union - null - (list (cons 48 57))))) - (range-union - range_0 - (list (cons 97 122)))))) - (range-union range_0 (list (cons 65 90)))) + (begin-unsafe + (range-union + null + (list (cons 48 57)))))) + (begin-unsafe + (range-union + range_0 + (list (cons 97 122))))))) + (begin-unsafe + (range-union range_0 (list (cons 65 90))))) (if (unsafe-fx< index_0 8) (range-add (let ((range_0 - (range-union - null - (list (cons 97 122))))) - (range-union range_0 (list (cons 65 90)))) + (begin-unsafe + (range-union + null + (list (cons 97 122)))))) + (begin-unsafe + (range-union range_0 (list (cons 65 90))))) 95) (range-add (range-add null 32) 9))) (if (unsafe-fx< index_0 10) @@ -2655,8 +2669,12 @@ (range-add (range-add range_0 32) 9) range_0)) (if (unsafe-fx< index_0 12) - (range-union null (list (cons 0 31))) - (range-union null (list (cons 0 127))))))))))) + (begin-unsafe + (range-union null (list (cons 0 31)))) + (begin-unsafe + (range-union + null + (list (cons 0 127)))))))))))) (if range_0 (values #t range_0 (+ pos_0 3 (unsafe-bytes-length class_0))) (values #f #f #f)))) @@ -2698,7 +2716,8 @@ (let ((fmt_0 "missing `}` to close `\\~a{`")) (let ((args_0 (list (integer->char p-c_0)))) (let ((fmt_1 fmt_0)) - (apply regexp-error fmt_1 args_0)))) + (begin-unsafe + (apply regexp-error fmt_1 args_0))))) (if (eqv? tmp_1 '#\x7d) (let ((app_0 (reverse$1 accum_0))) (values app_0 (add1 pos_1))) @@ -2727,7 +2746,8 @@ integer->char l_0)))))) (let ((fmt_1 fmt_0)) - (apply regexp-error fmt_1 args_0)))) + (begin-unsafe + (apply regexp-error fmt_1 args_0))))) (if (unsafe-fx< index_0 2) 'll (if (unsafe-fx< index_0 3) 'lu 'lt))) @@ -2800,7 +2820,8 @@ (args (raise-binding-result-arity-error 2 args)))) (let ((fmt_0 "expected `{` after `\\~a`")) (let ((args_0 (list (integer->char p-c_0)))) - (let ((fmt_1 fmt_0)) (apply regexp-error fmt_1 args_0))))))))) + (let ((fmt_1 fmt_0)) + (begin-unsafe (apply regexp-error fmt_1 args_0)))))))))) (define range-add* (lambda (range_0 c_0 config_0) (if (not c_0) @@ -2822,7 +2843,7 @@ (define range-add-span* (lambda (range_0 from-c_0 to-c_0 config_0) (if (parse-config-case-sensitive? config_0) - (range-union range_0 (list (cons from-c_0 to-c_0))) + (begin-unsafe (range-union range_0 (list (cons from-c_0 to-c_0)))) (let ((end_0 (add1 to-c_0))) (begin (letrec* @@ -2845,11 +2866,12 @@ 'eos (chytes-ref/char s_0 pos_0)))) (if (eq? tmp_0 'eos) - (parse-error - s_0 - pos_0 - config_0 - "missing closing square bracket in pattern") + (begin-unsafe + (parse-error + s_0 + pos_0 + config_0 + "missing closing square bracket in pattern")) (if (eqv? tmp_0 '#\x5e) (call-with-values (lambda () (parse-range s_0 (add1 pos_0) config_0)) @@ -2865,11 +2887,12 @@ 'eos (chytes-ref/char s_0 pos_0)))) (if (eq? tmp_0 'eos) - (parse-error - s_0 - pos_0 - config_0 - "missing closing square bracket in pattern") + (begin-unsafe + (parse-error + s_0 + pos_0 + config_0 + "missing closing square bracket in pattern")) (if (eqv? tmp_0 '#\x5d) (let ((temp20_0 (range-add null 93))) (let ((temp22_0 (add1 pos_0))) @@ -2891,11 +2914,12 @@ 'eos (chytes-ref/char s6_0 pos7_0)))) (if (eq? tmp_0 'eos) - (parse-error - s6_0 - pos7_0 - config8_0 - "missing closing square bracket in pattern") + (begin-unsafe + (parse-error + s6_0 + pos7_0 + config8_0 + "missing closing square bracket in pattern")) (if (eqv? tmp_0 '#\x5d) (let ((app_0 (range-add* range5_0 span-from1_0 config8_0))) (values app_0 (add1 pos7_0))) @@ -2907,18 +2931,20 @@ (chytes-ref/char s6_0 pos2_0)))) (if (eq? tmp_1 'eos) (let ((pos_0 (add1 pos2_0))) - (parse-error - s6_0 - pos_0 - config8_0 - "missing closing square bracket in pattern")) + (begin-unsafe + (parse-error + s6_0 + pos_0 + config8_0 + "missing closing square bracket in pattern"))) (if (eqv? tmp_1 '#\x5d) (if must-span-from2_0 - (parse-error - s6_0 - pos7_0 - config8_0 - "misplaced hyphen within square brackets in pattern") + (begin-unsafe + (parse-error + s6_0 + pos7_0 + config8_0 + "misplaced hyphen within square brackets in pattern")) (let ((app_0 (range-add (range-add* range5_0 span-from1_0 config8_0) @@ -2932,11 +2958,12 @@ s6_0 pos2_0 config8_0) - (parse-error - s6_0 - pos7_0 - config8_0 - "misplaced hyphen within square brackets in pattern")))))) + (begin-unsafe + (parse-error + s6_0 + pos7_0 + config8_0 + "misplaced hyphen within square brackets in pattern"))))))) (if (eqv? tmp_0 '#\x5c) (if (parse-config-px? config8_0) (let ((pos2_0 (add1 pos7_0))) @@ -3105,7 +3132,9 @@ (lambda () (parse-regexp.1 unsafe-undefined p3_0 0 config_0)) (case-lambda ((rx_0 pos_0) - (let ((app_0 (unbox (parse-config-group-number-box config_0)))) + (let ((app_0 + (begin-unsafe + (unbox (parse-config-group-number-box config_0))))) (values rx_0 app_0 @@ -3299,7 +3328,8 @@ (if (eqv? tmp_0 '#\x2a) #t (eqv? tmp_0 '#\x2b))) (let ((fmt_0 "nested `~a` in patten")) (let ((args_0 (list (integer->char (chytes-ref$1 s_0 pos_0))))) - (let ((fmt_1 fmt_0)) (apply regexp-error fmt_1 args_0)))) + (let ((fmt_1 fmt_0)) + (begin-unsafe (apply regexp-error fmt_1 args_0))))) (if (eqv? tmp_0 '#\x7b) (if (parse-config-px? config_0) (parse-error s_0 pos_0 config_0 "nested `{` in pattern") @@ -3349,11 +3379,12 @@ 'eos (chytes-ref/char s_0 pos_0)))) (if (eq? tmp_0 'eos) - (parse-error - s_0 - pos_0 - config_0 - "missing closing parenthesis in pattern") + (begin-unsafe + (parse-error + s_0 + pos_0 + config_0 + "missing closing parenthesis in pattern")) (if (eqv? tmp_0 '#\x3f) (let ((pos2_0 (add1 pos_0))) (let ((tmp_1 @@ -3361,30 +3392,34 @@ 'eos (chytes-ref/char s_0 pos2_0)))) (if (eq? tmp_1 'eos) - (parse-error - s_0 - pos2_0 - config_0 - "expected `:`, `=`, `!`, `<=`, `char (chytes-ref$1 s_0 pos2_0)))) (if (eqv? tmp_0 '#\x3d) (call-with-values @@ -3492,11 +3529,12 @@ 'eos (chytes-ref/char s_0 pos2+_0)))) (if (eq? tmp_1 'eos) - (parse-error - s_0 - pos2+_0 - config_0 - "expected `:`, `=`, `!`, `<=`, `char c_0)))) - (let ((fmt_1 fmt_0)) (apply regexp-error fmt_1 args_0)))) + (let ((fmt_1 fmt_0)) + (begin-unsafe (apply regexp-error fmt_1 args_0))))) (if (eqv? tmp_0 '#\x7b) (if (parse-config-px? config_0) (parse-error s_0 pos_0 config_0 "`{` follows nothing in pattern") @@ -3693,7 +3738,7 @@ (let ((fmt_0 "unmatched `~a` in pattern")) (let ((args_0 (list (integer->char c_0)))) (let ((fmt_1 fmt_0)) - (apply regexp-error fmt_1 args_0)))) + (begin-unsafe (apply regexp-error fmt_1 args_0))))) (values c_0 (add1 pos_0))) (if (parse-config-case-sensitive? config_0) (values c_0 (add1 pos_0)) @@ -4439,9 +4484,10 @@ (if (<= end_0 127) (let ((app_0 (rx-range - (range-union - null - (list (cons start_1 end_0))) + (begin-unsafe + (range-union + null + (list (cons start_1 end_0)))) 255))) (rx-alts app_0 (loop_0 (cdr l_0)) 255)) (let ((app_0 @@ -4457,7 +4503,7 @@ app_0 (loop_0 (cdr l_0)) 255)))))))))))))) - (lambda (args_0) (let ((l_0 args_0)) (loop_0 l_0))))) + (lambda (args_0) (let ((l_0 (begin-unsafe args_0))) (loop_0 l_0))))) (define bytes-range (lambda (start-str_0 end-str_0) (if (equal? start-str_0 end-str_0) @@ -4467,7 +4513,8 @@ (let ((from-c_0 (unsafe-bytes-ref start-str_0 0))) (let ((to-c_0 (unsafe-bytes-ref end-str_0 0))) (let ((from-c_1 from-c_0)) - (range-union null (list (cons from-c_1 to-c_0)))))) + (begin-unsafe + (range-union null (list (cons from-c_1 to-c_0))))))) 255) (let ((common_0 (letrec* @@ -4520,9 +4567,10 @@ (rx-sequence (let ((app_0 (rx-range - (range-union - null - (list (cons p_0 q_0))) + (begin-unsafe + (range-union + null + (list (cons p_0 q_0)))) 255))) (cons app_0 @@ -5390,7 +5438,7 @@ (integer->char* 128 (let ((app_0 (arithmetic-shift (bitwise-and 31 (car accum_0)) 6))) - (+ app_0 (bitwise-and last-b_0 63)))) + (+ app_0 (begin-unsafe (bitwise-and last-b_0 63))))) (if (three-byte-prefix? (car accum_0)) 'continue (if (four-byte-prefix? (car accum_0)) @@ -5406,9 +5454,13 @@ 12))) (let ((app_1 (arithmetic-shift - (let ((b_0 (car accum_0))) (bitwise-and b_0 63)) + (let ((b_0 (car accum_0))) + (begin-unsafe (bitwise-and b_0 63))) 6))) - (+ app_0 app_1 (bitwise-and last-b_0 63))))) + (+ + app_0 + app_1 + (begin-unsafe (bitwise-and last-b_0 63)))))) (if (if (pair? (cdr accum_0)) (four-byte-prefix? (cadr accum_0)) #f) @@ -5427,18 +5479,18 @@ (let ((app_1 (arithmetic-shift (let ((b_0 (cadr accum_0))) - (bitwise-and b_0 63)) + (begin-unsafe (bitwise-and b_0 63))) 12))) (let ((app_2 (arithmetic-shift (let ((b_0 (car accum_0))) - (bitwise-and b_0 63)) + (begin-unsafe (bitwise-and b_0 63))) 6))) (+ app_0 app_1 app_2 - (bitwise-and last-b_0 63)))))) + (begin-unsafe (bitwise-and last-b_0 63))))))) 'fail))))))) (if (if (let ((or-part_0 (two-byte-prefix? last-b_0))) (if or-part_0 @@ -6070,11 +6122,11 @@ (if (if (bytes? s_0) (if (< pos_0 limit_0) (let ((v_0 (unsafe-bytes-ref s_0 pos_0))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0))) + (begin-unsafe (eq? 1 (unsafe-bytes-ref rng_0 v_0)))) #f) (if (lazy-bytes-before-end? s_0 pos_0 limit_0) (let ((v_0 (lazy-bytes-ref s_0 pos_0))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0))) + (begin-unsafe (eq? 1 (unsafe-bytes-ref rng_0 v_0)))) #f)) (|#%app| next-m_0 @@ -6092,11 +6144,11 @@ (if (if (bytes? s_0) (if (< pos_0 limit_0) (let ((v_0 (unsafe-bytes-ref s_0 pos_0))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0))) + (begin-unsafe (eq? 1 (unsafe-bytes-ref rng_0 v_0)))) #f) (if (lazy-bytes-before-end? s_0 pos_0 limit_0) (let ((v_0 (lazy-bytes-ref s_0 pos_0))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0))) + (begin-unsafe (eq? 1 (unsafe-bytes-ref rng_0 v_0)))) #f)) (add1 pos_0) #f)))) @@ -6117,7 +6169,8 @@ or-part_0 (not (let ((v_0 (unsafe-bytes-ref s_0 pos_1))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0)))))) + (begin-unsafe + (eq? 1 (unsafe-bytes-ref rng_0 v_0))))))) (values pos_1 n_0 1) (loop_0 pos3_0 (add1 n_0))))))))) (loop_0 pos_0 0))) @@ -6139,7 +6192,8 @@ or-part_1 (not (let ((v_0 (lazy-bytes-ref s_0 pos_1))) - (eq? 1 (unsafe-bytes-ref rng_0 v_0)))))))) + (begin-unsafe + (eq? 1 (unsafe-bytes-ref rng_0 v_0))))))))) (values pos_1 n_0 1) (let ((app_0 (+ pos_1 1))) (loop_0 app_0 (add1 n_0))))))))) (loop_0 pos_0 0))))))) @@ -8339,15 +8393,16 @@ #f) (loop_0 (add1 pos_1)) (let ((pos2_0 - (|#%app| - matcher_0 - in_0 - pos_1 - start-pos_0 - end-pos_0 - end-pos_0 - state_0 - null))) + (begin-unsafe + (|#%app| + matcher_0 + in_0 + pos_1 + start-pos_0 + end-pos_0 + end-pos_0 + state_0 + null)))) (if pos2_0 (values pos_1 pos2_0) (if start-range_0 @@ -8555,11 +8610,12 @@ (unsafe-bytes-ref in_0 i_0))) - (eq? - 1 - (unsafe-bytes-ref - e_0 - v_0))) + (begin-unsafe + (eq? + 1 + (unsafe-bytes-ref + e_0 + v_0)))) (let ((app_0 (add1 i_0))) (loop_0 app_0 (cdr l_0))) #f)))))))) @@ -8578,7 +8634,7 @@ (if (bytes? in_0) (unsafe-bytes-ref in_0 pos_0) (lazy-bytes-ref in_0 pos_0)))) - (eq? 1 (unsafe-bytes-ref start-range_0 v_0))))) + (begin-unsafe (eq? 1 (unsafe-bytes-ref start-range_0 v_0)))))) (define FAST-STRING-LEN 64) (define fast-drive-regexp-match?/bytes (lambda (rx_0 in_0 start-pos_0 end-pos_0) @@ -9251,23 +9307,24 @@ max-lookbehind_0) (skip-amt_1 skip-amt_0)) - (let ((len_0 - (unsafe-bytes-length - prefix25_0))) - (lazy-bytes1.1 - prefix25_0 - len_0 - port-in_0 - skip-amt_1 - len_0 - peek?5_0 - immediate-only?6_0 - progress-evt7_0 - out24_0 - max-lookbehind_1 - #f - 0 - max-peek_0)))))))) + (begin-unsafe + (let ((len_0 + (unsafe-bytes-length + prefix25_0))) + (lazy-bytes1.1 + prefix25_0 + len_0 + port-in_0 + skip-amt_1 + len_0 + peek?5_0 + immediate-only?6_0 + progress-evt7_0 + out24_0 + max-lookbehind_1 + #f + 0 + max-peek_0))))))))) (let ((end-pos_0 (if (let ((or-part_0 (eq? diff --git a/racket/src/cs/schemified/schemify.scm b/racket/src/cs/schemified/schemify.scm index bcbbf0f0ba..cf790f5d68 100644 --- a/racket/src/cs/schemified/schemify.scm +++ b/racket/src/cs/schemified/schemify.scm @@ -32,7 +32,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memq "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memq + "not a proper list: " + orig-l_0)) (if (eq? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define memv @@ -49,7 +53,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memv "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memv + "not a proper list: " + orig-l_0)) (if (eqv? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define member @@ -67,10 +75,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_0)) (if (equal? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -100,10 +109,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_1) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_1)) (if (|#%app| eq?_0 v_1 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -132,7 +142,15 @@ ((ht_0 key_0 xform_0 default_0) (do-hash-update 'hash-update! #t hash-set! ht_0 key_0 xform_0 default_0)) ((ht_0 key_0 xform_0) - (do-hash-update 'hash-update! #t hash-set! ht_0 key_0 xform_0 not-there)))) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + ht_0 + key_0 + xform_0 + not-there))))) (define path-string? (lambda (s_0) (let ((or-part_0 (path? s_0))) @@ -5259,7 +5277,7 @@ (let ((or-part_0 (not v_0))) (if or-part_0 or-part_0 - (let ((or-part_1 (procedure? v_0))) + (let ((or-part_1 (begin-unsafe (procedure? v_0)))) (if or-part_1 or-part_1 (eq? v_0 'too-early/ready))))))) (define not-ready-mutated-state? (lambda (v_0) (eq? v_0 'not-ready))) (define too-early-mutated-state? @@ -5323,6 +5341,73 @@ (begin (let ((or-part_0 (not result-arity_0))) (if or-part_0 or-part_0 (eqv? n_0 result-arity_0))))))) + (simple-begin?_0 + (|#%name| + simple-begin? + (lambda (e_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + result-arity_0 + simples10_0 + es_0) + (begin + (let ((c_0 (hash-ref simples10_0 e_0 '#(unknown unknown 1)))) + (let ((r_0 (vector-ref c_0 (if pure?1_0 0 1)))) + (let ((arity-match?_0 + (eqv? result-arity_0 (vector-ref c_0 2)))) + (if (let ((or-part_0 (eq? 'unknown r_0))) + (if or-part_0 or-part_0 (not arity-match?_0))) + (let ((r_1 + (letrec* + ((loop_0 + (|#%name| + loop + (lambda (es_1) + (begin + (if (null? (cdr es_1)) + (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + (car es_1) + result-arity_0) + (if (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + (car es_1) + #f) + (loop_0 (cdr es_1)) + #f))))))) + (loop_0 es_0)))) + (begin + (hash-set! + simples10_0 + e_0 + (if pure?1_0 + (vector + r_1 + (if arity-match?_0 + (vector-ref c_0 1) + 'unknown) + result-arity_0) + (vector + (if arity-match?_0 + (vector-ref c_0 0) + 'unknown) + r_1 + result-arity_0))) + r_1)) + r_0)))))))) (simple?_0 (|#%name| simple? @@ -5360,19 +5445,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -5395,13 +5484,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -5425,8 +5515,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -5448,19 +5539,22 @@ (lambda (idss_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -5682,20 +5776,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -5719,13 +5816,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -5749,8 +5847,11 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -5771,20 +5872,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -5932,20 +6036,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -5974,13 +6081,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f)))) @@ -6005,11 +6113,12 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -6033,20 +6142,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -6282,20 +6394,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -6319,13 +6434,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -6349,11 +6465,12 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -6377,20 +6494,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -6603,532 +6723,512 @@ (let ((es_0 (let ((d_0 (cdr (unwrap e_0)))) (unwrap-list d_0)))) - (let ((c_0 - (hash-ref - simples10_0 - e_0 - '#(unknown unknown 1)))) - (let ((r_0 - (vector-ref - c_0 - (if pure?1_0 0 1)))) - (let ((arity-match?_0 - (eqv? - result-arity_0 - (vector-ref c_0 2)))) - (if (let ((or-part_0 - (eq? 'unknown r_0))) - (if or-part_0 - or-part_0 - (not arity-match?_0))) - (let ((r_1 - (letrec* - ((loop_0 - (|#%name| - loop - (lambda (es_1) - (begin - (if (null? - (cdr es_1)) - (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - (car es_1) - result-arity_0) - (if (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - (car es_1) - #f) - (loop_0 - (cdr es_1)) - #f))))))) - (loop_0 es_0)))) - (begin - (hash-set! + (simple-begin?_0 + e_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + result-arity_0 + simples10_0 + es_0)) + (if (if (eq? 'begin-unsafe hd_0) + (let ((a_0 (cdr (unwrap e_0)))) + (wrap-list? a_0)) + #f) + (let ((es_0 + (let ((d_0 (cdr (unwrap e_0)))) + (unwrap-list d_0)))) + (simple-begin?_0 + e_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + result-arity_0 + simples10_0 + es_0)) + (if (if (eq? 'begin0 hd_0) + (let ((a_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (wrap-list? a_1)) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap d_0))) + (let ((e0_0 + (let ((a_0 (car p_0))) + a_0))) + (let ((es_0 + (let ((d_1 (cdr p_0))) + (unwrap-list d_1)))) + (let ((e0_1 e0_0)) + (values e0_1 es_0))))))) + (case-lambda + ((e0_0 es_0) + (let ((c_0 + (hash-ref simples10_0 e_0 - (if pure?1_0 - (vector - r_1 - (if arity-match?_0 - (vector-ref c_0 1) - 'unknown) - result-arity_0) - (vector - (if arity-match?_0 - (vector-ref c_0 0) - 'unknown) - r_1 - result-arity_0))) - r_1)) - r_0))))) - (if (if (eq? 'begin0 hd_0) - (let ((a_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (wrap-list? a_1)) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((e0_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((es_0 - (let ((d_1 (cdr p_0))) - (unwrap-list d_1)))) - (let ((e0_1 e0_0)) - (values e0_1 es_0))))))) - (case-lambda - ((e0_0 es_0) - (let ((c_0 - (hash-ref - simples10_0 - e_0 - '#(unknown unknown 1)))) - (let ((r_0 - (vector-ref - c_0 - (if pure?1_0 0 1)))) - (let ((arity-match?_0 - (eqv? - result-arity_0 - (vector-ref c_0 2)))) - (if (let ((or-part_0 - (eq? 'unknown r_0))) - (if or-part_0 - or-part_0 - (not arity-match?_0))) - (let ((r_1 - (if (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - e0_0 - result-arity_0) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((e_1 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr + '#(unknown unknown 1)))) + (let ((r_0 + (vector-ref + c_0 + (if pure?1_0 0 1)))) + (let ((arity-match?_0 + (eqv? + result-arity_0 + (vector-ref c_0 2)))) + (if (let ((or-part_0 + (eq? + 'unknown + r_0))) + (if or-part_0 + or-part_0 + (not + arity-match?_0))) + (let ((r_1 + (if (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + e0_0 + result-arity_0) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((e_1 + (unsafe-car lst_0))) - (let ((result_1 - (let ((result_1 - (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - e_1 - #f))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - e_1))) - (not - result_1))) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1)))) - result_0)))))) - (for-loop_0 - #t - es_0))) - #f))) - (begin - (hash-set! - simples10_0 - e_0 - (if pure?1_0 - (vector - r_1 - (if arity-match?_0 - (vector-ref c_0 1) - 'unknown) - result-arity_0) - (vector - (if arity-match?_0 - (vector-ref c_0 0) - 'unknown) - r_1 - result-arity_0))) - r_1)) - r_0))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (if (eq? 'set! hd_0) - (let ((a_0 - (cdr (unwrap e_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((result_1 + (let ((result_1 + (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + e_1 + #f))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + e_1))) + (not + result_1))) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1)))) + result_0)))))) + (for-loop_0 + #t + es_0))) #f))) - #f))) - #f) - (not pure?1_0) - #f) - (let ((e_1 - (let ((d_0 (cdr (unwrap e_0)))) - (let ((d_1 - (cdr (unwrap d_0)))) - (let ((a_0 - (car (unwrap d_1)))) - a_0))))) - (begin - (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - e_1 - 1) - (returns_0 result-arity_0 1))) - (if (if (eq? 'values hd_0) - (let ((a_0 (cdr (unwrap e_0)))) - (wrap-list? a_0)) + (begin + (hash-set! + simples10_0 + e_0 + (if pure?1_0 + (vector + r_1 + (if arity-match?_0 + (vector-ref + c_0 + 1) + 'unknown) + result-arity_0) + (vector + (if arity-match?_0 + (vector-ref + c_0 + 0) + 'unknown) + r_1 + result-arity_0))) + r_1)) + r_0))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (if (eq? 'set! hd_0) + (let ((a_0 + (cdr (unwrap e_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (not pure?1_0) #f) - (let ((es_0 + (let ((e_1 (let ((d_0 (cdr (unwrap e_0)))) - (unwrap-list d_0)))) - (let ((c_0 - (hash-ref - simples10_0 - e_0 - '#(unknown unknown 1)))) - (let ((r_0 - (vector-ref - c_0 - (if pure?1_0 0 1)))) - (let ((arity-match?_0 - (eqv? - result-arity_0 - (vector-ref c_0 2)))) - (if (let ((or-part_0 - (eq? - 'unknown - r_0))) - (if or-part_0 - or-part_0 - (not - arity-match?_0))) - (let ((r_1 - (if (returns_0 - result-arity_0 - (length es_0)) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((e_1 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr + (let ((d_1 + (cdr (unwrap d_0)))) + (let ((a_0 + (car + (unwrap d_1)))) + a_0))))) + (begin + (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + e_1 + 1) + (returns_0 result-arity_0 1))) + (if (if (eq? 'values hd_0) + (let ((a_0 + (cdr (unwrap e_0)))) + (wrap-list? a_0)) + #f) + (let ((es_0 + (let ((d_0 + (cdr (unwrap e_0)))) + (unwrap-list d_0)))) + (let ((c_0 + (hash-ref + simples10_0 + e_0 + '#(unknown unknown 1)))) + (let ((r_0 + (vector-ref + c_0 + (if pure?1_0 0 1)))) + (let ((arity-match?_0 + (eqv? + result-arity_0 + (vector-ref + c_0 + 2)))) + (if (let ((or-part_0 + (eq? + 'unknown + r_0))) + (if or-part_0 + or-part_0 + (not + arity-match?_0))) + (let ((r_1 + (if (returns_0 + result-arity_0 + (length + es_0)) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((e_1 + (unsafe-car lst_0))) - (let ((result_1 - (let ((result_1 - (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - e_1 - 1))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - e_1))) - (not - result_1))) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1)))) - result_0)))))) - (for-loop_0 - #t - es_0))) - #f))) - (begin - (hash-set! + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((result_1 + (let ((result_1 + (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + e_1 + 1))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + e_1))) + (not + result_1))) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1)))) + result_0)))))) + (for-loop_0 + #t + es_0))) + #f))) + (begin + (hash-set! + simples10_0 + e_0 + (if pure?1_0 + (vector + r_1 + (if arity-match?_0 + (vector-ref + c_0 + 1) + 'unknown) + result-arity_0) + (vector + (if arity-match?_0 + (vector-ref + c_0 + 0) + 'unknown) + r_1 + result-arity_0))) + r_1)) + r_0))))) + (if (let ((p_0 (unwrap e_0))) + (if (pair? p_0) #t #f)) + (call-with-values + (lambda () + (let ((p_0 (unwrap e_0))) + (let ((proc_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((args_0 + (let ((d_0 + (cdr p_0))) + d_0))) + (let ((proc_1 proc_0)) + (values + proc_1 + args_0)))))) + (case-lambda + ((proc_0 args_0) + (let ((c_0 + (hash-ref simples10_0 e_0 - (if pure?1_0 - (vector - r_1 - (if arity-match?_0 - (vector-ref - c_0 - 1) - 'unknown) - result-arity_0) - (vector - (if arity-match?_0 - (vector-ref - c_0 - 0) - 'unknown) - r_1 - result-arity_0))) - r_1)) - r_0))))) - (if (let ((p_0 (unwrap e_0))) - (if (pair? p_0) #t #f)) - (call-with-values - (lambda () - (let ((p_0 (unwrap e_0))) - (let ((proc_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((args_0 - (let ((d_0 - (cdr p_0))) - d_0))) - (let ((proc_1 proc_0)) - (values - proc_1 - args_0)))))) - (case-lambda - ((proc_0 args_0) - (let ((c_0 - (hash-ref - simples10_0 - e_0 - '#(unknown - unknown - 1)))) - (let ((r_0 - (vector-ref - c_0 - (if pure?1_0 0 1)))) - (let ((arity-match?_0 - (eqv? - result-arity_0 - (vector-ref - c_0 - 2)))) - (if (let ((or-part_0 - (eq? - 'unknown - r_0))) - (if or-part_0 - or-part_0 - (not - arity-match?_0))) - (let ((r_1 - (let ((proc_1 - (unwrap - proc_0))) - (if (symbol? - proc_1) - (if (let ((v_0 - (let ((or-part_0 - (hash-ref-either - knowns7_0 - imports8_0 - proc_1))) - (if or-part_0 - or-part_0 - (hash-ref - prim-knowns6_0 - proc_1 - #f))))) - (if (if pure?1_0 - (if (known-procedure/pure? - v_0) - (returns_0 - result-arity_0 - 1) - #f) - (if (known-procedure/no-prompt? - v_0) - (eqv? - result-arity_0 - #f) - #f)) - (let ((app_0 - (known-procedure-arity-mask - v_0))) - (bitwise-bit-set? - app_0 - (length - args_0))) - #f)) - (if (simple-mutated-state? - (hash-ref - mutated9_0 - proc_1 - #f)) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((arg_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr + '#(unknown + unknown + 1)))) + (let ((r_0 + (vector-ref + c_0 + (if pure?1_0 + 0 + 1)))) + (let ((arity-match?_0 + (eqv? + result-arity_0 + (vector-ref + c_0 + 2)))) + (if (let ((or-part_0 + (eq? + 'unknown + r_0))) + (if or-part_0 + or-part_0 + (not + arity-match?_0))) + (let ((r_1 + (let ((proc_1 + (unwrap + proc_0))) + (if (symbol? + proc_1) + (if (let ((v_0 + (let ((or-part_0 + (hash-ref-either + knowns7_0 + imports8_0 + proc_1))) + (if or-part_0 + or-part_0 + (hash-ref + prim-knowns6_0 + proc_1 + #f))))) + (if (if pure?1_0 + (if (known-procedure/pure? + v_0) + (returns_0 + result-arity_0 + 1) + #f) + (if (known-procedure/no-prompt? + v_0) + (eqv? + result-arity_0 + #f) + #f)) + (let ((app_0 + (known-procedure-arity-mask + v_0))) + (bitwise-bit-set? + app_0 + (length + args_0))) + #f)) + (if (simple-mutated-state? + (hash-ref + mutated9_0 + proc_1 + #f)) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((arg_0 + (unsafe-car lst_0))) - (let ((result_1 - (let ((result_1 - (simple?_0 - imports8_0 - knowns7_0 - mutated9_0 - prim-knowns6_0 - pure?1_0 - simples10_0 - arg_0 - 1))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - arg_0))) - (not - result_1))) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1)))) - result_0)))))) - (for-loop_0 - #t - args_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((result_1 + (let ((result_1 + (simple?_0 + imports8_0 + knowns7_0 + mutated9_0 + prim-knowns6_0 + pure?1_0 + simples10_0 + arg_0 + 1))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + arg_0))) + (not + result_1))) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1)))) + result_0)))))) + (for-loop_0 + #t + args_0))) + #f) #f) - #f) - #f)))) - (begin - (hash-set! - simples10_0 - e_0 - (if pure?1_0 - (vector - r_1 - (if arity-match?_0 - (vector-ref - c_0 - 1) - 'unknown) - result-arity_0) - (vector - (if arity-match?_0 - (vector-ref - c_0 - 0) - 'unknown) - r_1 - result-arity_0))) - r_1)) - r_0))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (let ((e_1 (unwrap e_0))) - (if (returns_0 result-arity_0 1) - (let ((or-part_0 - (if (symbol? e_1) - (simple-mutated-state? - (hash-ref - mutated9_0 - e_1 - #f)) - #f))) - (if or-part_0 - or-part_0 - (let ((or-part_1 - (integer? e_1))) - (if or-part_1 - or-part_1 - (let ((or-part_2 - (boolean? - e_1))) - (if or-part_2 - or-part_2 - (let ((or-part_3 - (string? - e_1))) - (if or-part_3 - or-part_3 - (let ((or-part_4 - (bytes? - e_1))) - (if or-part_4 - or-part_4 - (regexp? - e_1))))))))))) - #f))))))))))))))))))))) + #f)))) + (begin + (hash-set! + simples10_0 + e_0 + (if pure?1_0 + (vector + r_1 + (if arity-match?_0 + (vector-ref + c_0 + 1) + 'unknown) + result-arity_0) + (vector + (if arity-match?_0 + (vector-ref + c_0 + 0) + 'unknown) + r_1 + result-arity_0))) + r_1)) + r_0))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((e_1 (unwrap e_0))) + (if (returns_0 + result-arity_0 + 1) + (let ((or-part_0 + (if (symbol? e_1) + (simple-mutated-state? + (hash-ref + mutated9_0 + e_1 + #f)) + #f))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (integer? e_1))) + (if or-part_1 + or-part_1 + (let ((or-part_2 + (boolean? + e_1))) + (if or-part_2 + or-part_2 + (let ((or-part_3 + (string? + e_1))) + (if or-part_3 + or-part_3 + (let ((or-part_4 + (bytes? + e_1))) + (if or-part_4 + or-part_4 + (regexp? + e_1))))))))))) + #f)))))))))))))))))))))) (|#%name| simple? (lambda (pure?1_0 @@ -7158,7 +7258,8 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((v_0 @@ -7459,14 +7560,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -7480,13 +7586,14 @@ (if (let ((a_1 (car p_0))) - (let ((app_0 - (unwrap - 'cons))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'cons))) + (eq? + app_0 + (unwrap + a_1))))) (let ((a_1 (cdr p_0))) @@ -7506,13 +7613,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f) @@ -7547,14 +7655,19 @@ for-loop (lambda (props_0 vals_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -7673,14 +7786,16 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (if (let ((a_2 (car p_1))) - (let ((app_0 (unwrap 'quote))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap 'quote))) + (eq? app_0 (unwrap a_2))))) (let ((a_2 (cdr p_1))) (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f) #f))) @@ -7699,11 +7814,12 @@ (let ((p_4 (unwrap a_4))) (if (pair? p_4) (if (let ((a_5 (car p_4))) - (let ((app_0 - (unwrap #f))) - (eq? - app_0 - (unwrap a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap #f))) + (eq? + app_0 + (unwrap a_5))))) #t #f) #f))) @@ -7765,30 +7881,33 @@ (if or-part_0 or-part_0 (known-struct-type? - (call-with-values - (lambda () - (find-known+import - u-parent_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 im_0) k_0) - (args - (raise-binding-result-arity-error - 2 - args))))))) + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + u-parent_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 im_0) k_0) + (args + (raise-binding-result-arity-error + 2 + args)))))))) (if (exact-nonnegative-integer? fields_0) (let ((prefab-imms_0 - (if (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap rest_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap rest_0)))) 'non-prefab (if (let ((p_0 (unwrap rest_0))) (if (pair? p_0) (let ((a_0 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_0))))) #f)) 'non-prefab (if (let ((p_0 (unwrap rest_0))) @@ -7797,11 +7916,12 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 - (unwrap #f))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap #f))) + (eq? + app_0 + (unwrap a_1))))) #t #f) #f))) @@ -7819,23 +7939,25 @@ (if (let ((a_2 (car p_2))) - (let ((app_0 - (unwrap - 'current-inspector))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'current-inspector))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f) #f))) #t @@ -7857,13 +7979,14 @@ (if (let ((a_2 (car p_2))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_2))) @@ -7875,23 +7998,25 @@ (if (let ((a_3 (car p_3))) - (let ((app_0 - (unwrap - 'prefab))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'prefab))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f) @@ -7919,13 +8044,14 @@ (if (let ((a_4 (car p_4))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) (let ((a_4 (cdr p_4))) @@ -7937,13 +8063,14 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f) #f))) @@ -7989,13 +8116,14 @@ (if (let ((a_2 (car p_2))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_2))) @@ -8007,23 +8135,25 @@ (if (let ((a_3 (car p_3))) - (let ((app_0 - (unwrap - 'prefab))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'prefab))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f) @@ -8037,13 +8167,14 @@ (let ((a_2 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f) #f))) @@ -8065,13 +8196,14 @@ (if (let ((a_2 (car p_2))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_2))) @@ -8083,36 +8215,39 @@ (if (let ((a_3 (car p_3))) - (let ((app_0 - (unwrap - 'prefab))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'prefab))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f) #f))) (let ((a_1 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f) #f))) #f)) @@ -8120,20 +8255,21 @@ #f))))))))) (let ((parent-sti_0 (if u-parent_0 - (call-with-values - (lambda () - (find-known+import - u-parent_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 im_0) k_0) - (args - (raise-binding-result-arity-error - 2 - args)))) + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + u-parent_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 im_0) k_0) + (args + (raise-binding-result-arity-error + 2 + args))))) #f))) (let ((prefab-imms_1 prefab-imms_0)) (let ((constructor-name-expr_0 @@ -8196,14 +8332,16 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -8233,13 +8371,13 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -8248,12 +8386,13 @@ (let ((p_0 (unwrap v_1))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 - (unwrap - 'cons))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'cons))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) @@ -8267,13 +8406,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f) @@ -8302,13 +8442,13 @@ for-loop (lambda (props_0 vals_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -8383,20 +8523,21 @@ (let ((u-prop_0 (unwrap prop_0))) (if (symbol? u-prop_0) (if (known-struct-type-property/immediate-guard? - (call-with-values - (lambda () - (find-known+import - u-prop_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 im_0) k_0) - (args - (raise-binding-result-arity-error - 2 - args))))) + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + u-prop_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 im_0) k_0) + (args + (raise-binding-result-arity-error + 2 + args)))))) (simple?.1 #t 1 @@ -8423,18 +8564,21 @@ result_0)))))) (for-loop_0 #t props_0 vals_0)))) (args (raise-binding-result-arity-error 2 args)))) - (if (let ((app_0 (unwrap 'null))) (eq? app_0 (unwrap e_0))) + (if (begin-unsafe + (let ((app_0 (unwrap 'null))) (eq? app_0 (unwrap e_0)))) #t (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f) #f))) #f) @@ -8458,21 +8602,26 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_4))))) #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) @@ -8482,8 +8631,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 (unwrap 'if))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap 'if))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) @@ -8492,12 +8642,14 @@ (if (pair? p_4) (if (let ((a_5 (car p_4))) - (let ((app_0 - (unwrap - 'struct-type?))) - (eq? - app_0 - (unwrap a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'struct-type?))) + (eq? + app_0 + (unwrap + a_5))))) (let ((a_5 (cdr p_4))) (let ((p_5 (unwrap a_5))) @@ -8505,13 +8657,14 @@ (let ((a_6 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_6))))) #f))) #f) #f))) @@ -8523,12 +8676,14 @@ (if (pair? p_5) (let ((a_6 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_6))))) #f))) #f))) #f) @@ -8536,8 +8691,9 @@ #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f) @@ -8768,8 +8924,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -8802,14 +8959,16 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (if (let ((a_2 (car p_1))) - (let ((app_0 (unwrap 'quote))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap 'quote))) + (eq? app_0 (unwrap a_2))))) (let ((a_2 (cdr p_1))) (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f) #f))) @@ -8841,7 +9000,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((t_0 @@ -8853,8 +9014,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((e_0 @@ -8863,18 +9025,19 @@ (let ((u_0 (unwrap e_0))) (if (symbol? u_0) (let ((k_0 - (call-with-values - (lambda () - (find-known+import - u_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 im_0) k_0) - (args - (raise-binding-result-arity-error 2 args)))))) + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + u_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 im_0) k_0) + (args + (raise-binding-result-arity-error 2 args))))))) (if (known-procedure? k_0) #t v_0)) v_0))) (if (if (eq? 'procedure-arity-includes? hd_0) @@ -8885,8 +9048,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -8907,20 +9071,21 @@ (exact-nonnegative-integer? n_0) #f) (let ((k_0 - (call-with-values - (lambda () - (find-known+import - u_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 im_0) k_0) - (args - (raise-binding-result-arity-error - 2 - args)))))) + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + u_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 im_0) k_0) + (args + (raise-binding-result-arity-error + 2 + args))))))) (if (if (known-procedure? k_0) (bitwise-bit-set? (known-procedure-arity-mask k_0) @@ -9032,13 +9197,14 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -9084,16 +9250,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -9115,13 +9285,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -9166,17 +9337,21 @@ (lambda (idss_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -9385,16 +9560,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -9442,16 +9621,20 @@ (lambda (formalss_0 bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -9609,12 +9792,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -9704,13 +9889,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -9808,207 +9994,211 @@ primitives_0 unsafe-mode?_0 body_0))) - (if (if (eq? 'begin0 hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (wrap-list? a_1)) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((e_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((body_0 - (let ((d_1 - (cdr p_0))) - (unwrap-list - d_1)))) - (let ((e_1 e_0)) - (values - e_1 - body_0))))))) - (case-lambda - ((e_0 body_0) - (let ((app_0 - (optimize*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - primitives_0 - unsafe-mode?_0 - e_0))) - (list* - 'begin0 - app_0 - (optimize*-body_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - primitives_0 - unsafe-mode?_0 - body_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'set! hd_0) + (let ((body_0 + (let ((d_0 + (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (list* + 'begin-unsafe + (optimize*-body_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + body_0))) + (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) + (wrap-list? a_1)) #f))) #f) (call-with-values (lambda () (let ((d_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap d_0))) - (let ((id_0 + (let ((e_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 + (let ((body_0 (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) + (unwrap-list + d_1)))) + (let ((e_1 e_0)) (values - id_1 - rhs_0))))))) + e_1 + body_0))))))) (case-lambda - ((id_0 rhs_0) - (list - 'set! - id_0 - (optimize*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - primitives_0 - unsafe-mode?_0 - rhs_0))) + ((e_0 body_0) + (let ((app_0 + (optimize*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + e_0))) + (list* + 'begin0 + app_0 + (optimize*-body_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + body_0)))) (args (raise-binding-result-arity-error 2 args)))) - (if (if (eq? - 'variable-reference-from-unsafe? - hd_0) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) - (if (let ((a_1 - (car p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (if (let ((a_2 - (car - p_1))) - (let ((app_0 - (unwrap - '|#%variable-reference|))) - (eq? - app_0 - (unwrap - a_2)))) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f) - #f))) - (let ((a_1 - (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_1)))) - #f) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) #f))) #f) - unsafe-mode?_0 + (call-with-values + (lambda () + (let ((d_0 + (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (list + 'set! + id_0 + (optimize*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + rhs_0))) + (args + (raise-binding-result-arity-error + 2 + args)))) (if (if (eq? - '|#%variable-reference| + 'variable-reference-from-unsafe? hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_0)))) + (let ((p_0 + (unwrap a_0))) + (if (pair? p_0) + (if (let ((a_1 + (car + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '|#%variable-reference|))) + (eq? + app_0 + (unwrap + a_2))))) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f) + #f))) + (let ((a_1 + (cdr p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f) + #f))) #f) - v_0 + unsafe-mode?_0 (if (if (eq? '|#%variable-reference| hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 - (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 - (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_0))))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap - v_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - v_0) - (if (if (eq? 'quote hd_0) + v_0 + (if (if (eq? + '|#%variable-reference| + hd_0) (let ((a_0 (cdr (unwrap @@ -10020,70 +10210,107 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) - v_0 - (if (let ((p_0 - (unwrap v_0))) - (if (pair? p_0) - (let ((a_0 - (cdr p_0))) - (wrap-list? - a_0)) - #f)) - (call-with-values - (lambda () - (let ((p_0 - (unwrap v_0))) - (let ((rator_0 - (let ((a_0 - (car - p_0))) + (let ((id_0 + (let ((d_0 + (cdr + (unwrap + v_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + v_0) + (if (if (eq? 'quote hd_0) + (let ((a_0 + (cdr + (unwrap + v_0)))) + (let ((p_0 + (unwrap a_0))) - (let ((exps_0 - (let ((d_0 - (cdr + (if (pair? p_0) + (let ((a_1 + (cdr + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + v_0 + (if (let ((p_0 + (unwrap + v_0))) + (if (pair? p_0) + (let ((a_0 + (cdr + p_0))) + (wrap-list? + a_0)) + #f)) + (call-with-values + (lambda () + (let ((p_0 + (unwrap + v_0))) + (let ((rator_0 + (let ((a_0 + (car p_0))) - (unwrap-list - d_0)))) - (let ((rator_1 - rator_0)) - (values - rator_1 - exps_0)))))) - (case-lambda - ((rator_0 exps_0) - (let ((app_0 - (optimize*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - primitives_0 - unsafe-mode?_0 - rator_0))) - (list* - app_0 - (optimize*-body_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - primitives_0 - unsafe-mode?_0 - exps_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - v_0)))))))))))))))))) + a_0))) + (let ((exps_0 + (let ((d_0 + (cdr + p_0))) + (unwrap-list + d_0)))) + (let ((rator_1 + rator_0)) + (values + rator_1 + exps_0)))))) + (case-lambda + ((rator_0 exps_0) + (let ((app_0 + (optimize*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + rator_0))) + (list* + app_0 + (optimize*-body_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + primitives_0 + unsafe-mode?_0 + exps_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + v_0))))))))))))))))))) (optimize new-v_0 prim-knowns_0 @@ -10108,7 +10335,7 @@ v_0)))) (define parameter-result? (lambda (v_0 prim-knowns_0 knowns_0 mutated_0) - (if (pair? (unwrap v_0)) + (if (begin-unsafe (pair? (unwrap v_0))) (let ((u-rator_0 (unwrap (wrap-car v_0)))) (let ((or-part_0 (eq? u-rator_0 'make-parameter))) (if or-part_0 @@ -10179,7 +10406,7 @@ (bytes->string/utf-8 (path->bytes p_0) '#\xfffd)))) (define wrap-truncate-paths (lambda (e_0) - (if (syntax? e_0) + (if (begin-unsafe (syntax? e_0)) (let ((orig_0 (unwrap e_0))) (let ((u-e_0 (wrap-truncate-paths orig_0))) (call-with-values @@ -10196,7 +10423,7 @@ col_0 pos_0 span_0))) - (datum->syntax #f u-e_0 new-srcloc_0 e_0)) + (begin-unsafe (datum->syntax #f u-e_0 new-srcloc_0 e_0))) (reannotate e_0 u-e_0)))) (args (raise-binding-result-arity-error 5 args)))))) (if (pair? e_0) @@ -10238,13 +10465,14 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -10276,13 +10504,14 @@ for-loop (lambda (argss_0 bodyss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -10372,7 +10601,9 @@ #f))))) (define args-size (lambda (args_0) - (if (pair? (unwrap args_0)) (+ 1 (args-size (wrap-cdr args_0))) 1))) + (if (begin-unsafe (pair? (unwrap args_0))) + (+ 1 (args-size (wrap-cdr args_0))) + 1))) (define smaller-than? (letrec ((loop_0 (|#%name| @@ -10381,7 +10612,7 @@ (begin (if (zero? size_0) 0 - (if (pair? (unwrap v_0)) + (if (begin-unsafe (pair? (unwrap v_0))) (if (eq? (unwrap (wrap-car v_0)) 'quote) (let ((v_1 (unwrap (wrap-car (wrap-cdr v_0))))) (if (if (symbol? v_1) @@ -10443,13 +10674,16 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -10484,13 +10718,16 @@ for-loop (lambda (argss_0 bodyss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -10679,9 +10916,9 @@ loop (lambda (base-env_0 mutated_0 args_0) (begin - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) base-env_0 - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((u_0 (unwrap (wrap-car args_0)))) (let ((g_0 (deterministic-gensym u_0))) (let ((m_0 (hash-ref mutated_0 u_0 #f))) @@ -10702,9 +10939,9 @@ loop (lambda (args_0 env_0) (begin - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) '() - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((u_0 (unwrap (wrap-car args_0)))) (let ((app_0 (cdr (car env_0)))) (cons @@ -10725,11 +10962,15 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((e_0 - (if (pair? (unwrap lst_0)) (wrap-car lst_0) lst_0))) + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-car lst_0) + lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) (wrap-cdr lst_0) null))) + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-cdr lst_0) + null))) (let ((e_1 e_0)) (let ((fold-var_1 (let ((fold-var_1 @@ -10756,13 +10997,16 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -10782,13 +11026,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values result_1)))) @@ -10826,13 +11071,17 @@ for-loop (lambda (idss_0 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11019,13 +11268,14 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11057,13 +11307,14 @@ for-loop (lambda (argss_0 bodyss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11154,7 +11405,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) v_0 @@ -11173,8 +11426,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -11222,8 +11476,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -11276,67 +11531,83 @@ (let ((d_0 (cdr (unwrap v_0)))) (unwrap-list d_0)))) (list* 'begin0 (clone-body exps_0 env_0 mutated_0))) - (if (if (eq? 'set! hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) - #f))) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 - (let ((d_1 (cdr p_0))) - (let ((a_0 (car (unwrap d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values id_1 rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (list - 'set! - id_0 - (clone-expr rhs_0 env_0 mutated_0))) - (args (raise-binding-result-arity-error 2 args)))) - (if (if (eq? '|#%variable-reference| hd_0) + (let ((exps_0 + (let ((d_0 (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (list* + 'begin-unsafe + (clone-body exps_0 env_0 mutated_0))) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) + #f))) + #f))) #f) - v_0 + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 (let ((a_0 (car p_0))) a_0))) + (let ((rhs_0 + (let ((d_1 (cdr p_0))) + (let ((a_0 (car (unwrap d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values id_1 rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (list + 'set! + id_0 + (clone-expr rhs_0 env_0 mutated_0))) + (args + (raise-binding-result-arity-error 2 args)))) (if (if (eq? '|#%variable-reference| hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_0))))) #f) - (let ((id_0 - (let ((d_0 (cdr (unwrap v_0)))) - (let ((a_0 (car (unwrap d_0)))) a_0)))) - (list - '|#%variable-reference| - (clone-expr id_0 env_0 mutated_0))) - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) #t #f)) - (let ((rator_0 - (let ((a_0 (car (unwrap v_0)))) a_0))) - (clone-body v_0 env_0 mutated_0)) - (let ((u-v_0 (unwrap v_0))) - (if (symbol? u-v_0) - (lookup env_0 u-v_0 v_0) - v_0))))))))))))))))))) + v_0 + (if (if (eq? '|#%variable-reference| hd_0) + (let ((a_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) + #f))) + #f) + (let ((id_0 + (let ((d_0 (cdr (unwrap v_0)))) + (let ((a_0 (car (unwrap d_0)))) + a_0)))) + (list + '|#%variable-reference| + (clone-expr id_0 env_0 mutated_0))) + (if (let ((p_0 (unwrap v_0))) + (if (pair? p_0) #t #f)) + (let ((rator_0 + (let ((a_0 (car (unwrap v_0)))) + a_0))) + (clone-body v_0 env_0 mutated_0)) + (let ((u-v_0 (unwrap v_0))) + (if (symbol? u-v_0) + (lookup env_0 u-v_0 v_0) + v_0)))))))))))))))))))) (define lookup (lambda (env_0 sym_0 default_0) (if (null? env_0) @@ -11373,7 +11644,7 @@ (known-procedure/can-inline/need-imports app_0 app_1 - (hash-map needed_0 cons #t)))))))) + (begin-unsafe (hash-map needed_0 cons #t))))))))) (if (known-struct-predicate? k_0) (let ((needed_0 (needed-imports @@ -11393,7 +11664,7 @@ app_1 app_2 app_3 - (hash-map needed_0 cons #t)))))) + (begin-unsafe (hash-map needed_0 cons #t))))))) (let ((app_0 (known-procedure-arity-mask k_0))) (known-predicate app_0 (known-predicate-type k_0))))) (if (known-field-accessor? k_0) @@ -11415,7 +11686,7 @@ app_1 app_2 app_3 - (hash-map needed_0 cons #t)))))) + (begin-unsafe (hash-map needed_0 cons #t))))))) (let ((app_0 (known-procedure-arity-mask k_0))) (known-accessor app_0 (known-accessor-type k_0))))) (if (known-field-mutator? k_0) @@ -11437,7 +11708,7 @@ app_1 app_2 app_3 - (hash-map needed_0 cons #t)))))) + (begin-unsafe (hash-map needed_0 cons #t))))))) (let ((app_0 (known-procedure-arity-mask k_0))) (known-mutator app_0 (known-mutator-type k_0))))) k_0)))))) @@ -11478,13 +11749,15 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11516,13 +11789,15 @@ for-loop (lambda (argss_0 bodyss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11607,8 +11882,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) needed_0 @@ -11639,8 +11915,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -11702,8 +11979,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -11782,104 +12060,119 @@ exports_0 env_0 needed_0)) - (if (if (eq? 'set! hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) - #f))) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 - (let ((d_1 (cdr p_0))) - (let ((a_0 (car (unwrap d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values id_1 rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (let ((u_0 (unwrap id_0))) - (if (hash-ref exports_0 id_0 #f) - #f - (needed-imports - id_0 - prim-knowns_0 - imports_0 - exports_0 - env_0 - (needed-imports - rhs_0 + (let ((exps_0 + (let ((d_0 (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (body-needed-imports + exps_0 + prim-knowns_0 + imports_0 + exports_0 + env_0 + needed_0)) + (if (if (eq? 'set! hd_0) + (let ((a_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 (let ((a_0 (car p_0))) a_0))) + (let ((rhs_0 + (let ((d_1 (cdr p_0))) + (let ((a_0 (car (unwrap d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values id_1 rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (let ((u_0 (unwrap id_0))) + (if (hash-ref exports_0 id_0 #f) + #f + (needed-imports + id_0 + prim-knowns_0 + imports_0 + exports_0 + env_0 + (needed-imports + rhs_0 + prim-knowns_0 + imports_0 + exports_0 + env_0 + needed_0))))) + (args + (raise-binding-result-arity-error 2 args)))) + (if (if (eq? '|#%variable-reference| hd_0) #t #f) + #f + (if (let ((p_0 (unwrap v_0))) + (if (pair? p_0) #t #f)) + (let ((rator_0 + (let ((a_0 (car (unwrap v_0)))) a_0))) + (body-needed-imports + v_0 prim-knowns_0 imports_0 exports_0 env_0 - needed_0))))) - (args - (raise-binding-result-arity-error 2 args)))) - (if (if (eq? '|#%variable-reference| hd_0) #t #f) - #f - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) #t #f)) - (let ((rator_0 - (let ((a_0 (car (unwrap v_0)))) a_0))) - (body-needed-imports - v_0 - prim-knowns_0 - imports_0 - exports_0 - env_0 - needed_0)) - (let ((u-v_0 (unwrap v_0))) - (if (symbol? u-v_0) - (if (let ((or-part_0 (memq u-v_0 env_0))) - (if or-part_0 - or-part_0 - (let ((or-part_1 + needed_0)) + (let ((u-v_0 (unwrap v_0))) + (if (symbol? u-v_0) + (if (let ((or-part_0 (memq u-v_0 env_0))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (hash-ref + prim-knowns_0 + u-v_0 + #f))) + (if or-part_1 + or-part_1 + (hash-ref + needed_0 + u-v_0 + #f))))) + needed_0 + (let ((c3_0 + (hash-ref exports_0 u-v_0 #f))) + (if c3_0 + (hash-set + needed_0 + u-v_0 + (cons (export-ext-id c3_0) #f)) + (let ((c2_0 (hash-ref - prim-knowns_0 + imports_0 u-v_0 #f))) - (if or-part_1 - or-part_1 - (hash-ref + (if c2_0 + (hash-set needed_0 u-v_0 - #f))))) - needed_0 - (let ((c3_0 - (hash-ref exports_0 u-v_0 #f))) - (if c3_0 - (hash-set - needed_0 - u-v_0 - (cons (export-ext-id c3_0) #f)) - (let ((c2_0 - (hash-ref - imports_0 - u-v_0 - #f))) - (if c2_0 - (hash-set - needed_0 - u-v_0 - (let ((app_0 - (import-ext-id c2_0))) - (cons - app_0 - (import-group-index - (import-grp c2_0))))) - #f))))) - needed_0))))))))))))))) + (let ((app_0 + (import-ext-id c2_0))) + (cons + app_0 + (import-group-index + (import-grp c2_0))))) + #f))))) + needed_0)))))))))))))))) #f))) (define body-needed-imports (lambda (l_0 prim-knowns_0 imports_0 exports_0 env_0 needed_0) @@ -11890,10 +12183,15 @@ for-loop (lambda (needed_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) - (let ((e_0 (if (pair? (unwrap lst_0)) (wrap-car lst_0) lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) + (let ((e_0 + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-car lst_0) + lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) (wrap-cdr lst_0) null))) + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-cdr lst_0) + null))) (let ((e_1 e_0)) (let ((needed_2 (let ((needed_2 @@ -11924,13 +12222,16 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -11950,13 +12251,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values result_1)))) @@ -11994,13 +12296,17 @@ for-loop (lambda (idss_0 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -12154,9 +12460,9 @@ (error 'match "failed ~e" v_0)))) (define add-args (lambda (env_0 args_0) - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) env_0 - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((app_0 (cons (unwrap (wrap-car args_0)) env_0))) (add-args app_0 (wrap-cdr args_0))) (cons (unwrap args_0) env_0))))) @@ -12210,7 +12516,11 @@ mutated13_0 unsafe-mode?15_0) lam_0))) - (known-procedure/can-inline arity-mask_0 lam_1)) + (known-procedure/can-inline + arity-mask_0 + (if unsafe-mode?15_0 + (add-begin-unsafe lam_1) + lam_1))) (known-procedure arity-mask_0)))) (args (raise-binding-result-arity-error 2 args)))) (if (if (literal? rhs_0) @@ -12272,14 +12582,18 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -12295,8 +12609,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((e_0 @@ -12348,35 +12663,39 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12425,36 +12744,40 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12504,24 +12827,27 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12569,25 +12895,28 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12629,8 +12958,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -12647,8 +12977,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -12662,8 +12993,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((body_0 @@ -12675,8 +13007,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((body_0 @@ -12690,7 +13023,9 @@ (lambda (simple?21_0 id23_0 rhs24_0 body25_0) (begin (let ((or-part_0 - (if (let ((app_0 (unwrap id23_0))) (eq? app_0 (unwrap body25_0))) + (if (begin-unsafe + (let ((app_0 (unwrap id23_0))) + (eq? app_0 (unwrap body25_0)))) (lambda?.1 simple?21_0 rhs24_0) #f))) (if or-part_0 @@ -12718,34 +13053,39 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12791,35 +13131,39 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12866,24 +13210,27 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12930,24 +13277,27 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -12989,8 +13339,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -13007,8 +13358,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -13025,8 +13377,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -13043,8 +13396,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -13058,8 +13412,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((body_0 @@ -13071,8 +13426,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((body_0 @@ -13082,7 +13438,8 @@ (error 'match "failed ~e" v_0)))))))))))))))) (define extract-let-lambda (lambda (rec?_0 id_0 rhs_0 body_0) - (if (let ((app_0 (unwrap id_0))) (eq? app_0 (unwrap body_0))) + (if (begin-unsafe + (let ((app_0 (unwrap id_0))) (eq? app_0 (unwrap body_0)))) (if rec?_0 (extract-lambda* rhs_0) (extract-lambda rhs_0)) (extract-lambda* body_0)))) (define extract-lambda* @@ -13114,13 +13471,14 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -13150,13 +13508,16 @@ for-loop (lambda (argss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -13198,11 +13559,171 @@ (error 'match "failed ~e" v_0)))))) (define args-arity-mask (lambda (args_0) - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) 1 - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (arithmetic-shift (args-arity-mask (wrap-cdr args_0)) 1) -1)))) +(define add-begin-unsafe + (lambda (lam_0) + (reannotate + lam_0 + (let ((hd_0 + (let ((p_0 (unwrap lam_0))) + (if (pair? p_0) (unwrap (car p_0)) #f)))) + (if (if (eq? 'lambda hd_0) + (let ((a_0 (cdr (unwrap lam_0)))) + (let ((p_0 (unwrap a_0))) (if (pair? p_0) #t #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap lam_0)))) + (let ((p_0 (unwrap d_0))) + (let ((args_0 (let ((a_0 (car p_0))) a_0))) + (let ((body_0 (let ((d_1 (cdr p_0))) d_1))) + (let ((args_1 args_0)) (values args_1 body_0))))))) + (case-lambda + ((args_0 body_0) (list 'lambda args_0 (list* 'begin-unsafe body_0))) + (args (raise-binding-result-arity-error 2 args)))) + (if (if (eq? 'case-lambda hd_0) + (let ((a_0 (cdr (unwrap lam_0)))) + (if (wrap-list? a_0) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 lst_0) + (begin + (if (not (begin-unsafe (null? (unwrap lst_0)))) + (let ((v_0 + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-car lst_0) + lst_0))) + (let ((rest_0 + (if (begin-unsafe + (pair? (unwrap lst_0))) + (wrap-cdr lst_0) + null))) + (let ((v_1 v_0)) + (let ((result_1 + (let ((result_1 + (let ((p_0 (unwrap v_1))) + (if (pair? p_0) #t #f)))) + (values result_1)))) + (if (if (not + (let ((x_0 (list v_1))) + (not result_1))) + #t + #f) + (for-loop_0 result_1 rest_0) + result_1))))) + result_0)))))) + (for-loop_0 #t a_0))) + #f)) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap lam_0)))) + (call-with-values + (lambda () + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (argss_0 bodys_0 lst_0) + (begin + (if (not (begin-unsafe (null? (unwrap lst_0)))) + (let ((v_0 + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-car lst_0) + lst_0))) + (let ((rest_0 + (if (begin-unsafe + (pair? (unwrap lst_0))) + (wrap-cdr lst_0) + null))) + (let ((v_1 v_0)) + (call-with-values + (lambda () + (call-with-values + (lambda () + (call-with-values + (lambda () + (let ((p_0 (unwrap v_1))) + (let ((argss_1 + (let ((a_0 (car p_0))) + a_0))) + (let ((bodys_1 + (let ((d_1 (cdr p_0))) + d_1))) + (let ((argss_2 argss_1)) + (values + argss_2 + bodys_1)))))) + (case-lambda + ((argss61_0 bodys62_0) + (values + (cons argss61_0 argss_0) + (cons bodys62_0 bodys_0))) + (args + (raise-binding-result-arity-error + 2 + args))))) + (case-lambda + ((argss_1 bodys_1) + (values argss_1 bodys_1)) + (args + (raise-binding-result-arity-error + 2 + args))))) + (case-lambda + ((argss_1 bodys_1) + (for-loop_0 argss_1 bodys_1 rest_0)) + (args + (raise-binding-result-arity-error + 2 + args))))))) + (values argss_0 bodys_0))))))) + (for-loop_0 null null d_0)))) + (case-lambda + ((argss_0 bodys_0) + (let ((app_0 (reverse$1 argss_0))) + (values app_0 (reverse$1 bodys_0)))) + (args (raise-binding-result-arity-error 2 args)))))) + (case-lambda + ((argss_0 bodys_0) + (list* + 'case-lambda + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 lst_0 lst_1) + (begin + (if (if (pair? lst_0) (pair? lst_1) #f) + (let ((args_0 (unsafe-car lst_0))) + (let ((rest_0 (unsafe-cdr lst_0))) + (let ((body_0 (unsafe-car lst_1))) + (let ((rest_1 (unsafe-cdr lst_1))) + (let ((fold-var_1 + (cons + (list + args_0 + (list* 'begin-unsafe body_0)) + fold-var_0))) + (let ((fold-var_2 (values fold-var_1))) + (for-loop_0 + fold-var_2 + rest_0 + rest_1))))))) + fold-var_0)))))) + (for-loop_0 null argss_0 bodys_0)))))) + (args (raise-binding-result-arity-error 2 args)))) + lam_0)))))) (define find-definitions.1 (|#%name| find-definitions @@ -13227,15 +13748,17 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -13306,9 +13829,10 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap 'let-values))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap 'let-values))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) @@ -13367,13 +13891,14 @@ (let ((a_11 (cdr p_10))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_11)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_11))))) #f))) #f))) #f))) @@ -13390,25 +13915,27 @@ (let ((a_7 (cdr p_6))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_7)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_7))))) #f))) #f) #f))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f) #f))) (let ((a_4 (cdr p_3))) @@ -13424,13 +13951,14 @@ (if (let ((a_6 (car p_5))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_6))))) (let ((a_6 (cdr p_5))) @@ -13467,12 +13995,14 @@ #f))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f) #f))) #f) @@ -13480,8 +14010,9 @@ #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f) @@ -13835,12 +14366,15 @@ ?2_0 make-acc/muts_0) (let ((info_0 - (if (let ((app_0 (unwrap struct:_0))) - (eq? app_0 (unwrap struct:2_0))) - (if (let ((app_0 (unwrap make_0))) - (eq? app_0 (unwrap make2_0))) - (if (let ((app_0 (unwrap ?_0))) - (eq? app_0 (unwrap ?2_0))) + (if (begin-unsafe + (let ((app_0 (unwrap struct:_0))) + (eq? app_0 (unwrap struct:2_0)))) + (if (begin-unsafe + (let ((app_0 (unwrap make_0))) + (eq? app_0 (unwrap make2_0)))) + (if (begin-unsafe + (let ((app_0 (unwrap ?_0))) + (eq? app_0 (unwrap ?2_0)))) (make-struct-type-info rhs_0 prim-knowns6_0 @@ -13947,13 +14481,14 @@ (if (let ((a_4 (car p_4))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) (let ((a_4 (cdr p_4))) @@ -13965,26 +14500,28 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f))) @@ -14089,20 +14626,22 @@ immediate-count_0) (if (symbol? name_0) - (if (if (let ((app_0 - (unwrap - make_1))) - (eq? - app_0 - (unwrap - 'make-struct-field-accessor))) - (let ((app_0 - (unwrap - ref-or-set_0))) - (eq? - app_0 - (unwrap - -ref_0))) + (if (if (begin-unsafe + (let ((app_0 + (unwrap + make_1))) + (eq? + app_0 + (unwrap + 'make-struct-field-accessor)))) + (begin-unsafe + (let ((app_0 + (unwrap + ref-or-set_0))) + (eq? + app_0 + (unwrap + -ref_0)))) #f) (let ((app_0 (unwrap @@ -14117,20 +14656,22 @@ (+ parent-count_0 pos_0)))) - (if (if (let ((app_0 - (unwrap - make_1))) - (eq? - app_0 - (unwrap - 'make-struct-field-mutator))) - (let ((app_0 - (unwrap - ref-or-set_0))) - (eq? - app_0 - (unwrap - -set!_0))) + (if (if (begin-unsafe + (let ((app_0 + (unwrap + make_1))) + (eq? + app_0 + (unwrap + 'make-struct-field-mutator)))) + (begin-unsafe + (let ((app_0 + (unwrap + ref-or-set_0))) + (eq? + app_0 + (unwrap + -set!_0)))) #f) (let ((app_0 (unwrap @@ -14205,12 +14746,14 @@ (if (pair? p_5) (let ((a_6 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_6))))) #f))) #f))) #f))) @@ -14220,8 +14763,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f) #f))) @@ -14390,8 +14934,11 @@ (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) #f))) @@ -14402,18 +14949,22 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - 'make-struct-type-property))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'make-struct-type-property))) + (eq? + app_0 + (unwrap a_3))))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) #t #f))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f) @@ -14499,8 +15050,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -14531,17 +15083,21 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -14665,8 +15221,9 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 (unwrap 'let-values))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap 'let-values))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) @@ -14722,13 +15279,14 @@ (let ((a_11 (cdr p_10))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_11)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_11))))) #f))) #f))) #f))) @@ -14745,22 +15303,25 @@ (let ((a_7 (cdr p_6))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_7)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_7))))) #f))) #f) #f))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_5))))) #f) #f))) (let ((a_4 (cdr p_3))) @@ -14773,13 +15334,14 @@ (if (let ((a_6 (car p_5))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_6))))) (let ((a_6 (cdr p_5))) @@ -14815,11 +15377,12 @@ #f) #f))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_5))))) #f) #f))) #f) @@ -14827,8 +15390,9 @@ #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f) @@ -15143,12 +15707,15 @@ ?2_0 make-acc/muts_0) (let ((sti_0 - (if (let ((app_0 (unwrap struct:_0))) - (eq? app_0 (unwrap struct:2_0))) - (if (let ((app_0 (unwrap make_0))) - (eq? app_0 (unwrap make2_0))) - (if (let ((app_0 (unwrap ?1_0))) - (eq? app_0 (unwrap ?2_0))) + (if (begin-unsafe + (let ((app_0 (unwrap struct:_0))) + (eq? app_0 (unwrap struct:2_0)))) + (if (begin-unsafe + (let ((app_0 (unwrap make_0))) + (eq? app_0 (unwrap make2_0)))) + (if (begin-unsafe + (let ((app_0 (unwrap ?1_0))) + (eq? app_0 (unwrap ?2_0)))) (if (begin (letrec* ((for-loop_0 @@ -15214,13 +15781,14 @@ (if (let ((a_4 (car p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) (let ((a_4 (cdr p_3))) @@ -15232,26 +15800,28 @@ (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f))) @@ -15323,13 +15893,14 @@ ((ref-id_0 pos_0 field-name_0) - (if (let ((app_0 - (unwrap - ref-id_0))) - (eq? - app_0 - (unwrap - -ref_0))) + (if (begin-unsafe + (let ((app_0 + (unwrap + ref-id_0))) + (eq? + app_0 + (unwrap + -ref_0)))) (if (symbol? field-name_0) (exact-nonnegative-integer? @@ -15379,13 +15950,14 @@ (if (let ((a_4 (car p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) (let ((a_4 (cdr p_3))) @@ -15397,26 +15969,28 @@ (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f))) @@ -15488,13 +16062,14 @@ ((set-id_0 pos_0 field-name_0) - (if (let ((app_0 - (unwrap - set-id_0))) - (eq? - app_0 - (unwrap - -set!_0))) + (if (begin-unsafe + (let ((app_0 + (unwrap + set-id_0))) + (eq? + app_0 + (unwrap + -set!_0)))) (if (symbol? field-name_0) (exact-nonnegative-integer? @@ -15580,13 +16155,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -15764,8 +16340,11 @@ (let ((name-expr_0 (struct-type-info-constructor-name-expr sti_0))) - (if (let ((app_2 (unwrap #f))) - (eq? app_2 (unwrap name-expr_0))) + (if (begin-unsafe + (let ((app_2 (unwrap #f))) + (eq? + app_2 + (unwrap name-expr_0)))) (wrap-property-set ctr-expr_0 'inferred-name @@ -15773,21 +16352,24 @@ (if (let ((p_0 (unwrap name-expr_0))) (if (pair? p_0) (if (let ((a_0 (car p_0))) - (let ((app_2 - (unwrap 'quote))) - (eq? - app_2 - (unwrap a_0)))) + (begin-unsafe + (let ((app_2 + (unwrap + 'quote))) + (eq? + app_2 + (unwrap a_0))))) (let ((a_0 (cdr p_0))) (let ((p_1 (unwrap a_0))) (if (pair? p_1) (let ((a_1 (cdr p_1))) - (let ((app_2 - (unwrap - '()))) - (eq? - app_2 - (unwrap a_1)))) + (begin-unsafe + (let ((app_2 + (unwrap + '()))) + (eq? + app_2 + (unwrap a_1))))) #f))) #f) #f)) @@ -15829,18 +16411,20 @@ (sep_1 sep_0) (st_1 st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_3 - (symbol->string st_1))) - (string-append - pre_1 - app_3 - sep_1 - (symbol->string '||) - post_1))))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_3 + (symbol->string + st_1))) + (string-append + pre_1 + app_3 + sep_1 + (symbol->string '||) + post_1)))))))))))))) (list* app_2 app_3 @@ -15878,19 +16462,20 @@ (sep_1 sep_0) (st_1 st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_4 - (symbol->string - st_1))) - (string-append - pre_1 - app_4 - sep_1 - (symbol->string '||) - post_1)))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_4 + (symbol->string + st_1))) + (string-append + pre_1 + app_4 + sep_1 + (symbol->string '||) + post_1))))))))))))) null))) (qq-append app_4 @@ -15976,13 +16561,14 @@ (if (let ((a_4 (car p_3))) - (let ((app_5 - (unwrap - 'quote))) - (eq? - app_5 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_5 + (unwrap + 'quote))) + (eq? + app_5 + (unwrap + a_4))))) (let ((a_4 (cdr p_3))) @@ -15994,26 +16580,28 @@ (let ((a_5 (cdr p_4))) - (let ((app_5 - (unwrap - '()))) - (eq? - app_5 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_5 + (unwrap + '()))) + (eq? + app_5 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_2))) - (let ((app_5 - (unwrap - '()))) - (eq? - app_5 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_5 + (unwrap + '()))) + (eq? + app_5 + (unwrap + a_3))))) #f) #f))) #f))) @@ -16088,20 +16676,21 @@ st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_5 - (symbol->string - st_1))) - (string-append - pre_1 - app_5 - sep_1 - (symbol->string - field-name_0) - post_1))))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_5 + (symbol->string + st_1))) + (string-append + pre_1 + app_5 + sep_1 + (symbol->string + field-name_0) + post_1)))))))))))))) (if can-impersonate?_0 (list 'begin @@ -16153,20 +16742,21 @@ st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_5 - (symbol->string - st_1))) - (string-append - pre_1 - app_5 - sep_1 - (symbol->string - field-name_0) - post_1)))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_5 + (symbol->string + st_1))) + (string-append + pre_1 + app_5 + sep_1 + (symbol->string + field-name_0) + post_1))))))))))))) raw-def_0))) (args (raise-binding-result-arity-error @@ -16211,13 +16801,14 @@ (if (let ((a_4 (car p_3))) - (let ((app_5 - (unwrap - 'quote))) - (eq? - app_5 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_5 + (unwrap + 'quote))) + (eq? + app_5 + (unwrap + a_4))))) (let ((a_4 (cdr p_3))) @@ -16229,26 +16820,28 @@ (let ((a_5 (cdr p_4))) - (let ((app_5 - (unwrap - '()))) - (eq? - app_5 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_5 + (unwrap + '()))) + (eq? + app_5 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_2))) - (let ((app_5 - (unwrap - '()))) - (eq? - app_5 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_5 + (unwrap + '()))) + (eq? + app_5 + (unwrap + a_3))))) #f) #f))) #f))) @@ -16323,20 +16916,21 @@ st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_5 - (symbol->string - st_1))) - (string-append - pre_1 - app_5 - sep_1 - (symbol->string - field-name_0) - post_1))))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_5 + (symbol->string + st_1))) + (string-append + pre_1 + app_5 + sep_1 + (symbol->string + field-name_0) + post_1)))))))))))))) (let ((abs-pos_0 (+ pos_0 @@ -16402,20 +16996,21 @@ st_0) (pre_1 pre_0)) - (wrap-property-set - proc-expr_0 - 'inferred-name - (string->symbol - (let ((app_5 - (symbol->string - st_1))) - (string-append - pre_1 - app_5 - sep_1 - (symbol->string - field-name_0) - post_1)))))))))))) + (begin-unsafe + (wrap-property-set + proc-expr_0 + 'inferred-name + (string->symbol + (let ((app_5 + (symbol->string + st_1))) + (string-append + pre_1 + app_5 + sep_1 + (symbol->string + field-name_0) + post_1))))))))))))) raw-def_0)))) (args (raise-binding-result-arity-error @@ -16521,13 +17116,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_7 - (unwrap - '()))) - (eq? - app_7 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_7 + (unwrap + '()))) + (eq? + app_7 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -16582,13 +17178,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_7 - (unwrap - '()))) - (eq? - app_7 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_7 + (unwrap + '()))) + (eq? + app_7 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -16636,8 +17233,9 @@ loop (lambda (new-seq_0) (begin - (if (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap new-seq_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap new-seq_0)))) null (if (let ((p_0 (unwrap new-seq_0))) (if (pair? p_0) @@ -16645,8 +17243,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'begin))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'begin))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (wrap-list? a_1)) #f) #f))) @@ -16672,8 +17271,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'define))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'define))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -16681,11 +17281,12 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f) @@ -16725,8 +17326,9 @@ loop (lambda (bodys_0 new-knowns_0 schemify11_0 new-seq_0) (begin - (if (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap new-seq_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap new-seq_0)))) (let ((exprs_0 (schemify-body$1 schemify11_0 new-knowns_0 bodys_0))) (if (if (pair? exprs_0) (null? (cdr exprs_0)) #f) @@ -16738,8 +17340,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'begin))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'begin))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (wrap-list? a_1)) #f) #f))) @@ -16770,8 +17373,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'define))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'define))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -16779,11 +17383,12 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f) @@ -16848,13 +17453,17 @@ (let ((p_4 (unwrap a_3))) (if (pair? p_4) (let ((a_4 (cdr p_4))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_1))) (wrap-list? a_1)) @@ -16993,11 +17602,12 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f))) #f) @@ -17073,7 +17683,7 @@ (lambda (idss_0 rhss_0) (if (pair? idss_0) (if (null? (cdr idss_0)) - (if (let ((v_0 (car rhss_0))) (pair? (unwrap v_0))) + (if (let ((v_0 (car rhss_0))) (begin-unsafe (pair? (unwrap v_0)))) (if (eq? 'values (wrap-car (car rhss_0))) (if (let ((app_0 (length (wrap-cdr (car rhss_0))))) (= app_0 (length (car idss_0)))) @@ -17143,7 +17753,7 @@ (if (symbol? ids_0) (needs-letrec-convert-mutated-state? (hash-ref mutated_0 ids_0 #f)) - (if (syntax? ids_0) + (if (begin-unsafe (syntax? ids_0)) (loop_0 mutated_0 (unwrap ids_0)) (if (pair? ids_0) (let ((or-part_0 (loop_0 mutated_0 (car ids_0)))) @@ -17169,13 +17779,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -17197,13 +17812,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values result_1)))) @@ -17241,13 +17857,17 @@ for-loop (lambda (ids_1 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -17422,8 +18042,11 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -17526,13 +18149,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f) #f))) @@ -17704,8 +18328,11 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -17745,8 +18372,9 @@ mutated_0 id_1 #f))) - (if (procedure? - state_0) + (if (begin-unsafe + (procedure? + state_0)) (begin (hash-remove! mutated_0 @@ -17932,13 +18560,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -17982,13 +18615,18 @@ for-loop (lambda (formalss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -18119,8 +18757,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (void) @@ -18138,19 +18777,22 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -18173,13 +18815,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -18220,18 +18863,21 @@ (lambda (idss_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -18379,19 +19025,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -18414,13 +19064,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -18462,19 +19113,22 @@ (lambda (idss_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -18606,20 +19260,23 @@ (lambda (lst_1) (begin (if (not - (null? - (unwrap - lst_1))) + (begin-unsafe + (null? + (unwrap + lst_1)))) (let ((id_0 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-car lst_1) lst_1))) (let ((rest_1 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-cdr lst_1) null))) @@ -18700,20 +19357,23 @@ (lambda (lst_2) (begin (if (not - (null? - (unwrap - lst_2))) + (begin-unsafe + (null? + (unwrap + lst_2)))) (let ((id_0 - (if (pair? - (unwrap - lst_2)) + (if (begin-unsafe + (pair? + (unwrap + lst_2))) (wrap-car lst_2) lst_2))) (let ((rest_2 - (if (pair? - (unwrap - lst_2)) + (if (begin-unsafe + (pair? + (unwrap + lst_2))) (wrap-cdr lst_2) null))) @@ -18735,8 +19395,9 @@ state_0))) (if or-part_0 or-part_0 - (procedure? - state_0))) + (begin-unsafe + (procedure? + state_0)))) (hash-set! mutated_0 u-id_0 @@ -18746,8 +19407,9 @@ mutated_0 state_0 u-id_0)) - (if (procedure? - state_0) + (if (begin-unsafe + (procedure? + state_0)) (|#%app| state_0) (void))) @@ -18798,11 +19460,12 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -18877,11 +19540,12 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -18965,287 +19629,313 @@ simples_0 exps_0 ids_0)) - (if (if (eq? 'begin0 hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (wrap-list? a_1)) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((exp_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((exps_0 - (let ((d_1 (cdr p_0))) - (unwrap-list d_1)))) - (let ((exp_1 exp_0)) - (values exp_1 exps_0))))))) - (case-lambda - ((exp_0 exps_0) - (begin - (find-mutated!_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - simples_0 - exp_0 - ids_0) - (find-mutated!*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - simples_0 - exps_0 - #f))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'set! hd_0) + (let ((exps_0 + (let ((d_0 (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (find-mutated!*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + exps_0 + ids_0)) + (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) + (wrap-list? a_1)) #f))) #f) (call-with-values (lambda () (let ((d_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap d_0))) - (let ((id_0 + (let ((exp_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 + (let ((exps_0 (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values id_1 rhs_0))))))) + (unwrap-list d_1)))) + (let ((exp_1 exp_0)) + (values exp_1 exps_0))))))) (case-lambda - ((id_0 rhs_0) + ((exp_0 exps_0) (begin - (let ((id_1 (unwrap id_0))) - (let ((old-state_0 - (hash-ref - mutated_0 - id_1 - #f))) - (begin - (hash-set! - mutated_0 - id_1 - (state->set!ed-state - old-state_0)) - (if (procedure? old-state_0) - (|#%app| old-state_0) - (void))))) (find-mutated!_0 imports_0 knowns_0 mutated_0 prim-knowns_0 simples_0 - rhs_0 + exp_0 + ids_0) + (find-mutated!*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + exps_0 #f))) (args (raise-binding-result-arity-error 2 args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) - #t + (if (if (eq? 'set! hd_0) + (let ((a_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) + #f))) + #f))) #f) - (void) - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) - (let ((a_0 (cdr p_0))) - (wrap-list? a_0)) - #f)) - (call-with-values - (lambda () - (let ((p_0 (unwrap v_0))) - (let ((rator_0 + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 (let ((a_0 (car p_0))) a_0))) - (let ((exps_0 - (let ((d_0 (cdr p_0))) - (unwrap-list d_0)))) - (let ((rator_1 rator_0)) - (values - rator_1 - exps_0)))))) - (case-lambda - ((rator_0 exps_0) - (if (if ids_0 - (let ((rator_1 - (unwrap rator_0))) - (if (symbol? rator_1) - (if (let ((v_1 - (call-with-values - (lambda () - (find-known+import - rator_1 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 - im_0) - k_0) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (if (known-constructor? - v_1) - (let ((app_0 - (known-procedure-arity-mask - v_1))) - (bitwise-bit-set? - app_0 - (length - exps_0))) - #f)) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((exp_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((result_1 - (let ((result_1 - (simple?.1 - #t - 1 - exp_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - exp_0))) - (not - result_1))) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1)))) - result_0)))))) - (for-loop_0 - #t - exps_0))) - #f) - #f)) - #f) - (delay!_0 - mutated_0 - ids_0 - (lambda () - (find-mutated!*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - simples_0 - exps_0 - #f))) - (begin - (find-mutated!_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - simples_0 - rator_0 - #f) - (find-mutated!*_0 - imports_0 - knowns_0 - mutated_0 - prim-knowns_0 - simples_0 - exps_0 - #f)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (let ((v_1 (unwrap v_0))) - (if (symbol? v_1) - (let ((state_0 - (hash-ref - mutated_0 - v_1 - #f))) - (if (eq? state_0 'not-ready) - (hash-set! - mutated_0 - v_1 - 'too-early) - (if (procedure? state_0) - (if ids_0 - (delay!_0 + (let ((rhs_0 + (let ((d_1 (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values id_1 rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (begin + (let ((id_1 (unwrap id_0))) + (let ((old-state_0 + (hash-ref mutated_0 - ids_0 - (lambda () - (begin - (if (eq? - (hash-ref - mutated_0 - v_1 - #f) - state_0) - (hash-remove! - mutated_0 - v_1) - (void)) - (|#%app| - state_0)))) - (begin - (hash-remove! + id_1 + #f))) + (begin + (hash-set! + mutated_0 + id_1 + (state->set!ed-state + old-state_0)) + (if (begin-unsafe + (procedure? + old-state_0)) + (|#%app| old-state_0) + (void))))) + (find-mutated!_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + rhs_0 + #f))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + '|#%variable-reference| + hd_0) + #t + #f) + (void) + (if (let ((p_0 (unwrap v_0))) + (if (pair? p_0) + (let ((a_0 (cdr p_0))) + (wrap-list? a_0)) + #f)) + (call-with-values + (lambda () + (let ((p_0 (unwrap v_0))) + (let ((rator_0 + (let ((a_0 (car p_0))) + a_0))) + (let ((exps_0 + (let ((d_0 + (cdr p_0))) + (unwrap-list + d_0)))) + (let ((rator_1 rator_0)) + (values + rator_1 + exps_0)))))) + (case-lambda + ((rator_0 exps_0) + (if (if ids_0 + (let ((rator_1 + (unwrap rator_0))) + (if (symbol? rator_1) + (if (let ((v_1 + (begin-unsafe + (call-with-values + (lambda () + (find-known+import + rator_1 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 + im_0) + k_0) + (args + (raise-binding-result-arity-error + 2 + args))))))) + (if (known-constructor? + v_1) + (let ((app_0 + (known-procedure-arity-mask + v_1))) + (bitwise-bit-set? + app_0 + (length + exps_0))) + #f)) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((exp_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((result_1 + (let ((result_1 + (simple?.1 + #t + 1 + exp_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + exp_0))) + (not + result_1))) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1)))) + result_0)))))) + (for-loop_0 + #t + exps_0))) + #f) + #f)) + #f) + (delay!_0 + mutated_0 + ids_0 + (lambda () + (find-mutated!*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + exps_0 + #f))) + (begin + (find-mutated!_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + rator_0 + #f) + (find-mutated!*_0 + imports_0 + knowns_0 + mutated_0 + prim-knowns_0 + simples_0 + exps_0 + #f)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((v_1 (unwrap v_0))) + (if (symbol? v_1) + (let ((state_0 + (hash-ref + mutated_0 + v_1 + #f))) + (if (begin-unsafe + (eq? + state_0 + 'not-ready)) + (hash-set! + mutated_0 + v_1 + 'too-early) + (if (begin-unsafe + (procedure? state_0)) + (if ids_0 + (delay!_0 mutated_0 - v_1) - (|#%app| state_0))) - (void)))) - (void))))))))))))))))))))) + ids_0 + (lambda () + (begin + (if (eq? + (hash-ref + mutated_0 + v_1 + #f) + state_0) + (hash-remove! + mutated_0 + v_1) + (void)) + (|#%app| + state_0)))) + (begin + (hash-remove! + mutated_0 + v_1) + (|#%app| state_0))) + (void)))) + (void)))))))))))))))))))))) (lambda (v_0 ids_0 prim-knowns_0 knowns_0 imports_0 mutated_0 simples_0) (find-mutated!_0 imports_0 @@ -19257,7 +19947,7 @@ ids_0)))) (define update-mutated-state! (lambda (l_0 mut-l_0 mutated_0) - (if (null? (unwrap mut-l_0)) + (if (begin-unsafe (null? (unwrap mut-l_0))) '() (if (eq? l_0 mut-l_0) (let ((new-mut-l_0 @@ -19267,7 +19957,7 @@ loop (lambda (mut-l_1) (begin - (if (null? (unwrap mut-l_1)) + (if (begin-unsafe (null? (unwrap mut-l_1))) '() (let ((v_0 (wrap-car mut-l_1))) (let ((hd_0 @@ -19283,8 +19973,11 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -19472,13 +20165,18 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((id_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((id_1 id_0)) @@ -19636,16 +20334,19 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 (unwrap 'values))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap 'values))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f))) @@ -20158,8 +20859,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'begin))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'begin))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -20168,12 +20870,14 @@ (if (pair? p_3) (if (let ((a_3 (car p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_3))) (let ((p_4 (unwrap @@ -20182,13 +20886,14 @@ (let ((a_4 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f) #f))) @@ -20200,8 +20905,9 @@ #f) #f))) (let ((a_0 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_0))))) #f) #f)) (call-with-values @@ -20280,8 +20986,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((q_0 @@ -20336,14 +21043,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -20390,14 +21102,19 @@ for-loop (lambda (formalss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -20521,8 +21238,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -20565,20 +21283,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -20602,13 +21323,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -20652,19 +21374,22 @@ lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -20835,20 +21560,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -20872,13 +21600,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -20922,19 +21651,23 @@ lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -21104,11 +21837,13 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -21198,13 +21933,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -21322,7 +22058,7 @@ lifted-eq-constants_0 lifted-equal-constants_0 exps_0))) - (if (if (eq? 'begin0 hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) (wrap-list? a_0)) #f) @@ -21330,7 +22066,7 @@ (let ((d_0 (cdr (unwrap v_0)))) (unwrap-list d_0)))) (list* - 'begin0 + 'begin-unsafe (convert-body_0 add-lifted_0 datum-intern?_0 @@ -21338,143 +22074,174 @@ lifted-eq-constants_0 lifted-equal-constants_0 exps_0))) - (if (if (eq? 'set! hd_0) + (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (list - 'set! - id_0 - (convert_0 - add-lifted_0 - datum-intern?_0 - for-cify?_0 - lifted-eq-constants_0 - lifted-equal-constants_0 - rhs_0))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) + (let ((exps_0 + (let ((d_0 + (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (list* + 'begin0 + (convert-body_0 + add-lifted_0 + datum-intern?_0 + for-cify?_0 + lifted-eq-constants_0 + lifted-equal-constants_0 + exps_0))) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) #f) - v_0 + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (list + 'set! + id_0 + (convert_0 + add-lifted_0 + datum-intern?_0 + for-cify?_0 + lifted-eq-constants_0 + lifted-equal-constants_0 + rhs_0))) + (args + (raise-binding-result-arity-error + 2 + args)))) (if (if (eq? '|#%variable-reference| hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_0))))) #f) v_0 - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) - (let ((a_0 (cdr p_0))) - (wrap-list? a_0)) - #f)) - (call-with-values - (lambda () - (let ((p_0 (unwrap v_0))) - (let ((rator_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((exps_0 - (let ((d_0 - (cdr + (if (if (eq? + '|#%variable-reference| + hd_0) + (let ((a_0 + (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 + (cdr p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + v_0 + (if (let ((p_0 (unwrap v_0))) + (if (pair? p_0) + (let ((a_0 (cdr p_0))) + (wrap-list? a_0)) + #f)) + (call-with-values + (lambda () + (let ((p_0 (unwrap v_0))) + (let ((rator_0 + (let ((a_0 + (car p_0))) - (unwrap-list - d_0)))) - (let ((rator_1 - rator_0)) - (values - rator_1 - exps_0)))))) - (case-lambda - ((rator_0 exps_0) - (let ((app_0 - (convert_0 - add-lifted_0 - datum-intern?_0 - for-cify?_0 - lifted-eq-constants_0 - lifted-equal-constants_0 - rator_0))) - (list* - app_0 - (convert-body_0 - add-lifted_0 - datum-intern?_0 - for-cify?_0 - lifted-eq-constants_0 - lifted-equal-constants_0 - exps_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (not (symbol? v_0)) - (lift-quoted? - v_0 - for-cify?_0 - datum-intern?_0) - #f) - (convert_0 - add-lifted_0 - datum-intern?_0 - for-cify?_0 - lifted-eq-constants_0 - lifted-equal-constants_0 - (list 'quote v_0)) - v_0)))))))))))))))))))))) + a_0))) + (let ((exps_0 + (let ((d_0 + (cdr + p_0))) + (unwrap-list + d_0)))) + (let ((rator_1 + rator_0)) + (values + rator_1 + exps_0)))))) + (case-lambda + ((rator_0 exps_0) + (let ((app_0 + (convert_0 + add-lifted_0 + datum-intern?_0 + for-cify?_0 + lifted-eq-constants_0 + lifted-equal-constants_0 + rator_0))) + (list* + app_0 + (convert-body_0 + add-lifted_0 + datum-intern?_0 + for-cify?_0 + lifted-eq-constants_0 + lifted-equal-constants_0 + exps_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (not (symbol? v_0)) + (lift-quoted? + v_0 + for-cify?_0 + datum-intern?_0) + #f) + (convert_0 + add-lifted_0 + datum-intern?_0 + for-cify?_0 + lifted-eq-constants_0 + lifted-equal-constants_0 + (list 'quote v_0)) + v_0))))))))))))))))))))))) (lambda (bodys_0 for-cify?_0 datum-intern?_0) (let ((lifted-eq-constants_0 (make-hasheq))) (let ((lifted-equal-constants_0 (make-hash))) @@ -21540,8 +22307,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((q_0 @@ -21579,14 +22347,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -21633,14 +22406,19 @@ for-loop (lambda (formalss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -21725,8 +22503,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -21762,19 +22541,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -21797,13 +22580,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -21845,19 +22629,22 @@ (lambda (idss_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -21979,20 +22766,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -22016,13 +22806,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -22066,19 +22857,23 @@ lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -22198,11 +22993,12 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -22282,13 +23078,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -22369,7 +23166,7 @@ datum-intern?_0 for-cify?_0 exps_0)) - (if (if (eq? 'begin0 hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) (wrap-list? a_0)) #f) @@ -22380,117 +23177,142 @@ datum-intern?_0 for-cify?_0 exps_0)) - (if (if (eq? 'set! hd_0) + (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) - #f))) + (wrap-list? a_0)) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values id_1 rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (convert-any?_0 - datum-intern?_0 - for-cify?_0 - rhs_0)) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) + (let ((exps_0 + (let ((d_0 (cdr (unwrap v_0)))) + (unwrap-list d_0)))) + (convert-any?_0 + datum-intern?_0 + for-cify?_0 + exps_0)) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) #f) - #f + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (convert-any?_0 + datum-intern?_0 + for-cify?_0 + rhs_0)) + (args + (raise-binding-result-arity-error + 2 + args)))) (if (if (eq? '|#%variable-reference| hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_0))))) #f) #f - (if (wrap-list? v_0) - (let ((exps_0 - (unwrap-list v_0))) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 lst_0) - (begin - (if (pair? lst_0) - (let ((exp_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr + (if (if (eq? + '|#%variable-reference| + hd_0) + (let ((a_0 + (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_1))))) + #f))) + #f) + #f + (if (wrap-list? v_0) + (let ((exps_0 + (unwrap-list v_0))) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (pair? lst_0) + (let ((exp_0 + (unsafe-car lst_0))) - (let ((result_1 - (let ((result_1 - (convert-any?_0 - datum-intern?_0 - for-cify?_0 - exp_0))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - exp_0))) - result_1)) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1)))) - result_0)))))) - (for-loop_0 #f exps_0)))) - (if (not (symbol? v_0)) - (lift-quoted? - v_0 - for-cify?_0 - datum-intern?_0) - #f))))))))))))))))))))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((result_1 + (let ((result_1 + (convert-any?_0 + datum-intern?_0 + for-cify?_0 + exp_0))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + exp_0))) + result_1)) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1)))) + result_0)))))) + (for-loop_0 #f exps_0)))) + (if (not (symbol? v_0)) + (lift-quoted? + v_0 + for-cify?_0 + datum-intern?_0) + #f)))))))))))))))))))))) (lambda (v_0 for-cify?_0 datum-intern?_0) (convert-any?_0 datum-intern?_0 for-cify?_0 v_0)))) (define make-construct @@ -22908,7 +23730,8 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((val_0 @@ -22943,7 +23766,8 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((val_0 @@ -23030,20 +23854,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -23067,13 +23894,14 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f)))) (values @@ -23101,20 +23929,22 @@ (if (pair? p_4) (let ((a_4 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f) #f))) #f))) (let ((a_1 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f) #f))) #f)) @@ -23148,20 +23978,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -23386,21 +24219,24 @@ (let ((a_4 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) (let ((a_1 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f) #f))) #f)) @@ -23445,8 +24281,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (let ((a_1 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f)) (let ((rhs_0 @@ -23479,7 +24316,7 @@ (lambda (ids_0 body_0) (if (pair? ids_0) (if (null? (cdr ids_0)) - (if (pair? (unwrap body_0)) + (if (begin-unsafe (pair? (unwrap body_0))) (let ((app_0 (unwrap (car ids_0)))) (eq? app_0 (unwrap (wrap-car body_0)))) #f) @@ -23599,17 +24436,20 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (if (let ((a_3 (car p_3))) - (let ((app_0 (unwrap 'quote))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap 'quote))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_3))) (let ((p_4 (unwrap a_3))) (if (pair? p_4) (if (let ((a_4 (car p_4))) - (let ((app_0 (unwrap 'abs))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap 'abs))) + (eq? app_0 (unwrap a_4))))) (let ((a_4 (cdr p_4))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_4))))) #f) #f))) #f) @@ -23618,8 +24458,9 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f) #f))) @@ -23657,8 +24498,9 @@ (let ((p_2 (unwrap a_1))) (if (pair? p_2) (let ((a_2 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f)) @@ -23691,7 +24533,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (let ((a_1 (cdr p_1))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f)) (call-with-values @@ -23724,17 +24568,20 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (if (let ((a_3 (car p_3))) - (let ((app_0 (unwrap 'quote))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap 'quote))) + (eq? app_0 (unwrap a_3))))) (let ((a_3 (cdr p_3))) (let ((p_4 (unwrap a_3))) (if (pair? p_4) (if (let ((a_4 (car p_4))) - (let ((app_0 (unwrap 'abs))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap 'abs))) + (eq? app_0 (unwrap a_4))))) (let ((a_4 (cdr p_4))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_4))))) #f) #f))) #f) @@ -23746,8 +24593,9 @@ (let ((p_4 (unwrap a_3))) (if (pair? p_4) (let ((a_4 (cdr p_4))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_4)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_4))))) #f))) #f))) #f) @@ -23801,8 +24649,9 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_3)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_3))))) #f))) #f))) #f))) @@ -23851,8 +24700,9 @@ (let ((p_2 (unwrap a_1))) (if (pair? p_2) (let ((a_2 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f)) @@ -24006,8 +24856,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((v_2 @@ -24056,7 +24907,8 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap a_1))))) #f))) #f) v_0 @@ -24929,13 +25781,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -25351,8 +26204,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -25443,8 +26297,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -25650,8 +26505,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((or-part_0 (pair? (cdr l_0)))) @@ -25694,11 +26550,12 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f))) #f) @@ -27003,16 +27860,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -27060,16 +27921,20 @@ (lambda (formalss_0 bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -27251,13 +28116,14 @@ (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - 'let-values))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'let-values))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_2))) @@ -27325,13 +28191,14 @@ (let ((a_11 (cdr p_10))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_11)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_11))))) #f))) #f))) #f))) @@ -27348,26 +28215,28 @@ (let ((a_7 (cdr p_6))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_7)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_7))))) #f))) #f) #f))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f) #f))) (let ((a_4 @@ -27389,13 +28258,14 @@ (if (let ((a_6 (car p_5))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_6))))) (let ((a_6 (cdr p_5))) @@ -27433,13 +28303,14 @@ (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f) #f))) #f) @@ -27447,12 +28318,13 @@ #f) #f))) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) #f) #f))) #f) @@ -27920,13 +28792,14 @@ (if (pair? p_2) (let ((a_2 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f)) @@ -27990,21 +28863,23 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f) #f))) @@ -28062,11 +28937,12 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f))) #f) @@ -28118,8 +28994,11 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) v_0 @@ -28128,23 +29007,26 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_0))) (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f) #f))) @@ -28180,12 +29062,13 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (if (let ((a_1 (car p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_0))) (wrap-list? a_1)) #f) @@ -28234,20 +29117,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -28271,13 +29157,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) (let ((a_2 (cdr @@ -28290,13 +29177,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f)))) @@ -28343,20 +29231,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -28768,13 +29659,14 @@ (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_2))) @@ -28794,13 +29686,14 @@ (if (let ((a_5 (car p_4))) - (let ((app_0 - (unwrap - 'begin))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'begin))) + (eq? + app_0 + (unwrap + a_5))))) (let ((a_5 (cdr p_4))) @@ -28820,13 +29713,14 @@ (if (let ((a_7 (car p_6))) - (let ((app_0 - (unwrap - '...))) - (eq? - app_0 - (unwrap - a_7)))) + (begin-unsafe + (let ((app_0 + (unwrap + '...))) + (eq? + app_0 + (unwrap + a_7))))) (let ((a_7 (cdr p_6))) @@ -28846,35 +29740,38 @@ (if (let ((a_9 (car p_8))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_9)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_9))))) (let ((a_9 (cdr p_8))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_9)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_9))))) #f) #f))) (let ((a_8 (cdr p_7))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_8)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_8))))) #f) #f))) #f) @@ -28885,13 +29782,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f) #f))) #f) @@ -28899,13 +29797,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f) #f))) (let ((a_1 @@ -29024,20 +29923,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -29061,13 +29963,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -29117,20 +30020,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -29380,13 +30286,14 @@ (if (let ((a_1 (car p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) (let ((a_1 (cdr p_0))) @@ -29455,13 +30362,14 @@ (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) (let ((a_3 (cdr p_2))) @@ -29481,35 +30389,38 @@ (if (let ((a_5 (car p_4))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_5))))) (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f) #f))) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f) #f))) #f) @@ -29517,13 +30428,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f) #f))) (let ((a_1 @@ -29602,13 +30514,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) (let ((a_3 (cdr @@ -29629,13 +30542,14 @@ (if (let ((a_5 (car p_4))) - (let ((app_0 - (unwrap - 'values))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'values))) + (eq? + app_0 + (unwrap + a_5))))) (let ((a_5 (cdr p_4))) @@ -29647,26 +30561,28 @@ (let ((a_6 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_6)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_6))))) #f))) #f) #f))) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f) #f))) #f) @@ -29674,13 +30590,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f) #f))) (let ((a_1 @@ -29820,20 +30737,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -29857,13 +30777,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) (let ((a_2 (cdr @@ -29876,13 +30797,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f)))) @@ -29939,20 +30861,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -30342,20 +31267,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -30379,13 +31307,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -30441,20 +31370,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -30840,13 +31772,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -31007,13 +31940,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -31212,13 +32146,14 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) (let ((exp_0 @@ -31289,58 +32224,43 @@ exps_0 wcm-state_0))) (if (if (eq? - 'begin0 + 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 - (unwrap - a_0))) - (if (pair? - p_0) - (let ((a_1 - (cdr - p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) + (wrap-list? + a_0)) #f) - (let ((exp_0 + (let ((exps_0 (let ((d_0 (cdr (unwrap v_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - exp_0 - wcm-state_0)) + (unwrap-list + d_0)))) + (list* + 'begin-unsafe + (schemify-body_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + exps_0 + wcm-state_0))) (if (if (eq? 'begin0 hd_0) @@ -31356,86 +32276,47 @@ (let ((a_1 (cdr p_0))) - (wrap-list? - a_1)) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 - (cdr - (unwrap - v_0)))) - (let ((p_0 - (unwrap - d_0))) - (let ((exp_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((exps_0 - (let ((d_1 - (cdr - p_0))) - (unwrap-list - d_1)))) - (let ((exp_1 - exp_0)) - (values - exp_1 - exps_0))))))) - (case-lambda - ((exp_0 - exps_0) - (let ((app_0 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - exp_0 - 'fresh))) - (list* - 'begin0 - app_0 - (schemify-body_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - exps_0 - 'fresh)))) - (args - (raise-binding-result-arity-error - 2 - args)))) + (let ((exp_0 + (let ((d_0 + (cdr + (unwrap + v_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + exp_0 + wcm-state_0)) (if (if (eq? - 'set! + 'begin0 hd_0) (let ((a_0 (cdr @@ -31449,22 +32330,8 @@ (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) + (wrap-list? + a_1)) #f))) #f) (call-with-values @@ -31476,116 +32343,73 @@ (let ((p_0 (unwrap d_0))) - (let ((id_0 + (let ((exp_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 + (let ((exps_0 (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 - id_0)) + (unwrap-list + d_1)))) + (let ((exp_1 + exp_0)) (values - id_1 - rhs_0))))))) + exp_1 + exps_0))))))) (case-lambda - ((id_0 - rhs_0) - (let ((int-id_0 - (unwrap - id_0))) - (let ((ex_0 - (hash-ref - exports_0 - int-id_0 - #f))) - (let ((new-rhs_0 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - rhs_0 - 'fresh))) - (let ((state_0 - (hash-ref - mutated_0 - int-id_0 - #f))) - (if ex_0 - (let ((set-id_0 - (if (if allow-set!-undefined?_0 - allow-set!-undefined?_0 - (not - (too-early-mutated-state? - state_0))) - 'variable-set! - 'variable-set!/check-undefined))) - (list - set-id_0 - (export-id - ex_0) - new-rhs_0)) - (if (if (too-early-mutated-state? - state_0) - (not - for-cify?_0) - #f) - (let ((tmp_0 - (deterministic-gensym - "set"))) - (list - 'let - (list - (list - tmp_0 - new-rhs_0)) - (list - 'check-not-unsafe-undefined/assign - id_0 - (list - 'quote - (too-early-mutated-state-name - state_0 - int-id_0))) - (list - 'set! - id_0 - tmp_0))) - (if (not - state_0) - (list - 'void - new-rhs_0) - (list - 'set! - id_0 - new-rhs_0))))))))) + ((exp_0 + exps_0) + (let ((app_0 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + exp_0 + 'fresh))) + (list* + 'begin0 + app_0 + (schemify-body_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + exps_0 + 'fresh)))) (args (raise-binding-result-arity-error 2 args)))) (if (if (eq? - 'variable-reference-constant? + 'set! hd_0) (let ((a_0 (cdr @@ -31596,121 +32420,147 @@ a_0))) (if (pair? p_0) - (if (let ((a_1 - (car - p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (if (let ((a_2 - (car - p_1))) - (let ((app_0 - (unwrap - '|#%variable-reference|))) - (eq? - app_0 - (unwrap - a_2)))) - (let ((a_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f) - #f))) - (let ((a_1 - (cdr - p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f) + (let ((a_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) #f))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap - v_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - (let ((d_1 - (cdr - (unwrap + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap + v_0)))) + (let ((p_0 + (unwrap + d_0))) + (let ((id_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) a_0)))) - (let ((a_1 - (car - (unwrap - d_1)))) - a_1)))))) - (let ((u-id_0 - (unwrap - id_0))) - (if (hash-ref - mutated_0 - u-id_0 - #f) - #f - (let ((im_0 - (hash-ref - imports_0 - u-id_0 - #f))) - (if (not - im_0) - #t - (if (known-constant? - (import-lookup - im_0)) - #t - (list - 'variable-reference-constant? - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - (list - '|#%variable-reference| - id_0) - 'fresh)))))))) + (let ((id_1 + id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 + rhs_0) + (let ((int-id_0 + (unwrap + id_0))) + (let ((ex_0 + (hash-ref + exports_0 + int-id_0 + #f))) + (let ((new-rhs_0 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + rhs_0 + 'fresh))) + (let ((state_0 + (hash-ref + mutated_0 + int-id_0 + #f))) + (if ex_0 + (let ((set-id_0 + (if (if allow-set!-undefined?_0 + allow-set!-undefined?_0 + (not + (too-early-mutated-state? + state_0))) + 'variable-set! + 'variable-set!/check-undefined))) + (list + set-id_0 + (export-id + ex_0) + new-rhs_0)) + (if (if (too-early-mutated-state? + state_0) + (not + for-cify?_0) + #f) + (let ((tmp_0 + (deterministic-gensym + "set"))) + (list + 'let + (list + (list + tmp_0 + new-rhs_0)) + (list + 'check-not-unsafe-undefined/assign + id_0 + (list + 'quote + (too-early-mutated-state-name + state_0 + int-id_0))) + (list + 'set! + id_0 + tmp_0))) + (if (not + state_0) + (list + 'void + new-rhs_0) + (list + 'set! + id_0 + new-rhs_0))))))))) + (args + (raise-binding-result-arity-error + 2 + args)))) (if (if (eq? - 'variable-reference-from-unsafe? + 'variable-reference-constant? hd_0) (let ((a_0 (cdr @@ -31732,55 +32582,170 @@ (if (let ((a_2 (car p_1))) - (let ((app_0 - (unwrap - '|#%variable-reference|))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '|#%variable-reference|))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + a_2))) + (if (pair? + p_2) + (let ((a_3 + (cdr + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) + #f))) #f) #f))) (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f) #f))) #f) - unsafe-mode?_0 + (let ((id_0 + (let ((d_0 + (cdr + (unwrap + v_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + (let ((d_1 + (cdr + (unwrap + a_0)))) + (let ((a_1 + (car + (unwrap + d_1)))) + a_1)))))) + (let ((u-id_0 + (unwrap + id_0))) + (if (hash-ref + mutated_0 + u-id_0 + #f) + #f + (let ((im_0 + (hash-ref + imports_0 + u-id_0 + #f))) + (if (not + im_0) + #t + (if (known-constant? + (import-lookup + im_0)) + #t + (list + 'variable-reference-constant? + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + (list + '|#%variable-reference| + id_0) + 'fresh)))))))) (if (if (eq? - '|#%variable-reference| + 'variable-reference-from-unsafe? hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 + (let ((p_0 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_0)))) + a_0))) + (if (pair? + p_0) + (if (let ((a_1 + (car + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '|#%variable-reference|))) + (eq? + app_0 + (unwrap + a_2))))) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f) + #f))) + (let ((a_1 + (cdr + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f) + #f))) #f) - 'instance-variable-reference + unsafe-mode?_0 (if (if (eq? '|#%variable-reference| hd_0) @@ -31788,81 +32753,18 @@ (cdr (unwrap v_0)))) - (let ((p_0 - (unwrap - a_0))) - (if (pair? - p_0) - (let ((a_1 - (cdr - p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_0))))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap - v_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (let ((u_0 - (unwrap - id_0))) - (let ((v_1 - (let ((or-part_0 - (let ((ex_0 - (hash-ref - exports_0 - u_0 - #f))) - (if ex_0 - (export-id - ex_0) - #f)))) - (if or-part_0 - or-part_0 - (let ((im_0 - (hash-ref - imports_0 - u_0 - #f))) - (if im_0 - (import-id - im_0) - #f)))))) - (if v_1 - (list - 'make-instance-variable-reference - 'instance-variable-reference - v_1) - (list - 'make-instance-variable-reference - 'instance-variable-reference - (list - 'quote - (if (hash-ref - mutated_0 - u_0 - #f) - 'mutable - (if (hash-ref - prim-knowns_0 - u_0 - #f) - u_0 - 'constant)))))))) + 'instance-variable-reference (if (if (eq? - 'equal? + '|#%variable-reference| hd_0) (let ((a_0 (cdr @@ -31876,137 +32778,74 @@ (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 - (cdr - (unwrap - v_0)))) - (let ((p_0 - (unwrap - d_0))) - (let ((exp1_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((exp2_0 - (let ((d_1 - (cdr - p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((exp1_1 - exp1_0)) - (values - exp1_1 - exp2_0))))))) - (case-lambda - ((exp1_0 - exp2_0) - (let ((exp1_1 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - exp1_0 - 'fresh))) - (let ((exp2_1 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - exp2_0 - 'fresh))) - (let ((exp1_2 - exp1_1)) - (if (let ((or-part_0 - (equal-implies-eq? - exp1_2))) - (if or-part_0 - or-part_0 - (equal-implies-eq? - exp2_1))) - (list - 'eq? - exp1_2 - exp2_1) - (if (let ((or-part_0 - (equal-implies-eqv? - exp1_2))) - (if or-part_0 - or-part_0 - (equal-implies-eqv? - exp2_1))) - (list - 'eqv? - exp1_2 - exp2_1) - (left-to-right/app - 'equal? - (list - exp1_2 - exp2_1) - #t - for-cify?_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0))))))) - (args - (raise-binding-result-arity-error - 2 - args)))) + (let ((id_0 + (let ((d_0 + (cdr + (unwrap + v_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (let ((u_0 + (unwrap + id_0))) + (let ((v_1 + (let ((or-part_0 + (let ((ex_0 + (hash-ref + exports_0 + u_0 + #f))) + (if ex_0 + (export-id + ex_0) + #f)))) + (if or-part_0 + or-part_0 + (let ((im_0 + (hash-ref + imports_0 + u_0 + #f))) + (if im_0 + (import-id + im_0) + #f)))))) + (if v_1 + (list + 'make-instance-variable-reference + 'instance-variable-reference + v_1) + (list + 'make-instance-variable-reference + 'instance-variable-reference + (list + 'quote + (if (hash-ref + mutated_0 + u_0 + #f) + 'mutable + (if (hash-ref + prim-knowns_0 + u_0 + #f) + u_0 + 'constant)))))))) (if (if (eq? - 'call-with-values + 'equal? hd_0) (let ((a_0 (cdr @@ -32028,13 +32867,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -32047,12 +32887,12 @@ (let ((p_0 (unwrap d_0))) - (let ((generator_0 + (let ((exp1_0 (let ((a_0 (car p_0))) a_0))) - (let ((receiver_0 + (let ((exp2_0 (let ((d_1 (cdr p_0))) @@ -32061,29 +32901,35 @@ (unwrap d_1)))) a_0)))) - (let ((generator_1 - generator_0)) + (let ((exp1_1 + exp1_0)) (values - generator_1 - receiver_0))))))) + exp1_1 + exp2_0))))))) (case-lambda - ((generator_0 - receiver_0) - (if (if (lambda?.1 - #f - generator_0) - (let ((or-part_0 - (lambda?.1 - #f - receiver_0))) - (if or-part_0 - or-part_0 - (eq? - (unwrap - receiver_0) - 'list))) - #f) - (let ((app_0 + ((exp1_0 + exp2_0) + (let ((exp1_1 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + exp1_0 + 'fresh))) + (let ((exp2_1 (schemify_0 add-import!_0 allow-inline?_0 @@ -32101,344 +32947,463 @@ primitives_0 simples_0 unsafe-mode?_0 - generator_0 + exp2_0 'fresh))) - (list - 'call-with-values - app_0 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - receiver_0 - 'fresh))) - (let ((app_0 - (if for-cify?_0 - 'call-with-values - '|#%call-with-values|))) - (left-to-right/app - app_0 - (let ((app_1 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - generator_0 - 'fresh))) - (list - app_1 - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - receiver_0 - 'fresh))) - #t - for-cify?_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0)))) + (let ((exp1_2 + exp1_1)) + (if (let ((or-part_0 + (equal-implies-eq? + exp1_2))) + (if or-part_0 + or-part_0 + (equal-implies-eq? + exp2_1))) + (list + 'eq? + exp1_2 + exp2_1) + (if (let ((or-part_0 + (equal-implies-eqv? + exp1_2))) + (if or-part_0 + or-part_0 + (equal-implies-eqv? + exp2_1))) + (list + 'eqv? + exp1_2 + exp2_1) + (left-to-right/app + 'equal? + (list + exp1_2 + exp2_1) + #t + for-cify?_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0))))))) (args (raise-binding-result-arity-error 2 args)))) (if (if (eq? - 'single-flonum-available? + 'call-with-values hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 + (let ((p_0 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_0)))) - #f) - for-cify?_0 - (if (let ((p_0 - (unwrap - v_0))) - (if (pair? - p_0) - (if (let ((a_0 - (car - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - (if (let ((a_1 - (car - p_1))) - (let ((app_0 - (unwrap - 'letrec-values))) - (eq? - app_0 - (unwrap - a_1)))) - (let ((a_1 - (cdr - p_1))) - (let ((p_2 - (unwrap - a_1))) - (if (pair? - p_2) - (let ((a_2 - (cdr - p_2))) - (let ((p_3 - (unwrap - a_2))) - (if (pair? - p_3) - (let ((a_3 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) - #f) - #f))) - (let ((a_0 + a_0))) + (if (pair? + p_0) + (let ((a_1 (cdr p_0))) - (wrap-list? - a_0)) - #f) - #f)) - (call-with-values - (lambda () + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap + v_0)))) (let ((p_0 (unwrap - v_0))) - (call-with-values - (lambda () - (let ((a_0 - (car - p_0))) - (let ((d_0 - (cdr - (unwrap - a_0)))) - (let ((p_1 - (unwrap - d_0))) - (let ((binds_0 - (let ((a_1 - (car - p_1))) - a_1))) - (let ((rator_0 - (let ((d_1 - (cdr - p_1))) - (let ((a_1 - (car - (unwrap - d_1)))) - a_1)))) - (let ((binds_1 - binds_0)) - (values - binds_1 - rator_0)))))))) - (case-lambda - ((binds_0 - rator_0) - (let ((rands_0 - (let ((d_0 - (cdr - p_0))) - (unwrap-list - d_0)))) - (let ((binds_1 - binds_0) - (rator_1 - rator_0)) - (values - binds_1 - rator_1 - rands_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))))) - (case-lambda - ((binds_0 - rator_0 - rands_0) - (schemify_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - (list - 'letrec-values - binds_0 - (list* - rator_0 - rands_0)) - wcm-state_0)) - (args - (raise-binding-result-arity-error - 3 - args)))) + d_0))) + (let ((generator_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((receiver_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((generator_1 + generator_0)) + (values + generator_1 + receiver_0))))))) + (case-lambda + ((generator_0 + receiver_0) + (if (if (lambda?.1 + #f + generator_0) + (let ((or-part_0 + (lambda?.1 + #f + receiver_0))) + (if or-part_0 + or-part_0 + (eq? + (unwrap + receiver_0) + 'list))) + #f) + (let ((app_0 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + generator_0 + 'fresh))) + (list + 'call-with-values + app_0 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + receiver_0 + 'fresh))) + (let ((app_0 + (if for-cify?_0 + 'call-with-values + '|#%call-with-values|))) + (left-to-right/app + app_0 + (let ((app_1 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + generator_0 + 'fresh))) + (list + app_1 + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + receiver_0 + 'fresh))) + #t + for-cify?_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + 'single-flonum-available? + hd_0) + (let ((a_0 + (cdr + (unwrap + v_0)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_0))))) + #f) + for-cify?_0 (if (let ((p_0 (unwrap v_0))) (if (pair? p_0) - (let ((a_0 - (cdr - p_0))) - (wrap-list? - a_0)) + (if (let ((a_0 + (car + p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + (if (let ((a_1 + (car + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + 'letrec-values))) + (eq? + app_0 + (unwrap + a_1))))) + (let ((a_1 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_1))) + (if (pair? + p_2) + (let ((a_2 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_2))) + (if (pair? + p_3) + (let ((a_3 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) + #f))) + #f))) + #f) + #f))) + (let ((a_0 + (cdr + p_0))) + (wrap-list? + a_0)) + #f) #f)) (call-with-values (lambda () (let ((p_0 (unwrap v_0))) - (let ((rator_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((exps_0 - (let ((d_0 - (cdr - p_0))) - (unwrap-list - d_0)))) - (let ((rator_1 - rator_0)) - (values - rator_1 - exps_0)))))) + (call-with-values + (lambda () + (let ((a_0 + (car + p_0))) + (let ((d_0 + (cdr + (unwrap + a_0)))) + (let ((p_1 + (unwrap + d_0))) + (let ((binds_0 + (let ((a_1 + (car + p_1))) + a_1))) + (let ((rator_0 + (let ((d_1 + (cdr + p_1))) + (let ((a_1 + (car + (unwrap + d_1)))) + a_1)))) + (let ((binds_1 + binds_0)) + (values + binds_1 + rator_0)))))))) + (case-lambda + ((binds_0 + rator_0) + (let ((rands_0 + (let ((d_0 + (cdr + p_0))) + (unwrap-list + d_0)))) + (let ((binds_1 + binds_0) + (rator_1 + rator_0)) + (values + binds_1 + rator_1 + rands_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))))) (case-lambda - ((rator_0 - exps_0) - (let ((or-part_0 - (left-left-lambda-convert_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - exps_0 - for-cify?_0 - for-interp?_0 - imports_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - wcm-state_0 - rator_0 - inline-fuel_0))) - (if or-part_0 - or-part_0 - (let ((or-part_1 - (if (positive? - inline-fuel_0) - (inline-rator_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - exps_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - rator_0 - simples_0 - unsafe-mode?_0 - wcm-state_0) - #f))) - (if or-part_1 - or-part_1 - (let ((s-rator_0 - (schemify_0 + ((binds_0 + rator_0 + rands_0) + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + (list + 'letrec-values + binds_0 + (list* + rator_0 + rands_0)) + wcm-state_0)) + (args + (raise-binding-result-arity-error + 3 + args)))) + (if (let ((p_0 + (unwrap + v_0))) + (if (pair? + p_0) + (let ((a_0 + (cdr + p_0))) + (wrap-list? + a_0)) + #f)) + (call-with-values + (lambda () + (let ((p_0 + (unwrap + v_0))) + (let ((rator_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((exps_0 + (let ((d_0 + (cdr + p_0))) + (unwrap-list + d_0)))) + (let ((rator_1 + rator_0)) + (values + rator_1 + exps_0)))))) + (case-lambda + ((rator_0 + exps_0) + (let ((or-part_0 + (left-left-lambda-convert_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + exps_0 + for-cify?_0 + for-interp?_0 + imports_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + wcm-state_0 + rator_0 + inline-fuel_0))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (if (positive? + inline-fuel_0) + (inline-rator_0 add-import!_0 allow-inline?_0 allow-set!-undefined?_0 explicit-unnamed?_0 exports_0 + exps_0 for-cify?_0 for-interp?_0 imports_0 @@ -32448,12 +33413,15 @@ no-prompt?_0 prim-knowns_0 primitives_0 + rator_0 simples_0 unsafe-mode?_0 - rator_0 - 'fresh))) - (let ((args_0 - (schemify-body_0 + wcm-state_0) + #f))) + (if or-part_1 + or-part_1 + (let ((s-rator_0 + (schemify_0 add-import!_0 allow-inline?_0 allow-set!-undefined?_0 @@ -32470,271 +33438,10 @@ primitives_0 simples_0 unsafe-mode?_0 - exps_0 + rator_0 'fresh))) - (let ((u-rator_0 - (unwrap - rator_0))) - (let ((args_1 - args_0) - (s-rator_1 - s-rator_0)) - (call-with-values - (lambda () - (find-known+import - u-rator_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0)) - (case-lambda - ((k_0 - im_0) - (let ((c5_0 - (let ((or-part_2 - (if (eq? - rator_0 - 'ptr-ref) - (inline-ptr-ref - args_1) - #f))) - (if or-part_2 - or-part_2 - (if (eq? - rator_0 - 'ptr-set!) - (inline-ptr-set - args_1) - #f))))) - (if c5_0 - (let ((app_0 - (car - c5_0))) - (left-to-right/app - app_0 - (cdr - c5_0) - #t - for-cify?_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0)) - (let ((c4_0 - (if (not - for-cify?_0) - (if (known-struct-predicate? - k_0) - (inline-struct-predicate_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - k_0 - s-rator_1 - im_0 - args_1) - #f) - #f))) - (if c4_0 - c4_0 - (let ((c3_0 - (if (not - for-cify?_0) - (if (known-field-accessor? - k_0) - (inline-field-access_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - k_0 - s-rator_1 - im_0 - args_1) - #f) - #f))) - (if c3_0 - c3_0 - (let ((c2_0 - (if (not - for-cify?_0) - (if (known-field-mutator? - k_0) - (inline-field-mutate_0 - add-import!_0 - allow-inline?_0 - allow-set!-undefined?_0 - explicit-unnamed?_0 - exports_0 - for-cify?_0 - for-interp?_0 - imports_0 - inline-fuel_0 - knowns_0 - mutated_0 - no-prompt?_0 - prim-knowns_0 - primitives_0 - simples_0 - unsafe-mode?_0 - k_0 - s-rator_1 - im_0 - args_1) - #f) - #f))) - (if c2_0 - c2_0 - (if (if unsafe-mode?_0 - (known-procedure/has-unsafe? - k_0) - #f) - (left-to-right/app - (known-procedure/has-unsafe-alternate - k_0) - args_1 - #t - for-cify?_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0) - (let ((or-part_2 - (known-procedure? - k_0))) - (let ((plain-app?_0 - (if or-part_2 - or-part_2 - (lambda?.1 - #f - rator_0)))) - (left-to-right/app - s-rator_1 - args_1 - plain-app?_0 - for-cify?_0 - prim-knowns_0 - knowns_0 - imports_0 - mutated_0 - simples_0))))))))))))) - (args - (raise-binding-result-arity-error - 2 - args))))))))))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (let ((u-v_0 - (unwrap - v_0))) - (if (not - (symbol? - u-v_0)) - v_0 - (if (eq? - u-v_0 - 'call-with-values) - '|#%call-with-values| - (let ((state_0 - (hash-ref - mutated_0 - u-v_0 - #f))) - (let ((c8_0 - (if (via-variable-mutated-state? - state_0) - (hash-ref - exports_0 - u-v_0 - #f) - #f))) - (if c8_0 - (if (too-early-mutated-state? - state_0) - (list - 'variable-ref - (export-id - c8_0)) - (list - 'variable-ref/no-check - (export-id - c8_0))) - (let ((c7_0 - (hash-ref - imports_0 - u-v_0 - #f))) - (if c7_0 - (let ((k_0 - (import-lookup - c7_0))) - (if (known-constant? - k_0) - (if (known-literal? - k_0) - (wrap-literal - (known-literal-value - k_0)) - (if (if (known-copy? - k_0) - (hash-ref - prim-knowns_0 - (known-copy-id - k_0) - #f) - #f) - (known-copy-id - k_0) - (import-id - c7_0))) - (list - 'variable-ref/no-check - (import-id - c7_0)))) - (let ((c6_0 - (hash-ref - knowns_0 - u-v_0 - #f))) - (if c6_0 - (if (if (known-copy? - c6_0) - (simple-mutated-state? - (hash-ref - mutated_0 - u-v_0 - #f)) - #f) - (schemify_0 + (let ((args_0 + (schemify-body_0 add-import!_0 allow-inline?_0 allow-set!-undefined?_0 @@ -32751,24 +33458,305 @@ primitives_0 simples_0 unsafe-mode?_0 - (known-copy-id - c6_0) - wcm-state_0) - v_0) - (if (if (too-early-mutated-state? - state_0) - (not - for-cify?_0) - #f) + exps_0 + 'fresh))) + (let ((u-rator_0 + (unwrap + rator_0))) + (let ((args_1 + args_0) + (s-rator_1 + s-rator_0)) + (call-with-values + (lambda () + (find-known+import + u-rator_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0)) + (case-lambda + ((k_0 + im_0) + (let ((c5_0 + (let ((or-part_2 + (if (eq? + rator_0 + 'ptr-ref) + (inline-ptr-ref + args_1) + #f))) + (if or-part_2 + or-part_2 + (if (eq? + rator_0 + 'ptr-set!) + (inline-ptr-set + args_1) + #f))))) + (if c5_0 + (let ((app_0 + (car + c5_0))) + (left-to-right/app + app_0 + (cdr + c5_0) + #t + for-cify?_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0)) + (let ((c4_0 + (if (not + for-cify?_0) + (if (known-struct-predicate? + k_0) + (inline-struct-predicate_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + k_0 + s-rator_1 + im_0 + args_1) + #f) + #f))) + (if c4_0 + c4_0 + (let ((c3_0 + (if (not + for-cify?_0) + (if (known-field-accessor? + k_0) + (inline-field-access_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + k_0 + s-rator_1 + im_0 + args_1) + #f) + #f))) + (if c3_0 + c3_0 + (let ((c2_0 + (if (not + for-cify?_0) + (if (known-field-mutator? + k_0) + (inline-field-mutate_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + k_0 + s-rator_1 + im_0 + args_1) + #f) + #f))) + (if c2_0 + c2_0 + (if (if unsafe-mode?_0 + (known-procedure/has-unsafe? + k_0) + #f) + (left-to-right/app + (known-procedure/has-unsafe-alternate + k_0) + args_1 + #t + for-cify?_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0) + (let ((or-part_2 + (known-procedure? + k_0))) + (let ((plain-app?_0 + (if or-part_2 + or-part_2 + (lambda?.1 + #f + rator_0)))) + (left-to-right/app + s-rator_1 + args_1 + plain-app?_0 + for-cify?_0 + prim-knowns_0 + knowns_0 + imports_0 + mutated_0 + simples_0))))))))))))) + (args + (raise-binding-result-arity-error + 2 + args))))))))))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((u-v_0 + (unwrap + v_0))) + (if (not + (symbol? + u-v_0)) + v_0 + (if (eq? + u-v_0 + 'call-with-values) + '|#%call-with-values| + (let ((state_0 + (hash-ref + mutated_0 + u-v_0 + #f))) + (let ((c8_0 + (if (via-variable-mutated-state? + state_0) + (hash-ref + exports_0 + u-v_0 + #f) + #f))) + (if c8_0 + (if (too-early-mutated-state? + state_0) + (list + 'variable-ref + (export-id + c8_0)) + (list + 'variable-ref/no-check + (export-id + c8_0))) + (let ((c7_0 + (hash-ref + imports_0 + u-v_0 + #f))) + (if c7_0 + (let ((k_0 + (import-lookup + c7_0))) + (if (known-constant? + k_0) + (if (known-literal? + k_0) + (wrap-literal + (known-literal-value + k_0)) + (if (if (known-copy? + k_0) + (hash-ref + prim-knowns_0 + (known-copy-id + k_0) + #f) + #f) + (known-copy-id + k_0) + (import-id + c7_0))) (list - 'check-not-unsafe-undefined - v_0 - (list - 'quote - (too-early-mutated-state-name - state_0 - u-v_0))) - v_0))))))))))))))))))))))))))))))))))))))))))))))) + 'variable-ref/no-check + (import-id + c7_0)))) + (let ((c6_0 + (hash-ref + knowns_0 + u-v_0 + #f))) + (if c6_0 + (if (if (known-copy? + c6_0) + (simple-mutated-state? + (hash-ref + mutated_0 + u-v_0 + #f)) + #f) + (schemify_0 + add-import!_0 + allow-inline?_0 + allow-set!-undefined?_0 + explicit-unnamed?_0 + exports_0 + for-cify?_0 + for-interp?_0 + imports_0 + inline-fuel_0 + knowns_0 + mutated_0 + no-prompt?_0 + prim-knowns_0 + primitives_0 + simples_0 + unsafe-mode?_0 + (known-copy-id + c6_0) + wcm-state_0) + v_0) + (if (if (too-early-mutated-state? + state_0) + (not + for-cify?_0) + #f) + (list + 'check-not-unsafe-undefined + v_0 + (list + 'quote + (too-early-mutated-state-name + state_0 + u-v_0))) + v_0)))))))))))))))))))))))))))))))))))))))))))))))) (optimize s-v_0 prim-knowns_0 @@ -33106,8 +34094,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -33193,9 +34182,9 @@ loop (lambda (args_0 s_0) (begin - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) s_0 - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((app_0 (wrap-cdr args_0))) (loop_3 app_0 @@ -33409,16 +34398,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -33440,13 +34433,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -33486,14 +34480,19 @@ for-loop (lambda (ids_0 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -33706,16 +34705,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -33737,13 +34740,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -33783,15 +34787,19 @@ for-loop (lambda (ids_0 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -33935,9 +34943,10 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 - (unwrap 'letrec))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap 'letrec))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -33964,25 +34973,27 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) @@ -33991,12 +35002,14 @@ (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) @@ -34077,9 +35090,12 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 - (unwrap 'letrec*))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap 'letrec*))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -34107,25 +35123,27 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) @@ -34134,13 +35152,14 @@ (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) @@ -34287,17 +35306,21 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -34342,17 +35365,21 @@ (lambda (argss_0 bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -34518,7 +35545,7 @@ frees+binds15_0 lifts16_0 locals17_0)) - (if (if (eq? 'begin0 hd_0) #t #f) + (if (if (eq? 'begin-unsafe hd_0) #t #f) (let ((vs_0 (let ((d_0 (cdr (unwrap v14_0)))) d_0))) @@ -34527,104 +35554,18 @@ frees+binds15_0 lifts16_0 locals17_0)) - (if (if (eq? 'quote hd_0) #t #f) - frees+binds15_0 - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v14_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v14_0)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 - (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 - thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values - tst_1 - thn_0 - els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((frees+binds_0 - (compute-lifts!_0 - tst_0 - frees+binds15_0 - lifts16_0 - locals17_0))) - (let ((frees+binds_1 - (compute-lifts!_0 - thn_0 - frees+binds_0 - lifts16_0 - locals17_0))) - (let ((frees+binds_2 - (compute-lifts!_0 - els_0 - frees+binds_1 - lifts16_0 - locals17_0))) - frees+binds_2)))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (if (if (eq? 'begin0 hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v14_0)))) + d_0))) + (compute-seq-lifts!_0 + vs_0 + frees+binds15_0 + lifts16_0 + locals17_0)) + (if (if (eq? 'quote hd_0) #t #f) + frees+binds15_0 + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v14_0)))) (let ((p_0 (unwrap a_0))) @@ -34642,22 +35583,14 @@ (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -34665,65 +35598,62 @@ (call-with-values (lambda () (let ((d_0 (cdr (unwrap v14_0)))) - (let ((d_1 (cdr (unwrap d_0)))) - (let ((p_0 (unwrap d_1))) - (let ((key_0 - (let ((a_0 - (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_0))) - (let ((p_1 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car + (let ((p_0 (unwrap d_0))) + (let ((tst_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 + (unwrap d_1))) + (let ((thn_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args))))))))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 + thn_0)) + (values + thn_1 + els_0))))))) + (case-lambda + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values + tst_1 + thn_0 + els_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) (case-lambda - ((key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (let ((frees+binds_0 (compute-lifts!_0 - key_0 + tst_0 frees+binds15_0 lifts16_0 locals17_0))) (let ((frees+binds_1 (compute-lifts!_0 - val_0 + thn_0 frees+binds_0 lifts16_0 locals17_0))) (let ((frees+binds_2 (compute-lifts!_0 - body_0 + els_0 frees+binds_1 lifts16_0 locals17_0))) @@ -34732,7 +35662,9 @@ (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'set! hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap v14_0)))) (let ((p_0 (unwrap a_0))) @@ -34743,13 +35675,32 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + a_2))) + (if (pair? + p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) #f))) #f))) #f) @@ -34757,266 +35708,374 @@ (lambda () (let ((d_0 (cdr (unwrap v14_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (let ((var_0 (unwrap id_0))) - (let ((frees+binds_0 - (let ((c1_0 - (hash-ref - locals17_0 - var_0 - #f))) - (if c1_0 - (begin - (lookup-indirected-variable_0 - lifts16_0 - var_0 - (eq? - c1_0 - 'early)) - (add-free_0 - frees+binds15_0 - var_0)) - frees+binds15_0)))) - (compute-lifts!_0 - rhs_0 - frees+binds_0 - lifts16_0 - locals17_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) - #t - #f) - (error - 'internal-error - "lift: unexpected variable reference") - (if (if (eq? - 'call-with-values - hd_0) - (let ((a_0 - (cdr - (unwrap v14_0)))) - (let ((p_0 - (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 + (let ((d_1 + (cdr (unwrap d_0)))) + (let ((p_0 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 (cdr p_0))) (let ((p_1 (unwrap - a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 - (cdr - (unwrap v14_0)))) - (let ((p_0 (unwrap d_0))) - (let ((producer_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((consumer_0 - (let ((d_1 - (cdr - p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((producer_1 - producer_0)) - (values - producer_1 - consumer_0))))))) - (case-lambda - ((producer_0 consumer_0) - (let ((frees+binds_0 + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args))))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((frees+binds_0 + (compute-lifts!_0 + key_0 + frees+binds15_0 + lifts16_0 + locals17_0))) + (let ((frees+binds_1 + (compute-lifts!_0 + val_0 + frees+binds_0 + lifts16_0 + locals17_0))) + (let ((frees+binds_2 (compute-lifts!_0 - producer_0 - frees+binds15_0 + body_0 + frees+binds_1 lifts16_0 - locals17_0 - #t))) - (let ((frees+binds_1 + locals17_0))) + frees+binds_2)))) + (args + (raise-binding-result-arity-error + 3 + args)))) + (if (if (eq? 'set! hd_0) + (let ((a_0 + (cdr + (unwrap v14_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 + (cdr (unwrap v14_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (let ((var_0 (unwrap id_0))) + (let ((frees+binds_0 + (let ((c1_0 + (hash-ref + locals17_0 + var_0 + #f))) + (if c1_0 + (begin + (lookup-indirected-variable_0 + lifts16_0 + var_0 + (eq? + c1_0 + 'early)) + (add-free_0 + frees+binds15_0 + var_0)) + frees+binds15_0)))) + (compute-lifts!_0 + rhs_0 + frees+binds_0 + lifts16_0 + locals17_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + '|#%variable-reference| + hd_0) + #t + #f) + (error + 'internal-error + "lift: unexpected variable reference") + (if (if (eq? + 'call-with-values + hd_0) + (let ((a_0 + (cdr + (unwrap + v14_0)))) + (let ((p_0 + (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 + (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap v14_0)))) + (let ((p_0 + (unwrap d_0))) + (let ((producer_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((consumer_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((producer_1 + producer_0)) + (values + producer_1 + consumer_0))))))) + (case-lambda + ((producer_0 consumer_0) + (let ((frees+binds_0 (compute-lifts!_0 - consumer_0 - frees+binds_0 + producer_0 + frees+binds15_0 lifts16_0 locals17_0 #t))) - frees+binds_1))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (let ((p_0 - (unwrap v14_0))) - (if (pair? p_0) #t #f)) - (call-with-values - (lambda () - (let ((p_0 - (unwrap v14_0))) - (let ((rator_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((rands_0 - (let ((d_0 - (cdr - p_0))) - d_0))) - (let ((rator_1 - rator_0)) - (values - rator_1 - rands_0)))))) - (case-lambda - ((rator_0 rands_0) - (let ((f_0 - (unwrap rator_0))) - (let ((frees+binds_0 - (if (symbol? - f_0) - (begin - (let ((proc_0 - (hash-ref - lifts16_0 - f_0 - #f))) - (if (liftable? - proc_0) - (if (let ((app_0 - (liftable-expr - proc_0))) - (consistent-argument-count?_0 - app_0 - (length - (unwrap-list - rands_0)))) - (void) - (hash-remove! - lifts16_0 - f_0)) - (void))) - (if (hash-ref - locals17_0 - f_0 - #f) - (add-free_0 - frees+binds15_0 - f_0) - frees+binds15_0)) - (compute-lifts!_0 - rator_0 - frees+binds15_0 - lifts16_0 - locals17_0)))) - (compute-seq-lifts!_0 - rands_0 - frees+binds_0 - lifts16_0 - locals17_0)))) + (let ((frees+binds_1 + (compute-lifts!_0 + consumer_0 + frees+binds_0 + lifts16_0 + locals17_0 + #t))) + frees+binds_1))) (args (raise-binding-result-arity-error 2 args)))) - (let ((x_0 (unwrap v14_0))) - (if (let ((or-part_0 - (string? x_0))) - (if or-part_0 - or-part_0 - (let ((or-part_1 - (bytes? - x_0))) - (if or-part_1 - or-part_1 - (let ((or-part_2 - (boolean? - x_0))) - (if or-part_2 - or-part_2 - (number? - x_0))))))) - frees+binds15_0 - (begin - (if (symbol? x_0) - (void) - (error - 'lift-in-schemified - "unrecognized expression form: ~e" - v14_0)) - (let ((proc_0 - (hash-ref - lifts16_0 - x_0 - #f))) - (if (liftable? - proc_0) - (hash-remove! - lifts16_0 - x_0) - (void))) - (let ((loc-status_0 - (hash-ref - locals17_0 - x_0 - #f))) - (if loc-status_0 - (let ((frees+binds_0 - (add-free_0 - frees+binds15_0 - x_0))) - (if (eq? - loc-status_0 - 'early) - (begin - (lookup-indirected-variable_0 + (if (let ((p_0 + (unwrap v14_0))) + (if (pair? p_0) + #t + #f)) + (call-with-values + (lambda () + (let ((p_0 + (unwrap v14_0))) + (let ((rator_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((rands_0 + (let ((d_0 + (cdr + p_0))) + d_0))) + (let ((rator_1 + rator_0)) + (values + rator_1 + rands_0)))))) + (case-lambda + ((rator_0 rands_0) + (let ((f_0 + (unwrap + rator_0))) + (let ((frees+binds_0 + (if (symbol? + f_0) + (begin + (let ((proc_0 + (hash-ref + lifts16_0 + f_0 + #f))) + (if (liftable? + proc_0) + (if (let ((app_0 + (liftable-expr + proc_0))) + (consistent-argument-count?_0 + app_0 + (length + (unwrap-list + rands_0)))) + (void) + (hash-remove! + lifts16_0 + f_0)) + (void))) + (if (hash-ref + locals17_0 + f_0 + #f) + (add-free_0 + frees+binds15_0 + f_0) + frees+binds15_0)) + (compute-lifts!_0 + rator_0 + frees+binds15_0 lifts16_0 - x_0 - #t) - (add-free_0 - frees+binds_0 - x_0)) - frees+binds_0)) - frees+binds15_0)))))))))))))))))))))))))) + locals17_0)))) + (compute-seq-lifts!_0 + rands_0 + frees+binds_0 + lifts16_0 + locals17_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((x_0 + (unwrap v14_0))) + (if (let ((or-part_0 + (string? + x_0))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (bytes? + x_0))) + (if or-part_1 + or-part_1 + (let ((or-part_2 + (boolean? + x_0))) + (if or-part_2 + or-part_2 + (number? + x_0))))))) + frees+binds15_0 + (begin + (if (symbol? x_0) + (void) + (error + 'lift-in-schemified + "unrecognized expression form: ~e" + v14_0)) + (let ((proc_0 + (hash-ref + lifts16_0 + x_0 + #f))) + (if (liftable? + proc_0) + (hash-remove! + lifts16_0 + x_0) + (void))) + (let ((loc-status_0 + (hash-ref + locals17_0 + x_0 + #f))) + (if loc-status_0 + (let ((frees+binds_0 + (add-free_0 + frees+binds15_0 + x_0))) + (if (eq? + loc-status_0 + 'early) + (begin + (lookup-indirected-variable_0 + lifts16_0 + x_0 + #t) + (add-free_0 + frees+binds_0 + x_0)) + frees+binds_0)) + frees+binds15_0))))))))))))))))))))))))))) (compute-rhs-lifts!_0 (|#%name| compute-rhs-lifts! @@ -35099,13 +36158,13 @@ for-loop (lambda (frees+binds_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -35146,13 +36205,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -35191,16 +36255,20 @@ (lambda (argss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -35262,9 +36330,9 @@ (begin (if (negative? n_1) #f - (if (null? (unwrap args_1)) + (if (begin-unsafe (null? (unwrap args_1))) (zero? n_1) - (if (pair? (unwrap args_1)) + (if (begin-unsafe (pair? (unwrap args_1))) (let ((app_0 (wrap-cdr args_1))) (loop_3 app_0 (sub1 n_1))) #t)))))))) @@ -35294,16 +36362,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -35325,13 +36397,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -35376,17 +36449,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -35563,16 +36640,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -35594,13 +36675,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -35645,17 +36727,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -35884,13 +36970,14 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -35939,9 +37026,10 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 - (unwrap 'letrec))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap 'letrec))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -35968,25 +37056,27 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) @@ -35995,12 +37085,14 @@ (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) @@ -36083,9 +37175,12 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 - (unwrap 'letrec*))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap 'letrec*))) + (eq? + app_0 + (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -36113,25 +37208,27 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) @@ -36140,13 +37237,14 @@ (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) @@ -36274,17 +37372,21 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -36329,17 +37431,21 @@ (lambda (argss_0 bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -36486,121 +37592,35 @@ lifts_0 frees_0 empties_0)))) - (if (if (eq? 'begin0 hd_0) #t #f) + (if (if (eq? 'begin-unsafe hd_0) #t #f) (let ((vs_0 (let ((d_0 (cdr (unwrap v_0)))) d_0))) (reannotate v_0 (list* - 'begin0 + 'begin-unsafe (convert-lifted-calls-in-seq_0 vs_0 lifts_0 frees_0 empties_0)))) - (if (if (eq? 'quote hd_0) #t #f) - v_0 - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 - (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 - thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values - tst_1 - thn_0 - els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (reannotate - v_0 - (let ((app_0 - (convert_0 - empties_0 - frees_0 - lifts_0 - tst_0))) - (let ((app_1 - (convert_0 - empties_0 - frees_0 - lifts_0 - thn_0))) - (list - 'if - app_0 - app_1 - (convert_0 - empties_0 - frees_0 - lifts_0 - els_0)))))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (if (if (eq? 'begin0 hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_0)))) + d_0))) + (reannotate + v_0 + (list* + 'begin0 + (convert-lifted-calls-in-seq_0 + vs_0 + lifts_0 + frees_0 + empties_0)))) + (if (if (eq? 'quote hd_0) #t #f) + v_0 + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -36617,22 +37637,14 @@ (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -36641,7 +37653,7 @@ (lambda () (let ((d_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values @@ -36649,64 +37661,38 @@ (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 - key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 + thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) + ((thn_0 els_0) + (let ((tst_1 tst_0)) (values - mode_1 - key_0 - val_0 - body_0))) + tst_1 + thn_0 + els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (reannotate v_0 (let ((app_0 @@ -36714,28 +37700,29 @@ empties_0 frees_0 lifts_0 - key_0))) + tst_0))) (let ((app_1 (convert_0 empties_0 frees_0 lifts_0 - val_0))) + thn_0))) (list - 'with-continuation-mark* - mode_0 + 'if app_0 app_1 (convert_0 empties_0 frees_0 lifts_0 - body_0)))))) + els_0)))))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'set! hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) @@ -36746,13 +37733,32 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + a_2))) + (if (pair? + p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) #f))) #f))) #f) @@ -36760,158 +37766,287 @@ (lambda () (let ((d_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap d_0))) - (let ((id_0 + (let ((mode_0 (let ((a_0 (car p_0))) a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 + (unwrap + d_1))) + (let ((key_0 + (let ((a_0 + (car + p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 + body_0) + (let ((key_1 + key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) (case-lambda - ((id_0 rhs_0) - (let ((info_0 - (hash-ref - lifts_0 - (unwrap id_0) - #f))) - (if (indirected? info_0) - (reannotate - v_0 - (if (indirected-check? - info_0) - (list - 'set-box!/check-undefined - id_0 + ((mode_0 key_0 val_0 body_0) + (reannotate + v_0 + (let ((app_0 (convert_0 empties_0 frees_0 lifts_0 - rhs_0) - (list 'quote id_0)) - (list - 'unsafe-set-box*! - id_0 - (convert_0 - empties_0 - frees_0 - lifts_0 - rhs_0)))) - (reannotate - v_0 + key_0))) + (let ((app_1 + (convert_0 + empties_0 + frees_0 + lifts_0 + val_0))) (list - 'set! - id_0 + 'with-continuation-mark* + mode_0 + app_0 + app_1 (convert_0 empties_0 frees_0 lifts_0 - rhs_0)))))) + body_0)))))) (args (raise-binding-result-arity-error - 2 + 4 args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) - #t + (if (if (eq? 'set! hd_0) + (let ((a_0 + (cdr (unwrap v_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) #f) - (error - 'internal-error - "lift: unexpected variable reference") - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) #t #f)) - (call-with-values - (lambda () - (let ((p_0 (unwrap v_0))) - (let ((rator_0 + (call-with-values + (lambda () + (let ((d_0 + (cdr (unwrap v_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 (let ((a_0 (car p_0))) a_0))) - (let ((rands_0 - (let ((d_0 + (let ((rhs_0 + (let ((d_1 (cdr p_0))) - d_0))) - (let ((rator_1 - rator_0)) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) (values - rator_1 - rands_0)))))) - (case-lambda - ((rator_0 rands_0) - (let ((rands_1 - (convert-lifted-calls-in-seq_0 - rands_0 - lifts_0 - frees_0 - empties_0))) - (let ((f_0 - (unwrap rator_0))) - (let ((c3_0 - (if (symbol? - f_0) - (let ((p_0 - (hash-ref - lifts_0 - f_0 - #f))) - (if (liftable? - p_0) - p_0 - #f)) - #f))) - (if c3_0 - (reannotate - v_0 - (list* - rator_0 - (qq-append - (liftable-frees - c3_0) - rands_1))) - (reannotate - v_0 - (list* - (convert_0 - empties_0 - frees_0 + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (let ((info_0 + (hash-ref + lifts_0 + (unwrap id_0) + #f))) + (if (indirected? info_0) + (reannotate + v_0 + (if (indirected-check? + info_0) + (list + 'set-box!/check-undefined + id_0 + (convert_0 + empties_0 + frees_0 + lifts_0 + rhs_0) + (list 'quote id_0)) + (list + 'unsafe-set-box*! + id_0 + (convert_0 + empties_0 + frees_0 + lifts_0 + rhs_0)))) + (reannotate + v_0 + (list + 'set! + id_0 + (convert_0 + empties_0 + frees_0 + lifts_0 + rhs_0)))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + '|#%variable-reference| + hd_0) + #t + #f) + (error + 'internal-error + "lift: unexpected variable reference") + (if (let ((p_0 (unwrap v_0))) + (if (pair? p_0) #t #f)) + (call-with-values + (lambda () + (let ((p_0 (unwrap v_0))) + (let ((rator_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((rands_0 + (let ((d_0 + (cdr + p_0))) + d_0))) + (let ((rator_1 + rator_0)) + (values + rator_1 + rands_0)))))) + (case-lambda + ((rator_0 rands_0) + (let ((rands_1 + (convert-lifted-calls-in-seq_0 + rands_0 + lifts_0 + frees_0 + empties_0))) + (let ((f_0 + (unwrap + rator_0))) + (let ((c3_0 + (if (symbol? + f_0) + (let ((p_0 + (hash-ref + lifts_0 + f_0 + #f))) + (if (liftable? + p_0) + p_0 + #f)) + #f))) + (if c3_0 + (reannotate + v_0 + (list* + rator_0 + (qq-append + (liftable-frees + c3_0) + rands_1))) + (reannotate + v_0 + (list* + (convert_0 + empties_0 + frees_0 + lifts_0 + rator_0) + rands_1))))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((var_0 (unwrap v_0))) + (let ((info_0 + (if (symbol? var_0) + (hash-ref lifts_0 - rator_0) - rands_1))))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (let ((var_0 (unwrap v_0))) - (let ((info_0 - (if (symbol? var_0) - (hash-ref - lifts_0 - var_0 - #f) - #f))) - (if (indirected? info_0) - (reannotate - v_0 - (if (indirected-check? - info_0) - (list - 'unbox/check-undefined - v_0 - (list 'quote v_0)) - (list - 'unsafe-unbox* - v_0))) - v_0))))))))))))))))))))))) + var_0 + #f) + #f))) + (if (indirected? info_0) + (reannotate + v_0 + (if (indirected-check? + info_0) + (list + 'unbox/check-undefined + v_0 + (list 'quote v_0)) + (list + 'unsafe-unbox* + v_0))) + v_0)))))))))))))))))))))))) (extract-lifted-bindings_0 (|#%name| extract-lifted-bindings @@ -37117,20 +38252,23 @@ lst_1) (begin (if (not - (null? - (unwrap - lst_1))) + (begin-unsafe + (null? + (unwrap + lst_1)))) (let ((v_0 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-car lst_1) lst_1))) (let ((rest_1 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-cdr lst_1) null))) @@ -37183,20 +38321,23 @@ lst_1) (begin (if (not - (null? - (unwrap - lst_1))) + (begin-unsafe + (null? + (unwrap + lst_1)))) (let ((v_0 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-car lst_1) lst_1))) (let ((rest_1 - (if (pair? - (unwrap - lst_1)) + (if (begin-unsafe + (pair? + (unwrap + lst_1))) (wrap-cdr lst_1) null))) @@ -37376,16 +38517,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -37407,13 +38552,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -37452,18 +38598,21 @@ (lambda (rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -37546,17 +38695,19 @@ (let ((p_4 (unwrap a_3))) (if (pair? p_4) (let ((a_4 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_4))))) #f))) #f))) (let ((a_2 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) (let ((a_1 (cdr p_1))) @@ -37566,8 +38717,9 @@ (let ((p_3 (unwrap a_2))) (if (pair? p_3) #t #f))) (let ((a_2 (cdr p_2))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f) #f))) #f) @@ -37804,13 +38956,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -37850,13 +39007,18 @@ for-loop (lambda (argss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -37960,7 +39122,8 @@ loop (lambda (vs_1 loops_1) (begin - (if (let ((v_0 (wrap-cdr vs_1))) (null? (unwrap v_0))) + (if (let ((v_0 (wrap-cdr vs_1))) + (begin-unsafe (null? (unwrap v_0)))) (find-loops_0 (wrap-car vs_1) lifts_0 @@ -38043,13 +39206,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38088,16 +39256,20 @@ (lambda (bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38166,15 +39338,20 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38210,12 +39387,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -38294,13 +39473,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -38369,11 +39549,12 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) #f @@ -38396,13 +39577,14 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -38501,13 +39683,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38547,13 +39734,18 @@ for-loop (lambda (argss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38698,16 +39890,21 @@ (lambda (fold-var_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -38739,12 +39936,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -38834,13 +40033,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -38944,11 +40144,12 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) v_0 @@ -38971,13 +40172,14 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -39042,16 +40244,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -39073,13 +40279,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -39118,18 +40325,21 @@ (lambda (rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -39211,16 +40421,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -39242,13 +40456,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -39293,17 +40508,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -39457,13 +40676,13 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -39495,13 +40714,14 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -39533,8 +40753,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -39551,8 +40772,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -39570,13 +40792,17 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -39610,8 +40836,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -39644,8 +40871,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -39690,13 +40918,17 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -39738,16 +40970,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -39769,13 +41005,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -39814,18 +41051,21 @@ (lambda (rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -39904,13 +41144,13 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -39964,17 +41204,21 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -40017,20 +41261,23 @@ (lambda (bodys_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_1 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -40066,93 +41313,14 @@ (let ((d_0 (cdr (unwrap v_0)))) d_0))) (lift?/seq_0 vs_0)) - (if (if (eq? 'quote hd_0) #t #f) - #f - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_0)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 - (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 - thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values - tst_1 - thn_0 - els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((or-part_0 (lift?_0 tst_0))) - (if or-part_0 - or-part_0 - (let ((or-part_1 - (lift?_0 thn_0))) - (if or-part_1 - or-part_1 - (lift?_0 els_0)))))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_0)))) + d_0))) + (lift?/seq_0 vs_0)) + (if (if (eq? 'quote hd_0) #t #f) + #f + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -40169,22 +41337,14 @@ (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -40192,64 +41352,63 @@ (call-with-values (lambda () (let ((d_0 (cdr (unwrap v_0)))) - (let ((d_1 (cdr (unwrap d_0)))) - (let ((p_0 (unwrap d_1))) - (let ((key_0 - (let ((a_0 - (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_0))) - (let ((p_1 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car + (let ((p_0 (unwrap d_0))) + (let ((tst_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 + (unwrap d_1))) + (let ((thn_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args))))))))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 + thn_0)) + (values + thn_1 + els_0))))))) + (case-lambda + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values + tst_1 + thn_0 + els_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) (case-lambda - ((key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (let ((or-part_0 - (lift?_0 key_0))) + (lift?_0 tst_0))) (if or-part_0 or-part_0 (let ((or-part_1 - (lift?_0 val_0))) + (lift?_0 thn_0))) (if or-part_1 or-part_1 - (lift?_0 body_0)))))) + (lift?_0 els_0)))))) (args (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'set! hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap v_0)))) (let ((p_0 (unwrap a_0))) @@ -40260,102 +41419,218 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + a_2))) + (if (pair? + p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) #f))) #f))) #f) - (let ((rhs_0 - (let ((d_0 - (cdr (unwrap v_0)))) - (let ((d_1 - (cdr - (unwrap d_0)))) - (let ((a_0 - (car - (unwrap d_1)))) - a_0))))) - (lift?_0 rhs_0)) - (if (if (eq? - '|#%variable-reference| - hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_0)))) + (let ((d_1 + (cdr (unwrap d_0)))) + (let ((p_0 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 + (cdr p_0))) + (let ((p_1 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args))))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((or-part_0 + (lift?_0 key_0))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (lift?_0 val_0))) + (if or-part_1 + or-part_1 + (lift?_0 body_0)))))) + (args + (raise-binding-result-arity-error + 3 + args)))) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) #f) - #f + (let ((rhs_0 + (let ((d_0 + (cdr + (unwrap v_0)))) + (let ((d_1 + (cdr + (unwrap d_0)))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0))))) + (lift?_0 rhs_0)) (if (if (eq? '|#%variable-reference| hd_0) (let ((a_0 (cdr (unwrap v_0)))) - (let ((p_0 - (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 - (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_1)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_0))))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap v_0)))) - (let ((a_0 - (car + #f + (if (if (eq? + '|#%variable-reference| + hd_0) + (let ((a_0 + (cdr + (unwrap v_0)))) + (let ((p_0 + (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 + (cdr p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + (let ((id_0 + (let ((d_0 + (cdr (unwrap - d_0)))) - a_0)))) - #f) - (if (let ((p_0 (unwrap v_0))) - (if (pair? p_0) #t #f)) - (call-with-values - (lambda () - (let ((p_0 (unwrap v_0))) - (let ((rator_0 - (let ((a_0 - (car - p_0))) - a_0))) - (let ((rands_0 - (let ((d_0 - (cdr + v_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + #f) + (if (let ((p_0 + (unwrap v_0))) + (if (pair? p_0) + #t + #f)) + (call-with-values + (lambda () + (let ((p_0 + (unwrap v_0))) + (let ((rator_0 + (let ((a_0 + (car p_0))) - d_0))) - (let ((rator_1 - rator_0)) - (values - rator_1 - rands_0)))))) - (case-lambda - ((rator_0 rands_0) - (let ((or-part_0 - (lift?_0 - rator_0))) - (if or-part_0 - or-part_0 - (lift?/seq_0 - rands_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - #f))))))))))))))))))))) + a_0))) + (let ((rands_0 + (let ((d_0 + (cdr + p_0))) + d_0))) + (let ((rator_1 + rator_0)) + (values + rator_1 + rands_0)))))) + (case-lambda + ((rator_0 rands_0) + (let ((or-part_0 + (lift?_0 + rator_0))) + (if or-part_0 + or-part_0 + (lift?/seq_0 + rands_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + #f)))))))))))))))))))))) (lookup-indirected-variable_0 (|#%name| lookup-indirected-variable @@ -40395,8 +41670,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -40483,13 +41759,13 @@ loop (lambda (empties_0 frees_0 lifts_0 vs_0 ids_0) (begin - (if (null? (unwrap ids_0)) + (if (begin-unsafe (null? (unwrap ids_0))) (convert-lifted-calls-in-seq_0 vs_0 lifts_0 frees_0 empties_0) - (if (pair? (unwrap ids_0)) + (if (begin-unsafe (pair? (unwrap ids_0))) (let ((id_0 (wrap-car ids_0))) (if (indirected? (hash-ref lifts_0 (unwrap id_0) #f)) (list @@ -40548,9 +41824,9 @@ loop (lambda (args_1 frees+binds_1) (begin - (if (null? (unwrap args_1)) + (if (begin-unsafe (null? (unwrap args_1))) frees+binds_1 - (if (pair? (unwrap args_1)) + (if (begin-unsafe (pair? (unwrap args_1))) (let ((app_0 (wrap-cdr args_1))) (loop_3 app_0 @@ -40656,8 +41932,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'letrec))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'letrec))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -40681,34 +41958,38 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f) #f))) @@ -40781,8 +42062,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'letrec*))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'letrec*))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (let ((p_2 (unwrap a_1))) (if (pair? p_2) @@ -40808,35 +42090,39 @@ (let ((a_5 (cdr p_5))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f))) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) (let ((a_2 (cdr p_2))) (let ((p_3 (unwrap a_2))) (if (pair? p_3) (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f) #f))) @@ -40947,15 +42233,19 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -40999,15 +42289,19 @@ (lambda (argss_0 bodys_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -41118,134 +42412,54 @@ lifts_0 loop-if-tail_0 loops_0)) - (if (if (eq? 'begin0 hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) #t #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((v_2 - (let ((a_0 (car p_0))) a_0))) - (let ((vs_0 - (let ((d_1 (cdr p_0))) d_1))) - (let ((v_3 v_2)) - (values v_3 vs_0))))))) - (case-lambda - ((v_2 vs_0) - (let ((new-loops_0 - (find-loops_0 - v_2 - lifts_0 - hash2610 - loops_0))) - (if (null? vs_0) - new-loops_0 - (find-seq-loops_0 - find-loops_0 - vs_0 - lifts_0 - hash2610 - new-loops_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'quote hd_0) #t #f) - loops_0 - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values - tst_1 - thn_0 - els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((loops_1 - (find-loops_0 - tst_0 - lifts_0 - hash2610 - loops_0))) - (let ((loops_2 - (find-loops_0 - thn_0 - lifts_0 - loop-if-tail_0 - loops_1))) - (let ((loops_3 - (find-loops_0 - els_0 - lifts_0 - loop-if-tail_0 - loops_2))) - loops_3)))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_1)))) d_0))) + (find-seq-loops_0 + find-loops_0 + vs_0 + lifts_0 + loop-if-tail_0 + loops_0)) + (if (if (eq? 'begin0 hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) #t #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((v_2 + (let ((a_0 (car p_0))) a_0))) + (let ((vs_0 + (let ((d_1 (cdr p_0))) + d_1))) + (let ((v_3 v_2)) + (values v_3 vs_0))))))) + (case-lambda + ((v_2 vs_0) + (let ((new-loops_0 + (find-loops_0 + v_2 + lifts_0 + hash2610 + loops_0))) + (if (null? vs_0) + new-loops_0 + (find-seq-loops_0 + find-loops_0 + vs_0 + lifts_0 + hash2610 + new-loops_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? 'quote hd_0) #t #f) + loops_0 + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -41259,22 +42473,14 @@ (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -41282,70 +42488,72 @@ (call-with-values (lambda () (let ((d_0 (cdr (unwrap v_1)))) - (let ((d_1 (cdr (unwrap d_0)))) - (let ((p_0 (unwrap d_1))) - (let ((key_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_0))) - (let ((p_1 - (unwrap d_2))) - (let ((val_0 - (let ((a_0 - (car + (let ((p_0 (unwrap d_0))) + (let ((tst_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 (unwrap d_1))) + (let ((thn_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args))))))))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 + thn_0)) + (values + thn_1 + els_0))))))) + (case-lambda + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values + tst_1 + thn_0 + els_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) (case-lambda - ((key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (let ((loops_1 (find-loops_0 - key_0 + tst_0 lifts_0 hash2610 loops_0))) (let ((loops_2 (find-loops_0 - val_0 + thn_0 lifts_0 - hash2610 + loop-if-tail_0 loops_1))) - (find-loops_0 - body_0 - lifts_0 - loop-if-tail_0 - loops_2)))) + (let ((loops_3 + (find-loops_0 + els_0 + lifts_0 + loop-if-tail_0 + loops_2))) + loops_3)))) (args (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'set! hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -41354,201 +42562,314 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) + a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) #f))) #f))) #f) (call-with-values (lambda () (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) + (let ((d_1 (cdr (unwrap d_0)))) + (let ((p_0 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 (cdr p_0))) + (let ((p_1 + (unwrap d_2))) + (let ((val_0 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args))))))))) (case-lambda - ((id_0 rhs_0) - (find-loops_0 - rhs_0 - lifts_0 - hash2610 - loops_0)) + ((key_0 val_0 body_0) + (let ((loops_1 + (find-loops_0 + key_0 + lifts_0 + hash2610 + loops_0))) + (let ((loops_2 + (find-loops_0 + val_0 + lifts_0 + hash2610 + loops_1))) + (find-loops_0 + body_0 + lifts_0 + loop-if-tail_0 + loops_2)))) (args (raise-binding-result-arity-error - 2 + 3 args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) - #t + (if (if (eq? 'set! hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) #f) - (error - 'internal-error - "lift: unexpected variable reference") + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (find-loops_0 + rhs_0 + lifts_0 + hash2610 + loops_0)) + (args + (raise-binding-result-arity-error + 2 + args)))) (if (if (eq? - 'call-with-values + '|#%variable-reference| hd_0) - (let ((a_0 - (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) - #f))) + #t #f) - (call-with-values - (lambda () - (let ((d_0 - (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((producer_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((consumer_0 - (let ((d_1 - (cdr - p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((producer_1 - producer_0)) - (values - producer_1 - consumer_0))))))) - (case-lambda - ((producer_0 consumer_0) - (let ((loops_1 - (find-loops_0 - producer_0 - lifts_0 - hash2610 - loops_0))) - (find-loops-in-tail-called_0 - find-loops_0 - consumer_0 - lifts_0 - loop-if-tail_0 - loops_1))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (let ((p_0 (unwrap v_1))) - (if (pair? p_0) #t #f)) + (error + 'internal-error + "lift: unexpected variable reference") + (if (if (eq? + 'call-with-values + hd_0) + (let ((a_0 + (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 + (cdr p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) (call-with-values (lambda () - (let ((p_0 (unwrap v_1))) - (let ((rator_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((rands_0 - (let ((d_0 - (cdr + (let ((d_0 + (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((producer_0 + (let ((a_0 + (car p_0))) - d_0))) - (let ((rator_1 - rator_0)) - (values - rator_1 - rands_0)))))) + a_0))) + (let ((consumer_0 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((producer_1 + producer_0)) + (values + producer_1 + consumer_0))))))) (case-lambda - ((rator_0 rands_0) - (let ((f_0 - (unwrap rator_0))) - (let ((loops_1 - (let ((c2_0 - (if (symbol? - f_0) - (hash-ref - loop-if-tail_0 - f_0 - #f) - #f))) - (if c2_0 - (begin - (set-box! - c2_0 - #t) - loops_0) - (find-loops_0 - rator_0 - lifts_0 - hash2610 - loops_0))))) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (loops_2 - lst_0) - (begin - (if (pair? - lst_0) - (let ((rand_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((loops_3 - (let ((loops_3 - (find-loops_0 - rand_0 - lifts_0 - hash2610 - loops_2))) - (values - loops_3)))) - (for-loop_0 - loops_3 - rest_0)))) - loops_2)))))) - (for-loop_0 - loops_1 - rands_0)))))) + ((producer_0 consumer_0) + (let ((loops_1 + (find-loops_0 + producer_0 + lifts_0 + hash2610 + loops_0))) + (find-loops-in-tail-called_0 + find-loops_0 + consumer_0 + lifts_0 + loop-if-tail_0 + loops_1))) (args (raise-binding-result-arity-error 2 args)))) - (let ((x_0 (unwrap v_1))) - (if (symbol? x_0) - (hash-remove loops_0 x_0) - loops_0)))))))))))))))))))))))) + (if (let ((p_0 (unwrap v_1))) + (if (pair? p_0) #t #f)) + (call-with-values + (lambda () + (let ((p_0 (unwrap v_1))) + (let ((rator_0 + (let ((a_0 + (car + p_0))) + a_0))) + (let ((rands_0 + (let ((d_0 + (cdr + p_0))) + d_0))) + (let ((rator_1 + rator_0)) + (values + rator_1 + rands_0)))))) + (case-lambda + ((rator_0 rands_0) + (let ((f_0 + (unwrap rator_0))) + (let ((loops_1 + (let ((c2_0 + (if (symbol? + f_0) + (hash-ref + loop-if-tail_0 + f_0 + #f) + #f))) + (if c2_0 + (begin + (set-box! + c2_0 + #t) + loops_0) + (find-loops_0 + rator_0 + lifts_0 + hash2610 + loops_0))))) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (loops_2 + lst_0) + (begin + (if (pair? + lst_0) + (let ((rand_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((loops_3 + (let ((loops_3 + (find-loops_0 + rand_0 + lifts_0 + hash2610 + loops_2))) + (values + loops_3)))) + (for-loop_0 + loops_3 + rest_0)))) + loops_2)))))) + (for-loop_0 + loops_1 + rands_0)))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (let ((x_0 (unwrap v_1))) + (if (symbol? x_0) + (hash-remove loops_0 x_0) + loops_0))))))))))))))))))))))))) (if (lift-in?_0 v_0) (with-continuation-mark* authentic @@ -41753,8 +43074,9 @@ body->expr (lambda (body_0) (begin - (if (if (pair? (unwrap body_0)) - (let ((v_0 (wrap-cdr body_0))) (null? (unwrap v_0))) + (if (if (begin-unsafe (pair? (unwrap body_0))) + (let ((v_0 (wrap-cdr body_0))) + (begin-unsafe (null? (unwrap v_0)))) #f) (wrap-car body_0) (list* 'begin body_0)))))) @@ -41777,8 +43099,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -41879,8 +43202,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((var_0 @@ -41892,8 +43216,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((var_0 @@ -41908,8 +43233,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -41932,8 +43258,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((m_1 @@ -41985,8 +43312,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -42089,24 +43417,27 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap a_3))))) (let ((a_3 (cdr p_2))) (let ((p_3 (unwrap a_3))) (if (pair? p_3) (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f) #f))) @@ -42180,8 +43511,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -42207,8 +43539,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -42238,14 +43571,19 @@ for-loop (lambda (env_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -42325,13 +43663,14 @@ (if (let ((a_4 (car p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) (let ((a_4 (cdr p_3))) @@ -42343,26 +43682,28 @@ (let ((a_5 (cdr p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) #f))) #f) #f))) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f) #f))) #f))) @@ -42469,13 +43810,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -42551,13 +43893,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -42649,9 +43992,10 @@ free_0 lifts_0) (begin - (if (null? (unwrap vs_0)) + (if (begin-unsafe (null? (unwrap vs_0))) (values null free_0 lifts_0) - (if (let ((v_0 (wrap-cdr vs_0))) (null? (unwrap v_0))) + (if (let ((v_0 (wrap-cdr vs_0))) + (begin-unsafe (null? (unwrap v_0)))) (call-with-values (lambda () (jitify-expr_0 @@ -42707,9 +44051,9 @@ loop (lambda (mutables_0 args_0) (begin - (if (null? (unwrap args_0)) + (if (begin-unsafe (null? (unwrap args_0))) null - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((id_0 (wrap-car args_0))) (let ((var_0 (unwrap id_0))) (let ((rest_0 (loop_4 mutables_0 (wrap-cdr args_0)))) @@ -42736,8 +44080,9 @@ args_0 replace?3_0)) (args (raise-binding-result-arity-error 2 args)))) - (if (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap args5_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap args5_0)))) env4_0 (add-one_0 env4_0 replace?3_0 args5_0)))))))) (lambda (v_0 @@ -42851,11 +44196,13 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f))) #f) @@ -43211,13 +44558,17 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -43254,13 +44605,17 @@ for-loop (lambda (argss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -43582,229 +44937,114 @@ new-lifts_0)) (args (raise-binding-result-arity-error 3 args))))) - (if (if (eq? 'begin0 hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) #t #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((v0_0 (let ((a_0 (car p_0))) a_0))) - (let ((vs_0 - (let ((d_1 (cdr p_0))) d_1))) - (let ((v0_1 v0_0)) - (values v0_1 vs_0))))))) - (case-lambda - ((v0_0 vs_0) - (call-with-values - (lambda () - (jitify-expr_0 - v0_0 - env_0 - mutables_0 - free_0 - lifts_0 - (convert-mode-non-tail_0 convert-mode_0) - name_0 - in-name_0)) - (case-lambda - ((new-v0_0 v0-free_0 v0-lifts_0) + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_1)))) d_0))) + (jitify-expr_0 + (list* 'begin vs_0) + env_0 + mutables_0 + free_0 + lifts_0 + convert-mode_0 + name_0 + in-name_0)) + (if (if (eq? 'begin0 hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) #t #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((v0_0 + (let ((a_0 (car p_0))) a_0))) + (let ((vs_0 + (let ((d_1 (cdr p_0))) d_1))) + (let ((v0_1 v0_0)) + (values v0_1 vs_0))))))) + (case-lambda + ((v0_0 vs_0) + (call-with-values + (lambda () + (jitify-expr_0 + v0_0 + env_0 + mutables_0 + free_0 + lifts_0 + (convert-mode-non-tail_0 convert-mode_0) + name_0 + in-name_0)) + (case-lambda + ((new-v0_0 v0-free_0 v0-lifts_0) + (call-with-values + (lambda () + (jitify-body_0 + vs_0 + env_0 + mutables_0 + v0-free_0 + v0-lifts_0 + (convert-mode-non-tail_0 + convert-mode_0) + #f + in-name_0)) + (case-lambda + ((new-body_0 new-free_0 new-lifts_0) + (values + (reannotate + v_1 + (list* 'begin0 new-v0_0 new-body_0)) + new-free_0 + new-lifts_0)) + (args + (raise-binding-result-arity-error + 3 + args))))) + (args + (raise-binding-result-arity-error + 3 + args))))) + (args + (raise-binding-result-arity-error 2 args)))) + (if (if (eq? '$value hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) + #f))) + #f) + (let ((e_0 + (let ((d_0 (cdr (unwrap v_1)))) + (let ((a_0 (car (unwrap d_0)))) + a_0)))) (call-with-values (lambda () - (jitify-body_0 - vs_0 + (jitify-expr_0 + e_0 env_0 mutables_0 - v0-free_0 - v0-lifts_0 - (convert-mode-non-tail_0 - convert-mode_0) - #f + free_0 + lifts_0 + convert-mode_0 + name_0 in-name_0)) (case-lambda - ((new-body_0 new-free_0 new-lifts_0) + ((new-e_0 new-free_0 new-lifts_0) (values - (reannotate - v_1 - (list* 'begin0 new-v0_0 new-body_0)) + (reannotate v_1 (list '$value new-e_0)) new-free_0 new-lifts_0)) (args (raise-binding-result-arity-error 3 args))))) - (args - (raise-binding-result-arity-error - 3 - args))))) - (args - (raise-binding-result-arity-error 2 args)))) - (if (if (eq? '$value hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) - #f))) - #f) - (let ((e_0 - (let ((d_0 (cdr (unwrap v_1)))) - (let ((a_0 (car (unwrap d_0)))) - a_0)))) - (call-with-values - (lambda () - (jitify-expr_0 - e_0 - env_0 - mutables_0 - free_0 - lifts_0 - convert-mode_0 - name_0 - in-name_0)) - (case-lambda - ((new-e_0 new-free_0 new-lifts_0) - (values - (reannotate v_1 (list '$value new-e_0)) - new-free_0 - new-lifts_0)) - (args - (raise-binding-result-arity-error - 3 - args))))) - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 (car p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values tst_1 thn_0 els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((sub-convert-mode_0 - (convert-mode-non-tail_0 - convert-mode_0))) - (call-with-values - (lambda () - (jitify-expr_0 - tst_0 - env_0 - mutables_0 - free_0 - lifts_0 - sub-convert-mode_0 - #f - in-name_0)) - (case-lambda - ((new-tst_0 - new-free/tst_0 - new-lifts/tst_0) - (call-with-values - (lambda () - (jitify-expr_0 - thn_0 - env_0 - mutables_0 - new-free/tst_0 - new-lifts/tst_0 - convert-mode_0 - name_0 - in-name_0)) - (case-lambda - ((new-thn_0 - new-free/thn_0 - new-lifts/thn_0) - (call-with-values - (lambda () - (jitify-expr_0 - els_0 - env_0 - mutables_0 - new-free/thn_0 - new-lifts/thn_0 - convert-mode_0 - name_0 - in-name_0)) - (case-lambda - ((new-els_0 - new-free/els_0 - new-lifts/els_0) - (values - (reannotate - v_1 - (list - 'if - new-tst_0 - new-thn_0 - new-els_0)) - new-free/els_0 - new-lifts/els_0)) - (args - (raise-binding-result-arity-error - 3 - args))))) - (args - (raise-binding-result-arity-error - 3 - args))))) - (args - (raise-binding-result-arity-error - 3 - args)))))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? 'with-continuation-mark* hd_0) + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -43816,21 +45056,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -43839,73 +45072,45 @@ (lambda () (let ((d_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values (lambda () (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_1))) - (let ((p_2 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) - (values - mode_1 - key_0 - val_0 - body_0))) + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values tst_1 thn_0 els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (let ((sub-convert-mode_0 (convert-mode-non-tail_0 convert-mode_0))) (call-with-values (lambda () (jitify-expr_0 - key_0 + tst_0 env_0 mutables_0 free_0 @@ -43914,50 +45119,49 @@ #f in-name_0)) (case-lambda - ((new-key_0 - new-free/key_0 - new-lifts/key_0) + ((new-tst_0 + new-free/tst_0 + new-lifts/tst_0) (call-with-values (lambda () (jitify-expr_0 - val_0 + thn_0 env_0 mutables_0 - new-free/key_0 - new-lifts/key_0 - sub-convert-mode_0 - #f + new-free/tst_0 + new-lifts/tst_0 + convert-mode_0 + name_0 in-name_0)) (case-lambda - ((new-val_0 - new-free/val_0 - new-lifts/val_0) + ((new-thn_0 + new-free/thn_0 + new-lifts/thn_0) (call-with-values (lambda () (jitify-expr_0 - body_0 + els_0 env_0 mutables_0 - new-free/val_0 - new-lifts/val_0 + new-free/thn_0 + new-lifts/thn_0 convert-mode_0 name_0 in-name_0)) (case-lambda - ((new-body_0 - new-free/body_0 - new-lifts/body_0) + ((new-els_0 + new-free/els_0 + new-lifts/els_0) (values (reannotate v_1 (list - 'with-continuation-mark* - mode_0 - new-key_0 - new-val_0 - new-body_0)) - new-free/body_0 - new-lifts/body_0)) + 'if + new-tst_0 + new-thn_0 + new-els_0)) + new-free/els_0 + new-lifts/els_0)) (args (raise-binding-result-arity-error 3 @@ -43972,308 +45176,197 @@ args)))))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'quote hd_0) + (if (if (eq? 'with-continuation-mark* hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (let ((p_2 + (unwrap a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) + #f))) #f))) #f) - (values v_1 free_0 lifts_0) - (if (if (eq? 'set! hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((var_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((var_1 var_0)) - (values var_1 rhs_0))))))) - (case-lambda - ((var_0 rhs_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((mode_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 + (cdr p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) + (case-lambda + ((mode_0 key_0 val_0 body_0) + (let ((sub-convert-mode_0 + (convert-mode-non-tail_0 + convert-mode_0))) (call-with-values (lambda () (jitify-expr_0 - rhs_0 + key_0 env_0 mutables_0 free_0 lifts_0 - (convert-mode-non-tail_0 - convert-mode_0) - var_0 + sub-convert-mode_0 + #f in-name_0)) (case-lambda - ((new-rhs_0 - new-free_0 - new-lifts_0) - (let ((id_0 (unwrap var_0))) - (let ((dest_0 - (hash-ref - env_0 - id_0 - #f))) - (if (if (not in-name_0) - (let ((hd_1 - (let ((p_0 - (unwrap - dest_0))) - (if (pair? - p_0) - (unwrap - (car p_0)) - #f)))) - (if (if (eq? - 'variable-ref - hd_1) - (let ((a_0 - (cdr - (unwrap - dest_0)))) - (let ((p_0 - (unwrap - a_0))) - (if (pair? - p_0) - (let ((a_1 - (cdr - p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) - #f) - #t - #f)) - #f) + ((new-key_0 + new-free/key_0 + new-lifts/key_0) + (call-with-values + (lambda () + (jitify-expr_0 + val_0 + env_0 + mutables_0 + new-free/key_0 + new-lifts/key_0 + sub-convert-mode_0 + #f + in-name_0)) + (case-lambda + ((new-val_0 + new-free/val_0 + new-lifts/val_0) + (call-with-values + (lambda () + (jitify-expr_0 + body_0 + env_0 + mutables_0 + new-free/val_0 + new-lifts/val_0 + convert-mode_0 + name_0 + in-name_0)) + (case-lambda + ((new-body_0 + new-free/body_0 + new-lifts/body_0) (values - (list - 'set! - var_0 - new-rhs_0) - new-free_0 - new-lifts_0) - (let ((newer-free_0 - (if dest_0 - (hash-set - new-free_0 - id_0 - dest_0) - new-free_0))) - (let ((new-v_0 - (let ((v_2 - (hash-ref - env_0 - id_0 - kw2846))) - (if (let ((a_0 - kw2846)) - (let ((app_0 - (unwrap - a_0))) - (eq? - app_0 - (unwrap - v_2)))) - (reannotate - v_1 - (list - 'set! - var_0 - new-rhs_0)) - (if (let ((p_0 - (unwrap - v_2))) - (if (pair? - p_0) - (if (let ((a_0 - (car - p_0))) - (let ((app_0 - (unwrap - 'self))) - (eq? - app_0 - (unwrap - a_0)))) - (let ((a_0 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - #t - #f))) - #f) - #f)) - (let ((m_0 - (let ((d_0 - (cdr - (unwrap - v_2)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (error - 'set! - "[internal error] self-referenceable ~s" - id_0)) - (if (let ((p_0 - (unwrap - v_2))) - (if (pair? - p_0) - (if (let ((a_0 - (car - p_0))) - (let ((app_0 - (unwrap - 'variable-ref))) - (eq? - app_0 - (unwrap - a_0)))) - (let ((a_0 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - (let ((a_1 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) - #f) - #f)) - (let ((var-id_0 - (let ((d_0 - (cdr - (unwrap - v_2)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (reannotate - v_1 - (list - 'variable-set! - var-id_0 - new-rhs_0))) - (if (let ((p_0 - (unwrap - v_2))) - (if (pair? - p_0) - (if (let ((a_0 - (car - p_0))) - (let ((app_0 - (unwrap - 'unsafe-unbox*))) - (eq? - app_0 - (unwrap - a_0)))) - (let ((a_0 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - (let ((a_1 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) - #f))) - #f) - #f)) - (let ((box-id_0 - (let ((d_0 - (cdr - (unwrap - v_2)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (reannotate - v_1 - (list - 'set-box*! - box-id_0 - new-rhs_0))) - (error - 'match - "failed ~e" - v_2)))))))) - (values - new-v_0 - newer-free_0 - new-lifts_0))))))) + (reannotate + v_1 + (list + 'with-continuation-mark* + mode_0 + new-key_0 + new-val_0 + new-body_0)) + new-free/body_0 + new-lifts/body_0)) + (args + (raise-binding-result-arity-error + 3 + args))))) + (args + (raise-binding-result-arity-error + 3 + args))))) (args (raise-binding-result-arity-error 3 - args))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'call-with-values hd_0) + args)))))) + (args + (raise-binding-result-arity-error + 4 + args)))) + (if (if (eq? 'quote hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) + #f))) + #f) + (values v_1 free_0 lifts_0) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -44282,12 +45375,14 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -44295,10 +45390,10 @@ (lambda () (let ((d_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap d_0))) - (let ((proc1_0 + (let ((var_0 (let ((a_0 (car p_0))) a_0))) - (let ((proc2_0 + (let ((rhs_0 (let ((d_1 (cdr p_0))) (let ((a_0 @@ -44306,301 +45401,29 @@ (unwrap d_1)))) a_0)))) - (let ((proc1_1 proc1_0)) + (let ((var_1 var_0)) (values - proc1_1 - proc2_0))))))) + var_1 + rhs_0))))))) (case-lambda - ((proc1_0 proc2_0) - (let ((proc-convert-mode_0 - (convert-mode-called_0 - convert-mode_0))) - (call-with-values - (lambda () - (jitify-expr_0 - proc1_0 - env_0 - mutables_0 - free_0 - lifts_0 - proc-convert-mode_0 - #f - in-name_0)) - (case-lambda - ((new-proc1_0 - new-free1_0 - new-lifts1_0) - (call-with-values - (lambda () - (jitify-expr_0 - proc2_0 - env_0 - mutables_0 - new-free1_0 - new-lifts1_0 - proc-convert-mode_0 - #f - in-name_0)) - (case-lambda - ((new-proc2_0 - new-free2_0 - new-lifts2_0) - (let ((call-with-values-id_0 - (if (if (lambda?_0 - new-proc1_0) - (lambda?_0 - new-proc2_0) - #f) - 'call-with-values - '|#%call-with-values|))) - (values - (reannotate - v_1 - (list - call-with-values-id_0 - new-proc1_0 - new-proc2_0)) - new-free2_0 - new-lifts2_0))) - (args - (raise-binding-result-arity-error - 3 - args))))) - (args - (raise-binding-result-arity-error - 3 - args)))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? - 'call-with-module-prompt - hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (wrap-list? a_1)) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((proc_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((var-info_0 - (let ((d_1 - (cdr p_0))) - (unwrap-list - d_1)))) - (let ((proc_1 proc_0)) - (values - proc_1 - var-info_0))))))) - (case-lambda - ((proc_0 var-info_0) - (let ((proc-convert-mode_0 - (convert-mode-called_0 - convert-mode_0))) - (call-with-values - (lambda () - (jitify-expr_0 - proc_0 - env_0 - mutables_0 - free_0 - lifts_0 - proc-convert-mode_0 - #f - in-name_0)) - (case-lambda - ((new-proc_0 - new-free_0 - new-lifts_0) - (values - (reannotate - v_1 - (list* - 'call-with-module-prompt - new-proc_0 - var-info_0)) - new-free_0 - new-lifts_0)) - (args - (raise-binding-result-arity-error - 3 - args)))))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? '|#%app| hd_0) - (let ((a_0 - (cdr (unwrap v_1)))) - (wrap-list? a_0)) - #f) - (call-with-values - (lambda () - (let ((app_0 (wrap-cdr v_1))) - (jitify-body_0 - app_0 - env_0 - mutables_0 - free_0 - lifts_0 - (convert-mode-non-tail_0 - convert-mode_0) - #f - in-name_0))) - (case-lambda - ((new-vs_0 - new-free_0 - new-lifts_0) - (values - (reannotate - v_1 - (list* '|#%app| new-vs_0)) - new-free_0 - new-lifts_0)) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (let ((p_0 (unwrap v_1))) - (if (pair? p_0) - (let ((a_0 (cdr p_0))) - (wrap-list? a_0)) - #f)) - (let ((rator_0 - (let ((a_0 - (car - (unwrap v_1)))) - a_0))) - (let ((u_0 (unwrap rator_0))) - (let ((v_2 - (if (symbol? u_0) - (hash-ref - env_0 - u_0 - #f) - #f))) - (let ((hd_1 - (let ((p_0 - (unwrap - v_2))) - (if (pair? p_0) - (unwrap - (car p_0)) - #f)))) - (if (if (eq? - 'self - hd_1) - (let ((a_0 - (cdr - (unwrap - v_2)))) - (let ((p_0 - (unwrap - a_0))) - (if (pair? - p_0) - (let ((a_1 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) - #f))) - #f) - (let ((orig-id_0 - (let ((d_0 - (cdr - (unwrap - v_2)))) - (let ((d_1 - (cdr - (unwrap - d_0)))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0))))) - (call-with-values - (lambda () - (let ((app_0 - (wrap-cdr - v_1))) - (jitify-body_0 - app_0 - env_0 - mutables_0 - free_0 - lifts_0 - (convert-mode-non-tail_0 - convert-mode_0) - #f - in-name_0))) - (case-lambda - ((new-vs_0 - new-free_0 - new-lifts_0) - (values - (reannotate - v_1 - (list* - rator_0 - new-vs_0)) - new-free_0 - new-lifts_0)) - (args - (raise-binding-result-arity-error - 3 - args))))) - (call-with-values - (lambda () - (jitify-body_0 - v_1 - env_0 - mutables_0 - free_0 - lifts_0 - (convert-mode-non-tail_0 - convert-mode_0) - #f - in-name_0)) - (case-lambda - ((new-vs_0 - new-free_0 - new-lifts_0) - (values - (reannotate - v_1 - new-vs_0) - new-free_0 - new-lifts_0)) - (args - (raise-binding-result-arity-error - 3 - args))))))))) - (let ((id_0 (unwrap v_1))) + ((var_0 rhs_0) + (call-with-values + (lambda () + (jitify-expr_0 + rhs_0 + env_0 + mutables_0 + free_0 + lifts_0 + (convert-mode-non-tail_0 + convert-mode_0) + var_0 + in-name_0)) + (case-lambda + ((new-rhs_0 + new-free_0 + new-lifts_0) + (let ((id_0 (unwrap var_0))) (let ((dest_0 (hash-ref env_0 @@ -44632,95 +45455,685 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) #t #f)) #f) (values - v_1 - free_0 - lifts_0) - (let ((new-var_0 - (if (let ((app_0 - (unwrap - #f))) - (eq? - app_0 - (unwrap - dest_0))) - v_1 - (if (let ((a_0 - kw2846)) - (let ((app_0 - (unwrap - a_0))) - (eq? - app_0 - (unwrap - dest_0)))) - v_1 - (if (let ((p_0 - (unwrap - dest_0))) - (if (pair? - p_0) - (if (let ((a_0 - (car + (list + 'set! + var_0 + new-rhs_0) + new-free_0 + new-lifts_0) + (let ((newer-free_0 + (if dest_0 + (hash-set + new-free_0 + id_0 + dest_0) + new-free_0))) + (let ((new-v_0 + (let ((v_2 + (hash-ref + env_0 + id_0 + kw2846))) + (if (let ((a_0 + kw2846)) + (begin-unsafe + (let ((app_0 + (unwrap + a_0))) + (eq? + app_0 + (unwrap + v_2))))) + (reannotate + v_1 + (list + 'set! + var_0 + new-rhs_0)) + (if (let ((p_0 + (unwrap + v_2))) + (if (pair? + p_0) + (if (let ((a_0 + (car + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + 'self))) + (eq? + app_0 + (unwrap + a_0))))) + (let ((a_0 + (cdr p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + #t + #f))) + #f) + #f)) + (let ((m_0 + (let ((d_0 + (cdr + (unwrap + v_2)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (error + 'set! + "[internal error] self-referenceable ~s" + id_0)) + (if (let ((p_0 + (unwrap + v_2))) + (if (pair? + p_0) + (if (let ((a_0 + (car + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + 'variable-ref))) + (eq? + app_0 + (unwrap + a_0))))) + (let ((a_0 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + (let ((a_1 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + #f)) + (let ((var-id_0 + (let ((d_0 + (cdr + (unwrap + v_2)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (reannotate + v_1 + (list + 'variable-set! + var-id_0 + new-rhs_0))) + (if (let ((p_0 + (unwrap + v_2))) + (if (pair? + p_0) + (if (let ((a_0 + (car + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + 'unsafe-unbox*))) + (eq? + app_0 + (unwrap + a_0))))) + (let ((a_0 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + (let ((a_1 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + #f)) + (let ((box-id_0 + (let ((d_0 + (cdr + (unwrap + v_2)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (reannotate + v_1 + (list + 'set-box*! + box-id_0 + new-rhs_0))) + (error + 'match + "failed ~e" + v_2)))))))) + (values + new-v_0 + newer-free_0 + new-lifts_0))))))) + (args + (raise-binding-result-arity-error + 3 + args))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? 'call-with-values hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((proc1_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((proc2_0 + (let ((d_1 + (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((proc1_1 proc1_0)) + (values + proc1_1 + proc2_0))))))) + (case-lambda + ((proc1_0 proc2_0) + (let ((proc-convert-mode_0 + (convert-mode-called_0 + convert-mode_0))) + (call-with-values + (lambda () + (jitify-expr_0 + proc1_0 + env_0 + mutables_0 + free_0 + lifts_0 + proc-convert-mode_0 + #f + in-name_0)) + (case-lambda + ((new-proc1_0 + new-free1_0 + new-lifts1_0) + (call-with-values + (lambda () + (jitify-expr_0 + proc2_0 + env_0 + mutables_0 + new-free1_0 + new-lifts1_0 + proc-convert-mode_0 + #f + in-name_0)) + (case-lambda + ((new-proc2_0 + new-free2_0 + new-lifts2_0) + (let ((call-with-values-id_0 + (if (if (lambda?_0 + new-proc1_0) + (lambda?_0 + new-proc2_0) + #f) + 'call-with-values + '|#%call-with-values|))) + (values + (reannotate + v_1 + (list + call-with-values-id_0 + new-proc1_0 + new-proc2_0)) + new-free2_0 + new-lifts2_0))) + (args + (raise-binding-result-arity-error + 3 + args))))) + (args + (raise-binding-result-arity-error + 3 + args)))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + 'call-with-module-prompt + hd_0) + (let ((a_0 + (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (wrap-list? a_1)) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 + (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((proc_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((var-info_0 + (let ((d_1 + (cdr + p_0))) + (unwrap-list + d_1)))) + (let ((proc_1 proc_0)) + (values + proc_1 + var-info_0))))))) + (case-lambda + ((proc_0 var-info_0) + (let ((proc-convert-mode_0 + (convert-mode-called_0 + convert-mode_0))) + (call-with-values + (lambda () + (jitify-expr_0 + proc_0 + env_0 + mutables_0 + free_0 + lifts_0 + proc-convert-mode_0 + #f + in-name_0)) + (case-lambda + ((new-proc_0 + new-free_0 + new-lifts_0) + (values + (reannotate + v_1 + (list* + 'call-with-module-prompt + new-proc_0 + var-info_0)) + new-free_0 + new-lifts_0)) + (args + (raise-binding-result-arity-error + 3 + args)))))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? '|#%app| hd_0) + (let ((a_0 + (cdr (unwrap v_1)))) + (wrap-list? a_0)) + #f) + (call-with-values + (lambda () + (let ((app_0 + (wrap-cdr v_1))) + (jitify-body_0 + app_0 + env_0 + mutables_0 + free_0 + lifts_0 + (convert-mode-non-tail_0 + convert-mode_0) + #f + in-name_0))) + (case-lambda + ((new-vs_0 + new-free_0 + new-lifts_0) + (values + (reannotate + v_1 + (list* '|#%app| new-vs_0)) + new-free_0 + new-lifts_0)) + (args + (raise-binding-result-arity-error + 3 + args)))) + (if (let ((p_0 (unwrap v_1))) + (if (pair? p_0) + (let ((a_0 (cdr p_0))) + (wrap-list? a_0)) + #f)) + (let ((rator_0 + (let ((a_0 + (car + (unwrap + v_1)))) + a_0))) + (let ((u_0 + (unwrap rator_0))) + (let ((v_2 + (if (symbol? u_0) + (hash-ref + env_0 + u_0 + #f) + #f))) + (let ((hd_1 + (let ((p_0 + (unwrap + v_2))) + (if (pair? + p_0) + (unwrap + (car p_0)) + #f)))) + (if (if (eq? + 'self + hd_1) + (let ((a_0 + (cdr + (unwrap + v_2)))) + (let ((p_0 + (unwrap + a_0))) + (if (pair? + p_0) + (let ((a_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe (let ((app_0 (unwrap - 'self))) + '()))) (eq? app_0 (unwrap - a_0)))) - (let ((a_0 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - #t - #f))) - #f) - #f)) - (let ((u_0 - (let ((d_0 + a_2))))) + #f))) + #f))) + #f) + (let ((orig-id_0 + (let ((d_0 + (cdr + (unwrap + v_2)))) + (let ((d_1 + (cdr + (unwrap + d_0)))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0))))) + (call-with-values + (lambda () + (let ((app_0 + (wrap-cdr + v_1))) + (jitify-body_0 + app_0 + env_0 + mutables_0 + free_0 + lifts_0 + (convert-mode-non-tail_0 + convert-mode_0) + #f + in-name_0))) + (case-lambda + ((new-vs_0 + new-free_0 + new-lifts_0) + (values + (reannotate + v_1 + (list* + rator_0 + new-vs_0)) + new-free_0 + new-lifts_0)) + (args + (raise-binding-result-arity-error + 3 + args))))) + (call-with-values + (lambda () + (jitify-body_0 + v_1 + env_0 + mutables_0 + free_0 + lifts_0 + (convert-mode-non-tail_0 + convert-mode_0) + #f + in-name_0)) + (case-lambda + ((new-vs_0 + new-free_0 + new-lifts_0) + (values + (reannotate + v_1 + new-vs_0) + new-free_0 + new-lifts_0)) + (args + (raise-binding-result-arity-error + 3 + args))))))))) + (let ((id_0 (unwrap v_1))) + (let ((dest_0 + (hash-ref + env_0 + id_0 + #f))) + (if (if (not in-name_0) + (let ((hd_1 + (let ((p_0 + (unwrap + dest_0))) + (if (pair? + p_0) + (unwrap + (car + p_0)) + #f)))) + (if (if (eq? + 'variable-ref + hd_1) + (let ((a_0 + (cdr + (unwrap + dest_0)))) + (let ((p_0 + (unwrap + a_0))) + (if (pair? + p_0) + (let ((a_1 (cdr - (unwrap - dest_0)))) - (let ((a_0 - (car + p_0))) + (begin-unsafe + (let ((app_0 (unwrap - d_0)))) - a_0)))) + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) + #f) + #t + #f)) + #f) + (values + v_1 + free_0 + lifts_0) + (let ((new-var_0 + (if (begin-unsafe + (let ((app_0 + (unwrap + #f))) + (eq? + app_0 + (unwrap + dest_0)))) + v_1 + (if (let ((a_0 + kw2846)) + (begin-unsafe + (let ((app_0 + (unwrap + a_0))) + (eq? + app_0 + (unwrap + dest_0))))) + v_1 + (if (let ((p_0 + (unwrap + dest_0))) + (if (pair? + p_0) + (if (let ((a_0 + (car + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + 'self))) + (eq? + app_0 + (unwrap + a_0))))) + (let ((a_0 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + #t + #f))) + #f) + #f)) + (let ((u_0 + (let ((d_0 + (cdr + (unwrap + dest_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + (reannotate + v_1 + u_0)) (reannotate v_1 - u_0)) - (reannotate - v_1 - dest_0)))))) - (let ((new-free_0 - (if dest_0 - (hash-set - free_0 - id_0 - dest_0) - free_0))) - (values - new-var_0 - new-free_0 - lifts_0))))))))))))))))))))))))))) + dest_0)))))) + (let ((new-free_0 + (if dest_0 + (hash-set + free_0 + id_0 + dest_0) + free_0))) + (values + new-var_0 + new-free_0 + lifts_0)))))))))))))))))))))))))))) (lambda?_0 procz2) (jitify-body_0 (|#%name| @@ -44771,15 +46184,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -44801,13 +46218,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -44852,15 +46270,19 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -45340,7 +46762,8 @@ mutables_0 convert-mode_0)) (args (raise-binding-result-arity-error 2 args)))) - (if (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0)))) env_0 (add-one_1 convert-mode-box-mutables?_0 @@ -45375,7 +46798,8 @@ var-rec?_0 convert-mode_0)) (args (raise-binding-result-arity-error 2 args)))) - (if (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0)))) env_0 (add-one_2 convert-mode-box-mutables?_0 @@ -45400,7 +46824,8 @@ ((id_0 args_1) (remove-args_0 (hash-remove env_0 (unwrap id_0)) args_1)) (args (raise-binding-result-arity-error 2 args)))) - (if (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap args_0)))) env_0 (hash-remove env_0 (unwrap args_0)))))))) (add-bindings_0 @@ -45416,13 +46841,15 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -45437,13 +46864,14 @@ (let ((a_1 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f)))) (values result_1)))) @@ -45466,13 +46894,17 @@ for-loop (lambda (ids_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -45529,11 +46961,15 @@ (if (pair? p_0) (if (let ((a_1 (car p_0))) (let ((a_2 kw2846)) - (let ((app_0 (unwrap a_2))) - (eq? app_0 (unwrap a_1))))) + (begin-unsafe + (let ((app_0 (unwrap a_2))) + (eq? + app_0 + (unwrap a_1)))))) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f) #f))) #f) @@ -45546,31 +46982,34 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (if (let ((a_2 (car p_1))) - (let ((app_0 - (unwrap - 'variable-ref))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'variable-ref))) + (eq? + app_0 + (unwrap a_2))))) (let ((a_2 (cdr p_1))) (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f) #f))) #f) @@ -45593,12 +47032,14 @@ (if (pair? p_1) (if (let ((a_2 (car p_1))) - (let ((app_0 - (unwrap - 'unsafe-unbox*))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'unsafe-unbox*))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_1))) (let ((p_2 (unwrap @@ -45607,19 +47048,21 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f) #f))) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f) #f))) #f) @@ -45662,13 +47105,15 @@ loop (lambda (args_1 count_0) (begin - (if (null? - (unwrap args_1)) + (if (begin-unsafe + (null? + (unwrap args_1))) (arithmetic-shift 1 count_0) - (if (pair? - (unwrap args_1)) + (if (begin-unsafe + (pair? + (unwrap args_1))) (let ((app_0 (wrap-cdr args_1))) @@ -45691,7 +47136,7 @@ de-dot (lambda (args_0) (begin - (if (pair? (unwrap args_0)) + (if (begin-unsafe (pair? (unwrap args_0))) (let ((app_0 (wrap-car args_0))) (cons app_0 (de-dot_0 (wrap-cdr args_0)))) (list args_0)))))) @@ -45760,13 +47205,17 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -45803,13 +47252,17 @@ for-loop (lambda (argss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -45916,70 +47369,11 @@ (let ((vs_0 (let ((d_0 (cdr (unwrap v_1)))) d_0))) (body-find-mutable_0 env_0 vs_0 accum_0)) - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 (car p_1))) - a_0))) - (let ((els_0 - (let ((d_2 (cdr p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values tst_1 thn_0 els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (find-mutable_0 - env_0 - tst_0 - (find-mutable_0 - env_0 - thn_0 - (find-mutable_0 env_0 els_0 accum_0)))) - (args - (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'with-continuation-mark* hd_0) + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_1)))) d_0))) + (body-find-mutable_0 env_0 vs_0 accum_0)) + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -45990,20 +47384,13 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap a_3))) - (if (pair? p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -46012,132 +47399,224 @@ (lambda () (let ((d_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values (lambda () (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_1))) - (let ((p_2 - (unwrap d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) - (values - mode_1 - key_0 - val_0 - body_0))) + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values tst_1 thn_0 els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (find-mutable_0 env_0 - key_0 + tst_0 (find-mutable_0 env_0 - val_0 - (find-mutable_0 env_0 body_0 accum_0)))) + thn_0 + (find-mutable_0 env_0 els_0 accum_0)))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'quote hd_0) + (if (if (eq? 'with-continuation-mark* hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (let ((p_2 (unwrap a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) + #f))) #f))) #f) - accum_0 - (if (if (eq? 'set! hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((mode_0 + (let ((a_0 (car p_0))) a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 (cdr p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) + (case-lambda + ((mode_0 key_0 val_0 body_0) + (find-mutable_0 + env_0 + key_0 + (find-mutable_0 + env_0 + val_0 + (find-mutable_0 + env_0 + body_0 + accum_0)))) + (args + (raise-binding-result-arity-error + 4 + args)))) + (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((var_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 (cdr p_0))) - (let ((a_0 - (car - (unwrap d_1)))) - a_0)))) - (let ((var_1 var_0)) - (values var_1 rhs_0))))))) - (case-lambda - ((var_0 rhs_0) - (let ((id_0 (unwrap var_0))) - (find-mutable_0 - env_0 - rhs_0 - (if (hash-ref env_0 id_0 #f) - (hash-set accum_0 id_0 #t) - accum_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (wrap-list? v_1) - (body-find-mutable_0 env_0 v_1 accum_0) - accum_0))))))))))))))))) + accum_0 + (if (if (eq? 'set! hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((var_0 + (let ((a_0 (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((var_1 var_0)) + (values var_1 rhs_0))))))) + (case-lambda + ((var_0 rhs_0) + (let ((id_0 (unwrap var_0))) + (find-mutable_0 + env_0 + rhs_0 + (if (hash-ref env_0 id_0 #f) + (hash-set accum_0 id_0 #t) + accum_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (wrap-list? v_1) + (body-find-mutable_0 + env_0 + v_1 + accum_0) + accum_0)))))))))))))))))) (body-find-mutable_0 (|#%name| body-find-mutable @@ -46150,13 +47629,13 @@ for-loop (lambda (accum_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -46189,15 +47668,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -46219,13 +47702,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -46270,15 +47754,19 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -46506,7 +47994,9 @@ (case-lambda ((args_0 body_0) (let ((size_0 (body-record-sizes!_0 body_0 sizes_0))) - (begin (begin (hash-set! sizes_0 v_1 size_0) size_0)))) + (begin-unsafe + (begin + (begin (hash-set! sizes_0 v_1 size_0) size_0))))) (args (raise-binding-result-arity-error 2 args)))) (if (if (eq? 'case-lambda hd_0) (let ((a_0 (cdr (unwrap v_1)))) @@ -46518,13 +48008,17 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -46559,15 +48053,19 @@ for-loop (lambda (bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -46612,10 +48110,11 @@ (for-loop_0 result_1 rest_0)))) result_0)))))) (for-loop_0 0 bodys_0))))) - (begin - (begin - (hash-set! sizes_0 v_1 new-size_0) - new-size_0)))) + (begin-unsafe + (begin + (begin + (hash-set! sizes_0 v_1 new-size_0) + new-size_0))))) (if (if (eq? 'let hd_0) #t #f) (record-sizes-in-let!_0 v_1 sizes_0) (if (if (eq? 'letrec hd_0) #t #f) @@ -46629,72 +48128,11 @@ (let ((vs_0 (let ((d_0 (cdr (unwrap v_1)))) d_0))) (add1 (body-record-sizes!_0 vs_0 sizes_0))) - (if (if (eq? 'if hd_0) - (let ((a_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_3)))) - #f))) - #f))) - #f))) - #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap v_1)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 (car p_1))) - a_0))) - (let ((els_0 - (let ((d_2 (cdr p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values tst_1 thn_0 els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((app_0 - (record-sizes!_0 tst_0 sizes_0))) - (let ((app_1 - (record-sizes!_0 thn_0 sizes_0))) - (+ - 1 - app_0 - app_1 - (record-sizes!_0 els_0 sizes_0))))) - (args - (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'with-continuation-mark* hd_0) + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap v_1)))) d_0))) + (add1 (body-record-sizes!_0 vs_0 sizes_0))) + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -46705,20 +48143,13 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap a_3))) - (if (pair? p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -46727,113 +48158,206 @@ (lambda () (let ((d_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values (lambda () (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 (cdr p_1))) - (let ((p_2 - (unwrap d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) - (values - mode_1 - key_0 - val_0 - body_0))) + ((thn_0 els_0) + (let ((tst_1 tst_0)) + (values tst_1 thn_0 els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) + ((tst_0 thn_0 els_0) (let ((app_0 - (record-sizes!_0 key_0 sizes_0))) + (record-sizes!_0 tst_0 sizes_0))) (let ((app_1 - (record-sizes!_0 val_0 sizes_0))) + (record-sizes!_0 thn_0 sizes_0))) (+ 1 app_0 app_1 - (record-sizes!_0 body_0 sizes_0))))) + (record-sizes!_0 els_0 sizes_0))))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'quote hd_0) + (if (if (eq? 'with-continuation-mark* hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (let ((p_2 (unwrap a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) + #f))) #f))) #f) - 1 - (if (if (eq? 'set! hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap d_0))) + (let ((mode_0 + (let ((a_0 (car p_0))) a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 (cdr p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) + (case-lambda + ((mode_0 key_0 val_0 body_0) + (let ((app_0 + (record-sizes!_0 key_0 sizes_0))) + (let ((app_1 + (record-sizes!_0 + val_0 + sizes_0))) + (+ + 1 + app_0 + app_1 + (record-sizes!_0 + body_0 + sizes_0))))) + (args + (raise-binding-result-arity-error + 4 + args)))) + (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap v_1)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (let ((rhs_0 - (let ((d_0 (cdr (unwrap v_1)))) - (let ((d_1 (cdr (unwrap d_0)))) - (let ((a_0 - (car (unwrap d_1)))) - a_0))))) - (add1 (record-sizes!_0 rhs_0 sizes_0))) - (if (wrap-list? v_1) - (body-record-sizes!_0 v_1 sizes_0) - 1))))))))))))))))) + 1 + (if (if (eq? 'set! hd_0) + (let ((a_0 (cdr (unwrap v_1)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) + #f))) + #f))) + #f) + (let ((rhs_0 + (let ((d_0 (cdr (unwrap v_1)))) + (let ((d_1 + (cdr (unwrap d_0)))) + (let ((a_0 + (car (unwrap d_1)))) + a_0))))) + (add1 + (record-sizes!_0 rhs_0 sizes_0))) + (if (wrap-list? v_1) + (body-record-sizes!_0 v_1 sizes_0) + 1)))))))))))))))))) (body-record-sizes!_0 (|#%name| body-record-sizes! @@ -46846,13 +48370,13 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((v_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_2 v_1)) @@ -46884,15 +48408,19 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_2 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_3 v_2)) @@ -46914,13 +48442,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -46963,19 +48492,23 @@ (lambda (rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_2 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47060,13 +48593,14 @@ for-loop (lambda (fold-var_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) (let ((e_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((e_1 e_0)) @@ -47236,19 +48770,22 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47271,13 +48808,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -47318,17 +48856,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47433,19 +48975,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47468,13 +49014,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -47515,19 +49062,22 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47637,20 +49187,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47674,13 +49227,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -47721,19 +49275,22 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -47840,8 +49397,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((v_0 @@ -47865,12 +49423,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -47942,13 +49502,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -48040,11 +49601,13 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_2))))) #f))) #f))) #f) @@ -48564,14 +50127,15 @@ (if or-part_3 or-part_3 (path? v_0))))))))) - (do-hash-update - 'hash-update! - #t - hash-set! - shared_0 - v_0 - add1 - 0) + (begin-unsafe + (do-hash-update + 'hash-update! + #t + hash-set! + shared_0 + v_0 + add1 + 0)) (if (pair? v_0) (begin (loop_0 @@ -48706,24 +50270,27 @@ shared-counter_0 shared_0 (srcloc-source v_0)) - (if (|#%app| 1/syntax? v_0) + (if (begin-unsafe (|#%app| 1/syntax? v_0)) (begin (loop_0 external-lift?7_0 external-lift_0 shared-counter_0 shared_0 - (|#%app| 1/syntax-e v_0)) + (begin-unsafe + (|#%app| 1/syntax-e v_0))) (loop_0 external-lift?7_0 external-lift_0 shared-counter_0 shared_0 - (|#%app| 1/syntax-source v_0)) + (begin-unsafe + (|#%app| 1/syntax-source v_0))) (let ((lst_0 - (|#%app| - 1/syntax-property-symbol-keys - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-property-symbol-keys + v_0)))) (begin (letrec* ((for-loop_0 @@ -48751,10 +50318,11 @@ external-lift_0 shared-counter_0 shared_0 - (|#%app| - 1/syntax-property - v_0 - k_0))) + (begin-unsafe + (|#%app| + 1/syntax-property + v_0 + k_0)))) (for-loop_0 rest_0)))) (values))))))) @@ -48776,14 +50344,14 @@ (let ((c_0 (hash-ref shared_0 v_0))) (if (negative? c_0) (begin - (write-byte 2 o_0) + (begin-unsafe (write-byte 2 o_0)) (write-fasl-integer (sub1 (- c_0)) o_0)) (let ((pos_0 (unsafe-unbox* shared-counter_0))) (begin (unsafe-set-box*! shared-counter_0 (add1 (unsafe-unbox* shared-counter_0))) - (write-byte 1 o_0) + (begin-unsafe (write-byte 1 o_0)) (write-fasl-integer pos_0 o_0) (hash-remove! shared_0 v_0) (loop_1 @@ -48796,25 +50364,25 @@ v_0) (hash-set! shared_0 v_0 (- (add1 pos_0))))))) (if (not v_0) - (write-byte 3 o_0) + (begin-unsafe (write-byte 3 o_0)) (if (eq? v_0 #t) - (write-byte 4 o_0) + (begin-unsafe (write-byte 4 o_0)) (if (null? v_0) - (write-byte 5 o_0) + (begin-unsafe (write-byte 5 o_0)) (if (void? v_0) - (write-byte 6 o_0) + (begin-unsafe (write-byte 6 o_0)) (if (eof-object? v_0) - (write-byte 7 o_0) + (begin-unsafe (write-byte 7 o_0)) (if (exact-integer? v_0) (if (<= -10 v_0 144) (let ((byte_0 (+ 100 (- v_0 -10)))) - (write-byte byte_0 o_0)) + (begin-unsafe (write-byte byte_0 o_0))) (begin - (write-byte 8 o_0) + (begin-unsafe (write-byte 8 o_0)) (write-fasl-integer v_0 o_0))) (if (flonum? v_0) (begin - (write-byte 9 o_0) + (begin-unsafe (write-byte 9 o_0)) (1/write-bytes (if (eqv? v_0 +nan.0) #vu8(0 0 0 0 0 0 248 127) @@ -48822,7 +50390,7 @@ o_0)) (if (single-flonum? v_0) (begin - (write-byte 10 o_0) + (begin-unsafe (write-byte 10 o_0)) (1/write-bytes (if (eqv? v_0 @@ -48832,7 +50400,7 @@ o_0)) (if (extflonum? v_0) (begin - (write-byte 39 o_0) + (begin-unsafe (write-byte 39 o_0)) (let ((bstr_0 (string->bytes/utf-8 (format "~a" v_0)))) @@ -48843,7 +50411,7 @@ (1/write-bytes bstr_0 o_0)))) (if (rational? v_0) (begin - (write-byte 11 o_0) + (begin-unsafe (write-byte 11 o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -48862,7 +50430,7 @@ (denominator v_0))) (if (complex? v_0) (begin - (write-byte 12 o_0) + (begin-unsafe (write-byte 12 o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -48881,17 +50449,20 @@ (imag-part v_0))) (if (char? v_0) (begin - (write-byte 13 o_0) + (begin-unsafe (write-byte 13 o_0)) (write-fasl-integer (char->integer v_0) o_0)) (if (symbol? v_0) (begin (if (symbol-interned? v_0) - (write-byte 14 o_0) + (begin-unsafe + (write-byte 14 o_0)) (if (symbol-unreadable? v_0) - (write-byte 15 o_0) - (write-byte 16 o_0))) + (begin-unsafe + (write-byte 15 o_0)) + (begin-unsafe + (write-byte 16 o_0)))) (let ((bstr_0 (string->bytes/utf-8 (symbol->string v_0)))) @@ -48905,7 +50476,8 @@ o_0)))) (if (keyword? v_0) (begin - (write-byte 17 o_0) + (begin-unsafe + (write-byte 17 o_0)) (let ((bstr_0 (string->bytes/utf-8 (keyword->string @@ -48948,7 +50520,10 @@ v_0))) (if rel-elems_0 (begin - (write-byte 23 o_0) + (begin-unsafe + (write-byte + 23 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -48958,7 +50533,10 @@ shared_0 rel-elems_0)) (begin - (write-byte 22 o_0) + (begin-unsafe + (write-byte + 22 + o_0)) (write-fasl-bytes (path->bytes v_0) o_0) @@ -49097,9 +50675,10 @@ (if normal-list?_0 28 29))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer n_0 o_0) @@ -49141,9 +50720,10 @@ 2 args)))) (begin - (write-byte - 30 - o_0) + (begin-unsafe + (write-byte + 30 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -49168,9 +50748,10 @@ v_0) 32 31))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer (vector-length v_0) @@ -49230,9 +50811,10 @@ v_0) 34 33))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -49246,9 +50828,10 @@ v_0))) (if c2_0 (begin - (write-byte - 35 - o_0) + (begin-unsafe + (write-byte + 35 + o_0)) (begin (loop_1 handle-fail6_0 @@ -49325,9 +50908,10 @@ v_0) 37 36))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (let ((byte_0 (if (hash-eq? v_0) @@ -49336,9 +50920,10 @@ v_0) 2 1)))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-integer (hash-count v_0) @@ -49373,9 +50958,10 @@ v_0) 24 25))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-string (object-name v_0) @@ -49388,20 +50974,23 @@ v_0) 26 27))) - (write-byte - byte_0 - o_0)) + (begin-unsafe + (write-byte + byte_0 + o_0))) (write-fasl-bytes (object-name v_0) o_0)) - (if (|#%app| - 1/syntax? - v_0) + (if (begin-unsafe + (|#%app| + 1/syntax? + v_0)) (begin - (write-byte - 40 - o_0) + (begin-unsafe + (write-byte + 40 + o_0)) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -49409,9 +50998,10 @@ path->relative-path-elements_0 shared-counter_0 shared_0 - (|#%app| - 1/syntax-e - v_0)) + (begin-unsafe + (|#%app| + 1/syntax-e + v_0))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -49420,29 +51010,34 @@ shared-counter_0 shared_0 (let ((app_0 - (|#%app| - 1/syntax-source - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-source + v_0)))) (let ((app_1 - (|#%app| - 1/syntax-line - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-line + v_0)))) (let ((app_2 - (|#%app| - 1/syntax-column - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-column + v_0)))) (let ((app_3 - (|#%app| - 1/syntax-position - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-position + v_0)))) (unsafe-make-srcloc app_0 app_1 app_2 app_3 - (|#%app| - 1/syntax-span - v_0))))))) + (begin-unsafe + (|#%app| + 1/syntax-span + v_0)))))))) (loop_1 handle-fail6_0 keep-mutable?5_0 @@ -49452,9 +51047,10 @@ shared_0 (reverse$1 (let ((lst_0 - (|#%app| - 1/syntax-property-symbol-keys - v_0))) + (begin-unsafe + (|#%app| + 1/syntax-property-symbol-keys + v_0)))) (begin (letrec* ((for-loop_0 @@ -49476,10 +51072,11 @@ (cons (cons k_0 - (|#%app| - 1/syntax-property - v_0 - k_0)) + (begin-unsafe + (|#%app| + 1/syntax-property + v_0 + k_0))) fold-var_0))) (values fold-var_1)))) @@ -49493,9 +51090,10 @@ (if (eq? v_0 unsafe-undefined) - (write-byte - 41 - o_0) + (begin-unsafe + (write-byte + 41 + o_0)) (if handle-fail6_0 (loop_1 handle-fail6_0 @@ -50181,11 +51779,12 @@ p_0))) (let ((k_1 k_0)) - (|#%app| - 1/syntax-property - c_1 - k_1 - v_0)))))) + (begin-unsafe + (|#%app| + 1/syntax-property + c_1 + k_1 + v_0))))))) (values c_2)))) (for-loop_0 @@ -50303,22 +51902,22 @@ (lambda (i_0 o_0) (if (<= -124 i_0 127) (if (negative? i_0) - (let ((byte_0 (+ i_0 256))) (write-byte byte_0 o_0)) - (write-byte i_0 o_0)) + (let ((byte_0 (+ i_0 256))) (begin-unsafe (write-byte byte_0 o_0))) + (begin-unsafe (write-byte i_0 o_0))) (if (<= -32768 i_0 32767) (begin - (write-byte 128 o_0) + (begin-unsafe (write-byte 128 o_0)) (1/write-bytes (integer->integer-bytes i_0 2 #t #f) o_0)) (if (<= -2147483648 i_0 2147483647) (begin - (write-byte 129 o_0) + (begin-unsafe (write-byte 129 o_0)) (1/write-bytes (integer->integer-bytes i_0 4 #t #f) o_0)) (if (<= -9223372036854775808 i_0 9223372036854775807) (begin - (write-byte 130 o_0) + (begin-unsafe (write-byte 130 o_0)) (1/write-bytes (integer->integer-bytes i_0 8 #t #f) o_0)) (begin - (write-byte 131 o_0) + (begin-unsafe (write-byte 131 o_0)) (let ((s_0 (format "~x" i_0))) (begin (write-fasl-integer (string-length s_0) o_0) @@ -50440,8 +52039,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -50783,7 +52383,8 @@ (let ((key_1 (node-key t_0))) (let ((val_1 (node-val t_0))) (let ((key_2 key_1)) - (combine key_2 val_1 new-other_0 new-to_0)))))) + (begin-unsafe + (combine key_2 val_1 new-other_0 new-to_0))))))) (let ((to-height_0 (tree-height new-to_0))) (let ((other-height_0 (tree-height new-other_0))) (if (fx= (fx- to-height_0 other-height_0) 2) @@ -50814,7 +52415,8 @@ (let ((key_1 (node-key t_0))) (let ((val_0 (node-val t_0))) (let ((key_2 key_1)) - (combine key_2 val_0 new-other_0 new-to_0)))))) + (begin-unsafe + (combine key_2 val_0 new-other_0 new-to_0))))))) (let ((to-height_0 (tree-height new-to_0))) (let ((other-height_0 (tree-height new-other_0))) (if (fx= (fx- to-height_0 other-height_0) -2) @@ -50935,15 +52537,22 @@ (let ((key_2 (node-key orange_0))) (let ((val_2 (node-val orange_0))) (let ((key_3 key_2)) - (combine - key_3 - val_2 - B_0 - A_0)))))) + (begin-unsafe + (combine + key_3 + val_2 + B_0 + A_0))))))) (let ((val_2 val_1) (key_2 key_1)) - (combine key_2 val_2 C_0 right_0))))))) + (begin-unsafe + (combine + key_2 + val_2 + C_0 + right_0)))))))) (let ((val_1 val_0) (key_1 key_0)) - (combine key_1 val_1 D_0 right_0)))))))))))))))) + (begin-unsafe + (combine key_1 val_1 D_0 right_0))))))))))))))))) (define single-rotate.2 (|#%name| single-rotate @@ -50961,9 +52570,11 @@ (let ((right_2 right_1) (val_2 val_1) (key_2 key_1)) - (combine key_2 val_2 left_0 right_2)))))))) + (begin-unsafe + (combine key_2 val_2 left_0 right_2))))))))) (let ((right_1 right_0) (val_1 val_0) (key_1 key_0)) - (combine key_1 val_1 left_0 right_1))))))))))) + (begin-unsafe + (combine key_1 val_1 left_0 right_1)))))))))))) (define empty-intmap #f) (define intmap-count (lambda (im_0) @@ -50994,7 +52605,7 @@ (let ((i_0 (unsafe-unbox* i3_0))) (if tail?1_0 (intmap-ref stack2_0 i_0) - (let ((app_0 (delete stack2_0 i_0))) + (let ((app_0 (begin-unsafe (delete stack2_0 i_0)))) (values app_0 (intmap-ref stack2_0 i_0))))) (if tail?1_0 (intmap-ref stack2_0 i3_0) @@ -51003,8 +52614,10 @@ ((stack_0 i_0) (stack-ref_0 stack_0 i_0 #f)) ((stack_0 i_0 tail?1_0) (stack-ref_0 stack_0 i_0 tail?1_0))))) (define stack-set - (lambda (stack_0 i_0 v_0) (let ((s_0 (insert stack_0 i_0 v_0))) s_0))) -(define stack-remove (lambda (stack_0 i_0) (delete stack_0 i_0))) + (lambda (stack_0 i_0 v_0) + (let ((s_0 (begin-unsafe (insert stack_0 i_0 v_0)))) s_0))) +(define stack-remove + (lambda (stack_0 i_0) (begin-unsafe (delete stack_0 i_0)))) (define push-stack (lambda (stack_0 pos_0 vals_0 mask_0) (let ((rest?_0 (negative? mask_0))) @@ -51636,7 +53249,7 @@ add-clears (lambda (e_0 stk-i_0 all-clear_0) (begin - (if (stack-info-non-tail-call-later? stk-i_0) + (if (begin-unsafe (stack-info-non-tail-call-later? stk-i_0)) (let ((local-use-map_0 (stack-info-local-use-map stk-i_0))) (let ((clears_0 (reverse$1 @@ -51687,9 +53300,9 @@ loop (lambda (ids_1 env_1 count_0) (begin - (if (null? (unwrap ids_1)) + (if (begin-unsafe (null? (unwrap ids_1))) (values env_1 count_0 #f) - (if (pair? (unwrap ids_1)) + (if (begin-unsafe (pair? (unwrap ids_1))) (let ((app_0 (wrap-cdr ids_1))) (let ((app_1 (let ((app_1 (unwrap (wrap-car ids_1)))) @@ -51735,7 +53348,8 @@ (begin (if tail?_0 (void) - (set-stack-info-non-tail-call-later?! stk-i_0 #t)) + (begin-unsafe + (set-stack-info-non-tail-call-later?! stk-i_0 #t))) (let ((new-es_0 (compile-list_0 serializable?_0 @@ -51804,8 +53418,9 @@ (if (let ((p_0 (unwrap body_0))) (if (pair? p_0) (let ((a_0 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_0)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_0))))) #f)) (let ((e_0 (let ((a_0 (car (unwrap body_0)))) a_0))) (compile-expr_0 @@ -52027,13 +53642,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -52073,13 +53693,18 @@ for-loop (lambda (idss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -52247,19 +53872,22 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -52282,13 +53910,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -52329,16 +53958,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -52675,22 +54309,12 @@ stk-i_0 tail?_0 mutated_0)) - (if (if (eq? 'begin0 hd_0) - (let ((a_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) - #f))) - #f) - (let ((e_1 - (let ((d_0 (cdr (unwrap e_0)))) - (let ((a_0 (car (unwrap d_0)))) - a_0)))) - (compile-expr_0 + (if (if (eq? 'begin-unsafe hd_0) #t #f) + (let ((vs_0 + (let ((d_0 (cdr (unwrap e_0)))) d_0))) + (compile-body_0 serializable?_0 - e_1 + vs_0 env_0 stack-depth_0 stk-i_0 @@ -52699,192 +54323,95 @@ (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) - (if (pair? p_0) #t #f))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) + #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((e_1 - (let ((a_0 (car p_0))) a_0))) - (let ((vs_0 - (let ((d_1 (cdr p_0))) - d_1))) - (let ((e_2 e_1)) - (values e_2 vs_0))))))) - (case-lambda - ((e_1 vs_0) - (let ((new-body_0 - (compile-body_0 - serializable?_0 - vs_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (vector - 'begin0 - (compile-expr_0 - serializable?_0 - e_1 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0) - new-body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? '$value hd_0) + (let ((e_1 + (let ((d_0 (cdr (unwrap e_0)))) + (let ((a_0 (car (unwrap d_0)))) + a_0)))) + (compile-expr_0 + serializable?_0 + e_1 + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0)) + (if (if (eq? 'begin0 hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) - #f))) + (if (pair? p_0) #t #f))) #f) - (let ((e_1 - (let ((d_0 (cdr (unwrap e_0)))) - (let ((a_0 (car (unwrap d_0)))) - a_0)))) - (vector - '$value - (compile-expr_0 - serializable?_0 - e_1 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (if (if (eq? 'if hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap d_0))) + (let ((e_1 + (let ((a_0 (car p_0))) + a_0))) + (let ((vs_0 + (let ((d_1 (cdr p_0))) + d_1))) + (let ((e_2 e_1)) + (values e_2 vs_0))))))) + (case-lambda + ((e_1 vs_0) + (let ((new-body_0 + (compile-body_0 + serializable?_0 + vs_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (vector + 'begin0 + (compile-expr_0 + serializable?_0 + e_1 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0) + new-body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? '$value hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values - tst_1 - thn_0 - els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((then-stk-i_0 - (stack-info-branch stk-i_0))) - (let ((else-stk-i_0 - (stack-info-branch - stk-i_0))) - (let ((new-then_0 - (compile-expr_0 - serializable?_0 - thn_0 - env_0 - stack-depth_0 - then-stk-i_0 - tail?_0 - mutated_0))) - (let ((new-else_0 - (compile-expr_0 - serializable?_0 - els_0 - env_0 - stack-depth_0 - else-stk-i_0 - tail?_0 - mutated_0))) - (let ((all-clear_0 - (stack-info-merge! - stk-i_0 - (list - then-stk-i_0 - else-stk-i_0)))) - (let ((app_0 - (compile-expr_0 - serializable?_0 - tst_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (let ((app_1 - (add-clears_0 - new-then_0 - then-stk-i_0 - all-clear_0))) - (vector - 'if - app_0 - app_1 - (add-clears_0 - new-else_0 - else-stk-i_0 - all-clear_0)))))))))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (let ((e_1 + (let ((d_0 (cdr (unwrap e_0)))) + (let ((a_0 (car (unwrap d_0)))) + a_0)))) + (vector + '$value + (compile-expr_0 + serializable?_0 + e_1 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -52899,22 +54426,14 @@ (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -52923,7 +54442,7 @@ (lambda () (let ((d_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values @@ -52931,198 +54450,286 @@ (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 - key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 + thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) + ((thn_0 els_0) + (let ((tst_1 tst_0)) (values - mode_1 - key_0 - val_0 - body_0))) + tst_1 + thn_0 + els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) - (let ((new-body_0 - (compile-expr_0 - serializable?_0 - body_0 - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0))) - (let ((new-val_0 - (compile-expr_0 - serializable?_0 - val_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (vector - 'wcm - (compile-expr_0 - serializable?_0 - key_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0) - new-val_0 - new-body_0)))) + ((tst_0 thn_0 els_0) + (let ((then-stk-i_0 + (stack-info-branch + stk-i_0))) + (let ((else-stk-i_0 + (stack-info-branch + stk-i_0))) + (let ((new-then_0 + (compile-expr_0 + serializable?_0 + thn_0 + env_0 + stack-depth_0 + then-stk-i_0 + tail?_0 + mutated_0))) + (let ((new-else_0 + (compile-expr_0 + serializable?_0 + els_0 + env_0 + stack-depth_0 + else-stk-i_0 + tail?_0 + mutated_0))) + (let ((all-clear_0 + (stack-info-merge! + stk-i_0 + (list + then-stk-i_0 + else-stk-i_0)))) + (let ((app_0 + (compile-expr_0 + serializable?_0 + tst_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (let ((app_1 + (add-clears_0 + new-then_0 + then-stk-i_0 + all-clear_0))) + (vector + 'if + app_0 + app_1 + (add-clears_0 + new-else_0 + else-stk-i_0 + all-clear_0)))))))))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'quote hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) + #f))) #f))) #f) - (let ((v_0 - (let ((d_0 - (cdr (unwrap e_0)))) - (let ((a_0 - (car (unwrap d_0)))) - a_0)))) - (let ((v_1 - (|#%app| - strip-annotations - v_0))) - (if (let ((or-part_0 - (vector? v_1))) - (if or-part_0 - or-part_0 - (let ((or-part_1 - (pair? v_1))) - (if or-part_1 - or-part_1 - (let ((or-part_2 - (symbol? - v_1))) - (if or-part_2 - or-part_2 - (let ((or-part_3 - (number? - v_1))) - (if or-part_3 - or-part_3 - (box? - v_1))))))))) - (vector 'quote v_1) - v_1))) - (if (if (eq? 'set! hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap d_0))) + (let ((mode_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 + (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car + p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 + key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) + (case-lambda + ((mode_0 key_0 val_0 body_0) + (let ((new-body_0 + (compile-expr_0 + serializable?_0 + body_0 + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0))) + (let ((new-val_0 + (compile-expr_0 + serializable?_0 + val_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (vector + 'wcm + (compile-expr_0 + serializable?_0 + key_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0) + new-val_0 + new-body_0)))) + (args + (raise-binding-result-arity-error + 4 + args)))) + (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 - (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (compile-assignment_0 - serializable?_0 - id_0 - rhs_0 - env_0 - stack-depth_0 - stk-i_0 - mutated_0)) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'define hd_0) + (let ((v_0 + (let ((d_0 + (cdr (unwrap e_0)))) + (let ((a_0 + (car + (unwrap d_0)))) + a_0)))) + (let ((v_1 + (|#%app| + strip-annotations + v_0))) + (if (let ((or-part_0 + (vector? v_1))) + (if or-part_0 + or-part_0 + (let ((or-part_1 + (pair? v_1))) + (if or-part_1 + or-part_1 + (let ((or-part_2 + (symbol? + v_1))) + (if or-part_2 + or-part_2 + (let ((or-part_3 + (number? + v_1))) + (if or-part_3 + or-part_3 + (box? + v_1))))))))) + (vector 'quote v_1) + v_1))) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) @@ -53135,13 +54742,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -53181,9 +54789,7 @@ (raise-binding-result-arity-error 2 args)))) - (if (if (eq? - 'define-values - hd_0) + (if (if (eq? 'define hd_0) (let ((a_0 (cdr (unwrap e_0)))) @@ -53199,13 +54805,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -53214,7 +54821,7 @@ (let ((d_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((ids_0 + (let ((id_0 (let ((a_0 (car p_0))) @@ -53228,117 +54835,26 @@ (unwrap d_1)))) a_0)))) - (let ((ids_1 - ids_0)) + (let ((id_1 id_0)) (values - ids_1 + id_1 rhs_0))))))) (case-lambda - ((ids_0 rhs_0) - (let ((gen-ids_0 - (reverse$1 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (fold-var_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((id_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((fold-var_1 - (let ((fold-var_1 - (cons - (deterministic-gensym - (unwrap - id_0)) - fold-var_0))) - (values - fold-var_1)))) - (for-loop_0 - fold-var_1 - rest_0)))) - fold-var_0)))))) - (for-loop_0 - null - ids_0)))))) - (compile-expr_0 - serializable?_0 - (list - 'call-with-values - (list - 'lambda - '() - rhs_0) - (list* - 'lambda - gen-ids_0 - (if (null? ids_0) - (list (void)) - (reverse$1 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (fold-var_0 - lst_0 - lst_1) - (begin - (if (if (pair? - lst_0) - (pair? - lst_1) - #f) - (let ((id_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((gen-id_0 - (unsafe-car - lst_1))) - (let ((rest_1 - (unsafe-cdr - lst_1))) - (let ((fold-var_1 - (cons - (list - 'set! - id_0 - gen-id_0) - fold-var_0))) - (let ((fold-var_2 - (values - fold-var_1))) - (for-loop_0 - fold-var_2 - rest_0 - rest_1))))))) - fold-var_0)))))) - (for-loop_0 - null - ids_0 - gen-ids_0))))))) - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0))) + ((id_0 rhs_0) + (compile-assignment_0 + serializable?_0 + id_0 + rhs_0 + env_0 + stack-depth_0 + stk-i_0 + mutated_0)) (args (raise-binding-result-arity-error 2 args)))) (if (if (eq? - 'call-with-values + 'define-values hd_0) (let ((a_0 (cdr @@ -53353,47 +54869,17 @@ a_1))) (if (pair? p_1) - (if (let ((a_2 - (car - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((app_0 - (unwrap - 'lambda))) - (eq? - app_0 - (unwrap - a_3)))) - (let ((a_3 - (cdr - p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - #t - #f))) - #f) - #f))) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -53404,72 +54890,128 @@ (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((proc1_0 + (let ((ids_0 (let ((a_0 (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 - (cdr - p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - (let ((d_2 + (let ((rhs_0 + (let ((d_1 (cdr - (unwrap - a_0)))) - (let ((p_1 - (unwrap - d_2))) - (let ((ids_0 - (let ((a_1 - (car - p_1))) - a_1))) - (let ((body_0 - (let ((d_3 - (cdr - p_1))) - d_3))) - (let ((ids_1 - ids_0)) - (values - ids_1 - body_0))))))))) - (case-lambda - ((ids_0 body_0) - (let ((proc1_1 - proc1_0)) - (values - proc1_1 - ids_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((ids_1 + ids_0)) + (values + ids_1 + rhs_0))))))) (case-lambda - ((proc1_0 ids_0 body_0) - (compile-expr_0 - serializable?_0 - (list - 'call-with-values - proc1_0 - (list - 'case-lambda - (list* ids_0 body_0))) - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0)) + ((ids_0 rhs_0) + (let ((gen-ids_0 + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((id_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((fold-var_1 + (let ((fold-var_1 + (cons + (deterministic-gensym + (unwrap + id_0)) + fold-var_0))) + (values + fold-var_1)))) + (for-loop_0 + fold-var_1 + rest_0)))) + fold-var_0)))))) + (for-loop_0 + null + ids_0)))))) + (compile-expr_0 + serializable?_0 + (list + 'call-with-values + (list + 'lambda + '() + rhs_0) + (list* + 'lambda + gen-ids_0 + (if (null? ids_0) + (list (void)) + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 + lst_0 + lst_1) + (begin + (if (if (pair? + lst_0) + (pair? + lst_1) + #f) + (let ((id_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((gen-id_0 + (unsafe-car + lst_1))) + (let ((rest_1 + (unsafe-cdr + lst_1))) + (let ((fold-var_1 + (cons + (list + 'set! + id_0 + gen-id_0) + fold-var_0))) + (let ((fold-var_2 + (values + fold-var_1))) + (for-loop_0 + fold-var_2 + rest_0 + rest_1))))))) + fold-var_0)))))) + (for-loop_0 + null + ids_0 + gen-ids_0))))))) + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))) (if (if (eq? 'call-with-values @@ -53482,149 +55024,58 @@ (unwrap a_0))) (if (pair? p_0) - (if (let ((a_1 - (car - p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (if (let ((a_2 - (car - p_1))) - (let ((app_0 - (unwrap - 'lambda))) - (eq? - app_0 - (unwrap - a_2)))) - (let ((a_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #t - #f) - #f))) - #f) - #f))) - (let ((a_1 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (if (let ((a_2 - (car - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((app_0 - (unwrap - 'case-lambda))) - (eq? - app_0 - (unwrap - a_3)))) - (let ((a_3 - (cdr - p_2))) - (if (wrap-list? - a_3) - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (result_0 - lst_0) - (begin - (if (not - (null? - (unwrap - lst_0))) - (let ((v_0 - (if (pair? - (unwrap - lst_0)) - (wrap-car - lst_0) - lst_0))) - (let ((rest_0 - (if (pair? - (unwrap - lst_0)) - (wrap-cdr - lst_0) - null))) - (let ((v_1 - v_0)) - (let ((result_1 - (let ((result_1 - (let ((p_3 - (unwrap - v_1))) - (if (pair? - p_3) - #t - #f)))) - (values - result_1)))) - (if (if (not - (let ((x_0 - (list - v_1))) - (not - result_1))) - #t - #f) - (for-loop_0 - result_1 - rest_0) - result_1))))) - result_0)))))) - (for-loop_0 - #t - a_3))) - #f)) - #f) - #f))) - (let ((a_2 - (cdr + (let ((a_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car p_1))) - (let ((app_0 + (let ((p_2 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) - #f) - #f))) - #f) + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + 'lambda))) + (eq? + app_0 + (unwrap + a_3))))) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + #t + #f))) + #f) + #f))) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f) + #f))) #f))) #f) (call-with-values @@ -53634,19 +55085,11 @@ (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((body_0 + (let ((proc1_0 (let ((a_0 (car p_0))) - (let ((d_1 - (cdr - (unwrap - a_0)))) - (let ((d_2 - (cdr - (unwrap - d_1)))) - d_2))))) + a_0))) (call-with-values (lambda () (let ((d_1 @@ -53660,412 +55103,59 @@ (cdr (unwrap a_0)))) - (call-with-values - (lambda () - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (idss_0 - bodys_0 - lst_0) - (begin - (if (not - (null? - (unwrap - lst_0))) - (let ((v_0 - (if (pair? - (unwrap - lst_0)) - (wrap-car - lst_0) - lst_0))) - (let ((rest_0 - (if (pair? - (unwrap - lst_0)) - (wrap-cdr - lst_0) - null))) - (let ((v_1 - v_0)) - (call-with-values - (lambda () - (call-with-values - (lambda () - (call-with-values - (lambda () - (let ((p_1 - (unwrap - v_1))) - (let ((idss_1 - (let ((a_1 - (car - p_1))) - a_1))) - (let ((bodys_1 - (let ((d_3 - (cdr - p_1))) - d_3))) - (let ((idss_2 - idss_1)) - (values - idss_2 - bodys_1)))))) - (case-lambda - ((idss20_0 - bodys21_0) - (values - (cons - idss20_0 - idss_0) - (cons - bodys21_0 - bodys_0))) - (args - (raise-binding-result-arity-error - 2 - args))))) - (case-lambda - ((idss_1 - bodys_1) - (values - idss_1 - bodys_1)) - (args - (raise-binding-result-arity-error - 2 - args))))) - (case-lambda - ((idss_1 - bodys_1) - (for-loop_0 - idss_1 - bodys_1 - rest_0)) - (args - (raise-binding-result-arity-error - 2 - args))))))) - (values - idss_0 - bodys_0))))))) - (for-loop_0 - null - null - d_2)))) - (case-lambda - ((idss_0 - bodys_0) - (let ((app_0 - (reverse$1 - idss_0))) - (values - app_0 - (reverse$1 - bodys_0)))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((p_1 + (unwrap + d_2))) + (let ((ids_0 + (let ((a_1 + (car + p_1))) + a_1))) + (let ((body_0 + (let ((d_3 + (cdr + p_1))) + d_3))) + (let ((ids_1 + ids_0)) + (values + ids_1 + body_0))))))))) (case-lambda - ((idss_0 - bodys_0) - (let ((body_1 - body_0)) + ((ids_0 body_0) + (let ((proc1_1 + proc1_0)) (values - body_1 - idss_0 - bodys_0))) + proc1_1 + ids_0 + body_0))) (args (raise-binding-result-arity-error 2 args)))))))) (case-lambda - ((body_0 idss_0 bodys_0) - (let ((body-stk-is_0 - (reverse$1 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (fold-var_0 - lst_0) - (begin - (if (pair? - lst_0) - (let ((body_1 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((fold-var_1 - (let ((fold-var_1 - (cons - (stack-info-branch - stk-i_0) - fold-var_0))) - (values - fold-var_1)))) - (for-loop_0 - fold-var_1 - rest_0)))) - fold-var_0)))))) - (for-loop_0 - null - bodys_0)))))) - (let ((initial-new-clauses_0 - (reverse$1 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (fold-var_0 - lst_0 - lst_1 - lst_2) - (begin - (if (if (pair? - lst_0) - (if (pair? - lst_1) - (pair? - lst_2) - #f) - #f) - (let ((ids_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((body_1 - (unsafe-car - lst_1))) - (let ((rest_1 - (unsafe-cdr - lst_1))) - (let ((body-stk-i_0 - (unsafe-car - lst_2))) - (let ((rest_2 - (unsafe-cdr - lst_2))) - (let ((fold-var_1 - (let ((fold-var_1 - (cons - (call-with-values - (lambda () - (args->env_0 - ids_0 - env_0 - stack-depth_0 - mutated_0)) - (case-lambda - ((new-env_0 - count_0 - rest?_0) - (let ((new-stack-depth_0 - (+ - stack-depth_0 - count_0))) - (let ((c-body_0 - (compile-body_0 - serializable?_0 - body_1 - new-env_0 - new-stack-depth_0 - body-stk-i_0 - tail?_0 - mutated_0))) - (let ((new-body_0 - (add-boxes/remove-unused_0 - c-body_0 - ids_0 - mutated_0 - new-env_0 - body-stk-i_0))) - (let ((pos_0 - (stack->pos.1 - #t - stack-depth_0 - body-stk-i_0))) - (begin - (stack-info-forget! - body-stk-i_0 - stack-depth_0 - pos_0 - count_0) - (vector - (count->mask - count_0 - rest?_0) - new-body_0))))))) - (args - (raise-binding-result-arity-error - 3 - args)))) - fold-var_0))) - (values - fold-var_1)))) - (for-loop_0 - fold-var_1 - rest_0 - rest_1 - rest_2)))))))) - fold-var_0)))))) - (for-loop_0 - null - idss_0 - bodys_0 - body-stk-is_0)))))) - (let ((all-clear_0 - (stack-info-merge! - stk-i_0 - body-stk-is_0))) - (let ((app_0 - (compile-body_0 - serializable?_0 - body_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (let ((app_1 - (stack->pos.1 - #t - stack-depth_0 - stk-i_0))) - (let ((app_2 - (if (let ((p_0 - (unwrap - e_0))) - (if (pair? - p_0) - (let ((a_0 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_0))) - (if (pair? - p_1) - (let ((a_1 - (cdr - p_1))) - (let ((p_2 - (unwrap - a_1))) - (if (pair? - p_2) - (let ((a_2 - (cdr - p_2))) - (let ((app_2 - (unwrap - '()))) - (eq? - app_2 - (unwrap - a_2)))) - #f))) - #f))) - #f)) - (let ((receiver_0 - (let ((d_0 - (cdr - (unwrap - e_0)))) - (let ((d_1 - (cdr - (unwrap - d_0)))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0))))) - (wrap-property - receiver_0 - 'inferred-name)) - (error - 'match - "failed ~e" - e_0)))) - (vector - 'cwv - app_0 - app_1 - app_2 - (reverse$1 - (begin - (letrec* - ((for-loop_0 - (|#%name| - for-loop - (lambda (fold-var_0 - lst_0 - lst_1) - (begin - (if (if (pair? - lst_0) - (pair? - lst_1) - #f) - (let ((initial-new-clause_0 - (unsafe-car - lst_0))) - (let ((rest_0 - (unsafe-cdr - lst_0))) - (let ((body-stk-i_0 - (unsafe-car - lst_1))) - (let ((rest_1 - (unsafe-cdr - lst_1))) - (let ((fold-var_1 - (let ((fold-var_1 - (cons - (let ((body_1 - (vector-ref - initial-new-clause_0 - 1))) - (let ((app_3 - (vector-ref - initial-new-clause_0 - 0))) - (vector - app_3 - (add-clears_0 - body_1 - body-stk-i_0 - all-clear_0)))) - fold-var_0))) - (values - fold-var_1)))) - (for-loop_0 - fold-var_1 - rest_0 - rest_1)))))) - fold-var_0)))))) - (for-loop_0 - null - initial-new-clauses_0 - body-stk-is_0)))))))))))) + ((proc1_0 ids_0 body_0) + (compile-expr_0 + serializable?_0 + (list + 'call-with-values + proc1_0 + (list + 'case-lambda + (list* + ids_0 + body_0))) + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0)) (args (raise-binding-result-arity-error 3 args)))) (if (if (eq? - 'call-with-module-prompt + 'call-with-values hd_0) (let ((a_0 (cdr @@ -54086,13 +55176,14 @@ (if (let ((a_2 (car p_1))) - (let ((app_0 - (unwrap - 'lambda))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'lambda))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_1))) @@ -54104,13 +55195,14 @@ (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #t #f) #f))) @@ -54119,44 +55211,557 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 + (let ((p_1 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + 'case-lambda))) + (eq? + app_0 + (unwrap + a_3))))) + (let ((a_3 + (cdr + p_2))) + (if (wrap-list? + a_3) + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (result_0 + lst_0) + (begin + (if (not + (begin-unsafe + (null? + (unwrap + lst_0)))) + (let ((v_0 + (if (begin-unsafe + (pair? + (unwrap + lst_0))) + (wrap-car + lst_0) + lst_0))) + (let ((rest_0 + (if (begin-unsafe + (pair? + (unwrap + lst_0))) + (wrap-cdr + lst_0) + null))) + (let ((v_1 + v_0)) + (let ((result_1 + (let ((result_1 + (let ((p_3 + (unwrap + v_1))) + (if (pair? + p_3) + #t + #f)))) + (values + result_1)))) + (if (if (not + (let ((x_0 + (list + v_1))) + (not + result_1))) + #t + #f) + (for-loop_0 + result_1 + rest_0) + result_1))))) + result_0)))))) + (for-loop_0 + #t + a_3))) + #f)) + #f) + #f))) + (let ((a_2 + (cdr + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f) + #f))) #f) #f))) #f) - (let ((body_0 - (let ((d_0 - (cdr - (unwrap - e_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - (let ((d_1 - (cdr - (unwrap - a_0)))) - (let ((d_2 - (cdr - (unwrap - d_1)))) - d_2)))))) - (vector - 'cwmp0 - (compile-body_0 - serializable?_0 - body_0 - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0))) + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap + e_0)))) + (let ((p_0 + (unwrap + d_0))) + (let ((body_0 + (let ((a_0 + (car + p_0))) + (let ((d_1 + (cdr + (unwrap + a_0)))) + (let ((d_2 + (cdr + (unwrap + d_1)))) + d_2))))) + (call-with-values + (lambda () + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + (let ((d_2 + (cdr + (unwrap + a_0)))) + (call-with-values + (lambda () + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (idss_0 + bodys_0 + lst_0) + (begin + (if (not + (begin-unsafe + (null? + (unwrap + lst_0)))) + (let ((v_0 + (if (begin-unsafe + (pair? + (unwrap + lst_0))) + (wrap-car + lst_0) + lst_0))) + (let ((rest_0 + (if (begin-unsafe + (pair? + (unwrap + lst_0))) + (wrap-cdr + lst_0) + null))) + (let ((v_1 + v_0)) + (call-with-values + (lambda () + (call-with-values + (lambda () + (call-with-values + (lambda () + (let ((p_1 + (unwrap + v_1))) + (let ((idss_1 + (let ((a_1 + (car + p_1))) + a_1))) + (let ((bodys_1 + (let ((d_3 + (cdr + p_1))) + d_3))) + (let ((idss_2 + idss_1)) + (values + idss_2 + bodys_1)))))) + (case-lambda + ((idss20_0 + bodys21_0) + (values + (cons + idss20_0 + idss_0) + (cons + bodys21_0 + bodys_0))) + (args + (raise-binding-result-arity-error + 2 + args))))) + (case-lambda + ((idss_1 + bodys_1) + (values + idss_1 + bodys_1)) + (args + (raise-binding-result-arity-error + 2 + args))))) + (case-lambda + ((idss_1 + bodys_1) + (for-loop_0 + idss_1 + bodys_1 + rest_0)) + (args + (raise-binding-result-arity-error + 2 + args))))))) + (values + idss_0 + bodys_0))))))) + (for-loop_0 + null + null + d_2)))) + (case-lambda + ((idss_0 + bodys_0) + (let ((app_0 + (reverse$1 + idss_0))) + (values + app_0 + (reverse$1 + bodys_0)))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((idss_0 + bodys_0) + (let ((body_1 + body_0)) + (values + body_1 + idss_0 + bodys_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((body_0 + idss_0 + bodys_0) + (let ((body-stk-is_0 + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 + lst_0) + (begin + (if (pair? + lst_0) + (let ((body_1 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((fold-var_1 + (let ((fold-var_1 + (cons + (stack-info-branch + stk-i_0) + fold-var_0))) + (values + fold-var_1)))) + (for-loop_0 + fold-var_1 + rest_0)))) + fold-var_0)))))) + (for-loop_0 + null + bodys_0)))))) + (let ((initial-new-clauses_0 + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 + lst_0 + lst_1 + lst_2) + (begin + (if (if (pair? + lst_0) + (if (pair? + lst_1) + (pair? + lst_2) + #f) + #f) + (let ((ids_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((body_1 + (unsafe-car + lst_1))) + (let ((rest_1 + (unsafe-cdr + lst_1))) + (let ((body-stk-i_0 + (unsafe-car + lst_2))) + (let ((rest_2 + (unsafe-cdr + lst_2))) + (let ((fold-var_1 + (let ((fold-var_1 + (cons + (call-with-values + (lambda () + (args->env_0 + ids_0 + env_0 + stack-depth_0 + mutated_0)) + (case-lambda + ((new-env_0 + count_0 + rest?_0) + (let ((new-stack-depth_0 + (+ + stack-depth_0 + count_0))) + (let ((c-body_0 + (compile-body_0 + serializable?_0 + body_1 + new-env_0 + new-stack-depth_0 + body-stk-i_0 + tail?_0 + mutated_0))) + (let ((new-body_0 + (add-boxes/remove-unused_0 + c-body_0 + ids_0 + mutated_0 + new-env_0 + body-stk-i_0))) + (let ((pos_0 + (stack->pos.1 + #t + stack-depth_0 + body-stk-i_0))) + (begin + (stack-info-forget! + body-stk-i_0 + stack-depth_0 + pos_0 + count_0) + (vector + (count->mask + count_0 + rest?_0) + new-body_0))))))) + (args + (raise-binding-result-arity-error + 3 + args)))) + fold-var_0))) + (values + fold-var_1)))) + (for-loop_0 + fold-var_1 + rest_0 + rest_1 + rest_2)))))))) + fold-var_0)))))) + (for-loop_0 + null + idss_0 + bodys_0 + body-stk-is_0)))))) + (let ((all-clear_0 + (stack-info-merge! + stk-i_0 + body-stk-is_0))) + (let ((app_0 + (compile-body_0 + serializable?_0 + body_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (let ((app_1 + (stack->pos.1 + #t + stack-depth_0 + stk-i_0))) + (let ((app_2 + (if (let ((p_0 + (unwrap + e_0))) + (if (pair? + p_0) + (let ((a_0 + (cdr + p_0))) + (let ((p_1 + (unwrap + a_0))) + (if (pair? + p_1) + (let ((a_1 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_1))) + (if (pair? + p_2) + (let ((a_2 + (cdr + p_2))) + (begin-unsafe + (let ((app_2 + (unwrap + '()))) + (eq? + app_2 + (unwrap + a_2))))) + #f))) + #f))) + #f)) + (let ((receiver_0 + (let ((d_0 + (cdr + (unwrap + e_0)))) + (let ((d_1 + (cdr + (unwrap + d_0)))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0))))) + (wrap-property + receiver_0 + 'inferred-name)) + (error + 'match + "failed ~e" + e_0)))) + (vector + 'cwv + app_0 + app_1 + app_2 + (reverse$1 + (begin + (letrec* + ((for-loop_0 + (|#%name| + for-loop + (lambda (fold-var_0 + lst_0 + lst_1) + (begin + (if (if (pair? + lst_0) + (pair? + lst_1) + #f) + (let ((initial-new-clause_0 + (unsafe-car + lst_0))) + (let ((rest_0 + (unsafe-cdr + lst_0))) + (let ((body-stk-i_0 + (unsafe-car + lst_1))) + (let ((rest_1 + (unsafe-cdr + lst_1))) + (let ((fold-var_1 + (let ((fold-var_1 + (cons + (let ((body_1 + (vector-ref + initial-new-clause_0 + 1))) + (let ((app_3 + (vector-ref + initial-new-clause_0 + 0))) + (vector + app_3 + (add-clears_0 + body_1 + body-stk-i_0 + all-clear_0)))) + fold-var_0))) + (values + fold-var_1)))) + (for-loop_0 + fold-var_1 + rest_0 + rest_1)))))) + fold-var_0)))))) + (for-loop_0 + null + initial-new-clauses_0 + body-stk-is_0)))))))))))) + (args + (raise-binding-result-arity-error + 3 + args)))) (if (if (eq? 'call-with-module-prompt hd_0) @@ -54180,13 +55785,14 @@ (if (let ((a_2 (car p_1))) - (let ((app_0 - (unwrap - 'lambda))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + 'lambda))) + (eq? + app_0 + (unwrap + a_2))))) (let ((a_2 (cdr p_1))) @@ -54198,13 +55804,14 @@ (if (let ((a_3 (car p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #t #f) #f))) @@ -54213,245 +55820,47 @@ (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (if (let ((a_2 - (car - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_3)))) - (let ((a_3 - (cdr - p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) - #f) - #f))) - (let ((a_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (if (let ((a_4 - (car - p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) - (let ((a_4 - (cdr - p_3))) - (let ((p_4 - (unwrap - a_4))) - (if (pair? - p_4) - (let ((a_5 - (cdr - p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) - #f))) - #f) - #f))) - (let ((a_3 - (cdr - p_2))) - (wrap-list? - a_3)) - #f) - #f))) - #f) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 - (cdr - (unwrap - e_0)))) - (let ((p_0 - (unwrap - d_0))) - (let ((body_0 - (let ((a_0 - (car - p_0))) - (let ((d_1 - (cdr - (unwrap - a_0)))) - (let ((d_2 - (cdr - (unwrap - d_1)))) - d_2))))) - (call-with-values - (lambda () - (let ((d_1 - (cdr - p_0))) - (let ((p_1 + (let ((body_0 + (let ((d_0 + (cdr + (unwrap + e_0)))) + (let ((a_0 + (car + (unwrap + d_0)))) + (let ((d_1 + (cdr + (unwrap + a_0)))) + (let ((d_2 + (cdr (unwrap - d_1))) - (let ((ids_0 - (let ((a_0 - (car - p_1))) - (let ((d_2 - (cdr - (unwrap - a_0)))) - (let ((a_1 - (car - (unwrap - d_2)))) - a_1))))) - (call-with-values - (lambda () - (let ((d_2 - (cdr - p_1))) - (let ((p_2 - (unwrap - d_2))) - (let ((constances_0 - (let ((a_0 - (car - p_2))) - (let ((d_3 - (cdr - (unwrap - a_0)))) - (let ((a_1 - (car - (unwrap - d_3)))) - a_1))))) - (let ((vars_0 - (let ((d_3 - (cdr - p_2))) - (unwrap-list - d_3)))) - (let ((constances_1 - constances_0)) - (values - constances_1 - vars_0))))))) - (case-lambda - ((constances_0 - vars_0) - (let ((ids_1 - ids_0)) - (values - ids_1 - constances_0 - vars_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((ids_0 - constances_0 - vars_0) - (let ((body_1 - body_0)) - (values - body_1 - ids_0 - constances_0 - vars_0))) - (args - (raise-binding-result-arity-error - 3 - args)))))))) - (case-lambda - ((body_0 - ids_0 - constances_0 - vars_0) - (let ((app_0 - (compile-body_0 - serializable?_0 - body_0 - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0))) - (vector - 'cwmp - app_0 - ids_0 - constances_0 - (compile-list_0 - serializable?_0 - vars_0 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0)))) - (args - (raise-binding-result-arity-error - 4 - args)))) + d_1)))) + d_2)))))) + (vector + 'cwmp0 + (compile-body_0 + serializable?_0 + body_0 + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0))) (if (if (eq? - 'variable-set! + 'call-with-module-prompt hd_0) (let ((a_0 (cdr @@ -54462,25 +55871,157 @@ a_0))) (if (pair? p_0) - (let ((a_1 - (cdr - p_0))) - (let ((p_1 - (unwrap - a_1))) - (if (pair? - p_1) - (let ((a_2 - (cdr - p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 + (if (let ((a_1 + (car + p_0))) + (let ((p_1 + (unwrap + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car + p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + 'lambda))) + (eq? + app_0 + (unwrap + a_2))))) + (let ((a_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) + #t + #f) + #f))) + #f) + #f))) + (let ((a_1 + (cdr + p_0))) + (let ((p_1 (unwrap - a_2)))) - #f))) + a_1))) + (if (pair? + p_1) + (if (let ((a_2 + (car + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_3))))) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f) + #f))) + (let ((a_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (if (let ((a_4 + (car + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) + (let ((a_4 + (cdr + p_3))) + (let ((p_4 + (unwrap + a_4))) + (if (pair? + p_4) + (let ((a_5 + (cdr + p_4))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) + #f))) + #f) + #f))) + (let ((a_3 + (cdr + p_2))) + (wrap-list? + a_3)) + #f) + #f))) + #f) + #f))) + #f) #f))) #f) (call-with-values @@ -54492,56 +56033,133 @@ (let ((p_0 (unwrap d_0))) - (let ((dest-id_0 + (let ((body_0 (let ((a_0 (car p_0))) - a_0))) - (let ((e_1 (let ((d_1 (cdr - p_0))) - (let ((a_0 - (car + (unwrap + a_0)))) + (let ((d_2 + (cdr (unwrap d_1)))) - a_0)))) - (let ((dest-id_1 - dest-id_0)) - (values - dest-id_1 - e_1))))))) + d_2))))) + (call-with-values + (lambda () + (let ((d_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + d_1))) + (let ((ids_0 + (let ((a_0 + (car + p_1))) + (let ((d_2 + (cdr + (unwrap + a_0)))) + (let ((a_1 + (car + (unwrap + d_2)))) + a_1))))) + (call-with-values + (lambda () + (let ((d_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((constances_0 + (let ((a_0 + (car + p_2))) + (let ((d_3 + (cdr + (unwrap + a_0)))) + (let ((a_1 + (car + (unwrap + d_3)))) + a_1))))) + (let ((vars_0 + (let ((d_3 + (cdr + p_2))) + (unwrap-list + d_3)))) + (let ((constances_1 + constances_0)) + (values + constances_1 + vars_0))))))) + (case-lambda + ((constances_0 + vars_0) + (let ((ids_1 + ids_0)) + (values + ids_1 + constances_0 + vars_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((ids_0 + constances_0 + vars_0) + (let ((body_1 + body_0)) + (values + body_1 + ids_0 + constances_0 + vars_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) (case-lambda - ((dest-id_0 e_1) - (let ((dest-var_0 - (hash-ref + ((body_0 + ids_0 + constances_0 + vars_0) + (let ((app_0 + (compile-body_0 + serializable?_0 + body_0 env_0 - (unwrap - dest-id_0)))) - (let ((new-expr_0 - (compile-expr_0 - serializable?_0 - e_1 - env_0 - stack-depth_0 - stk-i_0 - #f - mutated_0))) - (vector - 'set-variable! - (stack->pos.1 - #f - dest-var_0 - stk-i_0) - new-expr_0 - #f - #f)))) + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0))) + (vector + 'cwmp + app_0 + ids_0 + constances_0 + (compile-list_0 + serializable?_0 + vars_0 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0)))) (args (raise-binding-result-arity-error - 2 + 4 args)))) (if (if (eq? - 'variable-set!/define + 'variable-set! hd_0) (let ((a_0 (cdr @@ -54563,62 +56181,14 @@ (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (if (let ((a_4 - (car - p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) - (let ((a_4 - (cdr - p_3))) - (let ((p_4 - (unwrap - a_4))) - (if (pair? - p_4) - (let ((a_5 - (cdr - p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) - #f))) - #f) - #f))) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -54636,58 +56206,22 @@ (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 - (cdr - p_0))) - (let ((p_1 - (unwrap - d_1))) - (let ((e_1 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((constance_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - (let ((d_3 - (cdr - (unwrap - a_0)))) - (let ((a_1 - (car - (unwrap - d_3)))) - a_1)))))) - (let ((e_2 - e_1)) - (values - e_2 - constance_0))))))) - (case-lambda - ((e_1 - constance_0) - (let ((dest-id_1 - dest-id_0)) - (values - dest-id_1 - e_1 - constance_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((e_1 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((dest-id_1 + dest-id_0)) + (values + dest-id_1 + e_1))))))) (case-lambda - ((dest-id_0 - e_1 - constance_0) + ((dest-id_0 e_1) (let ((dest-var_0 (hash-ref env_0 @@ -54709,14 +56243,14 @@ dest-var_0 stk-i_0) new-expr_0 - constance_0 - #t)))) + #f + #f)))) (args (raise-binding-result-arity-error - 3 + 2 args)))) (if (if (eq? - 'variable-ref + 'variable-set!/define hd_0) (let ((a_0 (cdr @@ -54730,38 +56264,171 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 + (let ((p_1 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (if (let ((a_4 + (car + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) + (let ((a_4 + (cdr + p_3))) + (let ((p_4 + (unwrap + a_4))) + (if (pair? + p_4) + (let ((a_5 + (cdr + p_4))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) + #f))) + #f) + #f))) + (let ((a_3 + (cdr + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) + #f) + #f))) + #f))) #f))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap - e_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - (let ((var_0 - (hash-ref - env_0 - (unwrap - id_0)))) - (vector - 'ref-variable/checked - (stack->pos.1 - #f - var_0 - stk-i_0)))) + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap + e_0)))) + (let ((p_0 + (unwrap + d_0))) + (let ((dest-id_0 + (let ((a_0 + (car + p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + d_1))) + (let ((e_1 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((constance_0 + (let ((d_2 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + (let ((d_3 + (cdr + (unwrap + a_0)))) + (let ((a_1 + (car + (unwrap + d_3)))) + a_1)))))) + (let ((e_2 + e_1)) + (values + e_2 + constance_0))))))) + (case-lambda + ((e_1 + constance_0) + (let ((dest-id_1 + dest-id_0)) + (values + dest-id_1 + e_1 + constance_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((dest-id_0 + e_1 + constance_0) + (let ((dest-var_0 + (hash-ref + env_0 + (unwrap + dest-id_0)))) + (let ((new-expr_0 + (compile-expr_0 + serializable?_0 + e_1 + env_0 + stack-depth_0 + stk-i_0 + #f + mutated_0))) + (vector + 'set-variable! + (stack->pos.1 + #f + dest-var_0 + stk-i_0) + new-expr_0 + constance_0 + #t)))) + (args + (raise-binding-result-arity-error + 3 + args)))) (if (if (eq? - 'variable-ref/no-check + 'variable-ref hd_0) (let ((a_0 (cdr @@ -54775,13 +56442,14 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) (let ((id_0 @@ -54800,128 +56468,174 @@ (unwrap id_0)))) (vector - 'ref-variable + 'ref-variable/checked (stack->pos.1 #f var_0 stk-i_0)))) (if (if (eq? - '|#%app| + 'variable-ref/no-check hd_0) (let ((a_0 (cdr (unwrap e_0)))) - (wrap-list? - a_0)) + (let ((p_0 + (unwrap + a_0))) + (if (pair? + p_0) + (let ((a_1 + (cdr + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) #f) - (compile-apply_0 - serializable?_0 - (wrap-cdr - e_0) - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0) - (if (let ((p_0 - (unwrap - e_0))) - (if (pair? - p_0) - (let ((a_0 - (cdr - p_0))) - (wrap-list? - a_0)) - #f)) - (let ((rator_0 + (let ((id_0 + (let ((d_0 + (cdr + (unwrap + e_0)))) (let ((a_0 (car (unwrap - e_0)))) - a_0))) - (compile-apply_0 - serializable?_0 - e_0 - env_0 - stack-depth_0 - stk-i_0 - tail?_0 - mutated_0)) - (let ((u_0 - (unwrap - e_0))) - (let ((var_0 - (hash-ref - env_0 - u_0 - #f))) - (if (not - var_0) - (if (number? - u_0) - (vector - 'quote - u_0) - (let ((c1_0 - (if (symbol? - u_0) - (if (not - serializable?_0) - (hash-ref - primitives - u_0 - #f) - #f) - #f))) - (if c1_0 - (if (procedure? - c1_0) - c1_0 - (vector - 'quote - c1_0)) - u_0))) - (if (indirect? + d_0)))) + a_0)))) + (let ((var_0 + (hash-ref + env_0 + (unwrap + id_0)))) + (vector + 'ref-variable + (stack->pos.1 + #f + var_0 + stk-i_0)))) + (if (if (eq? + '|#%app| + hd_0) + (let ((a_0 + (cdr + (unwrap + e_0)))) + (wrap-list? + a_0)) + #f) + (compile-apply_0 + serializable?_0 + (wrap-cdr + e_0) + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0) + (if (let ((p_0 + (unwrap + e_0))) + (if (pair? + p_0) + (let ((a_0 + (cdr + p_0))) + (wrap-list? + a_0)) + #f)) + (let ((rator_0 + (let ((a_0 + (car + (unwrap + e_0)))) + a_0))) + (compile-apply_0 + serializable?_0 + e_0 + env_0 + stack-depth_0 + stk-i_0 + tail?_0 + mutated_0)) + (let ((u_0 + (unwrap + e_0))) + (let ((var_0 + (hash-ref + env_0 + u_0 + #f))) + (if (not var_0) - (let ((pos_0 - (let ((temp36_0 - (indirect-pos - var_0))) - (stack->pos.1 - #f - temp36_0 - stk-i_0)))) - (let ((elem_0 - (indirect-element - var_0))) - (cons - pos_0 - elem_0))) - (if (boxed? + (if (number? + u_0) + (vector + 'quote + u_0) + (let ((c1_0 + (if (symbol? + u_0) + (if (not + serializable?_0) + (hash-ref + primitives + u_0 + #f) + #f) + #f))) + (if c1_0 + (if (procedure? + c1_0) + c1_0 + (vector + 'quote + c1_0)) + u_0))) + (if (indirect? var_0) (let ((pos_0 - (let ((temp38_0 - (boxed-pos + (let ((temp36_0 + (indirect-pos var_0))) (stack->pos.1 #f - temp38_0 + temp36_0 stk-i_0)))) - (if (boxed/check? - var_0) - (vector - 'unbox/checked + (let ((elem_0 + (indirect-element + var_0))) + (cons pos_0 - u_0) - (vector - 'unbox - pos_0))) - (stack->pos.1 - #f - var_0 - stk-i_0)))))))))))))))))))))))))))))))))))) + elem_0))) + (if (boxed? + var_0) + (let ((pos_0 + (let ((temp38_0 + (boxed-pos + var_0))) + (stack->pos.1 + #f + temp38_0 + stk-i_0)))) + (if (boxed/check? + var_0) + (vector + 'unbox/checked + pos_0 + u_0) + (vector + 'unbox + pos_0))) + (stack->pos.1 + #f + var_0 + stk-i_0))))))))))))))))))))))))))))))))))))) (compile-letrec_0 (|#%name| compile-letrec @@ -54948,16 +56662,20 @@ (lambda (result_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -54979,13 +56697,14 @@ (let ((a_3 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -55025,14 +56744,19 @@ for-loop (lambda (ids_0 rhss_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -55240,15 +56964,19 @@ for-loop (lambda (env_1 num-body-vars_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((e_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((e_1 e_0)) @@ -55399,13 +57127,18 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -55445,13 +57178,18 @@ for-loop (lambda (idss_0 bodys_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -55552,19 +57290,22 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -55587,13 +57328,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -55634,16 +57376,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -55747,19 +57494,22 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -55782,13 +57532,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -55829,18 +57580,21 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -55949,19 +57703,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -55984,13 +57742,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -56031,19 +57790,22 @@ (lambda (ids_0 rhss_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -56150,8 +57912,9 @@ (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) (let ((vs_0 @@ -56159,99 +57922,37 @@ (let ((a_0 (car (unwrap d_0)))) a_0)))) (extract-list-mutated_0 vs_0 mutated_0)) - (if (if (eq? '$value hd_0) + (if (if (eq? 'begin-unsafe hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) - (let ((e_1 + (let ((vs_0 (let ((d_0 (cdr (unwrap e_0)))) (let ((a_0 (car (unwrap d_0)))) a_0)))) - (extract-expr-mutated_0 e_1 mutated_0)) - (if (if (eq? 'if hd_0) + (extract-list-mutated_0 vs_0 mutated_0)) + (if (if (eq? '$value hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap a_2))) - (if (pair? p_2) - (let ((a_3 - (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) - #f))) - #f))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((tst_0 - (let ((a_0 (car p_0))) - a_0))) - (call-with-values - (lambda () - (let ((d_1 (cdr p_0))) - (let ((p_1 (unwrap d_1))) - (let ((thn_0 - (let ((a_0 - (car p_1))) - a_0))) - (let ((els_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - a_0)))) - (let ((thn_1 thn_0)) - (values - thn_1 - els_0))))))) - (case-lambda - ((thn_0 els_0) - (let ((tst_1 tst_0)) - (values tst_1 thn_0 els_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) - (case-lambda - ((tst_0 thn_0 els_0) - (let ((tst-mutated_0 - (extract-expr-mutated_0 - tst_0 - mutated_0))) - (let ((thn-mutated_0 - (extract-expr-mutated_0 - thn_0 - tst-mutated_0))) - (extract-expr-mutated_0 - els_0 - thn-mutated_0)))) - (args - (raise-binding-result-arity-error - 3 - args)))) - (if (if (eq? - 'with-continuation-mark* - hd_0) + (let ((e_1 + (let ((d_0 (cdr (unwrap e_0)))) + (let ((a_0 (car (unwrap d_0)))) + a_0)))) + (extract-expr-mutated_0 e_1 mutated_0)) + (if (if (eq? 'if hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) @@ -56264,22 +57965,14 @@ (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (let ((a_4 - (cdr - p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f))) #f))) @@ -56288,156 +57981,203 @@ (lambda () (let ((d_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((mode_0 + (let ((tst_0 (let ((a_0 (car p_0))) a_0))) (call-with-values (lambda () (let ((d_1 (cdr p_0))) (let ((p_1 (unwrap d_1))) - (let ((key_0 + (let ((thn_0 (let ((a_0 (car p_1))) a_0))) - (call-with-values - (lambda () - (let ((d_2 - (cdr p_1))) - (let ((p_2 - (unwrap - d_2))) - (let ((val_0 - (let ((a_0 - (car - p_2))) - a_0))) - (let ((body_0 - (let ((d_3 - (cdr - p_2))) - (let ((a_0 - (car - (unwrap - d_3)))) - a_0)))) - (let ((val_1 - val_0)) - (values - val_1 - body_0))))))) - (case-lambda - ((val_0 body_0) - (let ((key_1 - key_0)) - (values - key_1 - val_0 - body_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((els_0 + (let ((d_2 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + a_0)))) + (let ((thn_1 thn_0)) + (values + thn_1 + els_0))))))) (case-lambda - ((key_0 val_0 body_0) - (let ((mode_1 mode_0)) + ((thn_0 els_0) + (let ((tst_1 tst_0)) (values - mode_1 - key_0 - val_0 - body_0))) + tst_1 + thn_0 + els_0))) (args (raise-binding-result-arity-error - 3 + 2 args)))))))) (case-lambda - ((mode_0 key_0 val_0 body_0) - (let ((key-mutated_0 + ((tst_0 thn_0 els_0) + (let ((tst-mutated_0 (extract-expr-mutated_0 - key_0 + tst_0 mutated_0))) - (let ((val-mutated_0 + (let ((thn-mutated_0 (extract-expr-mutated_0 - val_0 - key-mutated_0))) + thn_0 + tst-mutated_0))) (extract-expr-mutated_0 - body_0 - val-mutated_0)))) + els_0 + thn-mutated_0)))) (args (raise-binding-result-arity-error - 4 + 3 args)))) - (if (if (eq? 'quote hd_0) + (if (if (eq? + 'with-continuation-mark* + hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) + (let ((p_1 (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 (cdr p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? p_2) + (let ((a_3 + (cdr + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (let ((a_4 + (cdr + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) + #f))) + #f))) + #f))) #f))) #f) - (let ((v_0 - (let ((d_0 (cdr (unwrap e_0)))) - (let ((a_0 - (car (unwrap d_0)))) - a_0)))) - mutated_0) - (if (if (eq? 'set! hd_0) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap d_0))) + (let ((mode_0 + (let ((a_0 (car p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 (cdr p_0))) + (let ((p_1 + (unwrap d_1))) + (let ((key_0 + (let ((a_0 + (car + p_1))) + a_0))) + (call-with-values + (lambda () + (let ((d_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + d_2))) + (let ((val_0 + (let ((a_0 + (car + p_2))) + a_0))) + (let ((body_0 + (let ((d_3 + (cdr + p_2))) + (let ((a_0 + (car + (unwrap + d_3)))) + a_0)))) + (let ((val_1 + val_0)) + (values + val_1 + body_0))))))) + (case-lambda + ((val_0 body_0) + (let ((key_1 + key_0)) + (values + key_1 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((key_0 val_0 body_0) + (let ((mode_1 mode_0)) + (values + mode_1 + key_0 + val_0 + body_0))) + (args + (raise-binding-result-arity-error + 3 + args)))))))) + (case-lambda + ((mode_0 key_0 val_0 body_0) + (let ((key-mutated_0 + (extract-expr-mutated_0 + key_0 + mutated_0))) + (let ((val-mutated_0 + (extract-expr-mutated_0 + val_0 + key-mutated_0))) + (extract-expr-mutated_0 + body_0 + val-mutated_0)))) + (args + (raise-binding-result-arity-error + 4 + args)))) + (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (let ((new-mutated_0 - (hash-set - mutated_0 - (unwrap id_0) - #t))) - (extract-expr-mutated_0 - rhs_0 - new-mutated_0))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? 'define hd_0) + (let ((v_0 + (let ((d_0 + (cdr (unwrap e_0)))) + (let ((a_0 + (car (unwrap d_0)))) + a_0)))) + mutated_0) + (if (if (eq? 'set! hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) @@ -56448,13 +58188,14 @@ (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -56480,14 +58221,19 @@ rhs_0))))))) (case-lambda ((id_0 rhs_0) - (extract-expr-mutated_0 - rhs_0 - mutated_0)) + (let ((new-mutated_0 + (hash-set + mutated_0 + (unwrap id_0) + #t))) + (extract-expr-mutated_0 + rhs_0 + new-mutated_0))) (args (raise-binding-result-arity-error 2 args)))) - (if (if (eq? 'define-values hd_0) + (if (if (eq? 'define hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) @@ -56500,13 +58246,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -56515,7 +58262,7 @@ (let ((d_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((ids_0 + (let ((id_0 (let ((a_0 (car p_0))) a_0))) @@ -56528,12 +58275,12 @@ (unwrap d_1)))) a_0)))) - (let ((ids_1 ids_0)) + (let ((id_1 id_0)) (values - ids_1 + id_1 rhs_0))))))) (case-lambda - ((ids_0 rhs_0) + ((id_0 rhs_0) (extract-expr-mutated_0 rhs_0 mutated_0)) @@ -56542,7 +58289,7 @@ 2 args)))) (if (if (eq? - 'variable-set! + 'define-values hd_0) (let ((a_0 (cdr @@ -56559,13 +58306,14 @@ (let ((a_2 (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_2)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -56574,12 +58322,12 @@ (let ((d_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap d_0))) - (let ((dest-id_0 + (let ((ids_0 (let ((a_0 (car p_0))) a_0))) - (let ((e_1 + (let ((rhs_0 (let ((d_1 (cdr p_0))) @@ -56588,22 +58336,22 @@ (unwrap d_1)))) a_0)))) - (let ((dest-id_1 - dest-id_0)) + (let ((ids_1 + ids_0)) (values - dest-id_1 - e_1))))))) + ids_1 + rhs_0))))))) (case-lambda - ((dest-id_0 e_1) + ((ids_0 rhs_0) (extract-expr-mutated_0 - e_1 + rhs_0 mutated_0)) (args (raise-binding-result-arity-error 2 args)))) (if (if (eq? - 'variable-set!/define + 'variable-set! hd_0) (let ((a_0 (cdr @@ -56621,62 +58369,14 @@ (let ((a_2 (cdr p_1))) - (let ((p_2 - (unwrap - a_2))) - (if (pair? - p_2) - (if (let ((a_3 - (car - p_2))) - (let ((p_3 - (unwrap - a_3))) - (if (pair? - p_3) - (if (let ((a_4 - (car - p_3))) - (let ((app_0 - (unwrap - 'quote))) - (eq? - app_0 - (unwrap - a_4)))) - (let ((a_4 - (cdr - p_3))) - (let ((p_4 - (unwrap - a_4))) - (if (pair? - p_4) - (let ((a_5 - (cdr - p_4))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_5)))) - #f))) - #f) - #f))) - (let ((a_3 - (cdr - p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) - #f) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) #f))) #f))) #f) @@ -56692,67 +58392,31 @@ (car p_0))) a_0))) - (call-with-values - (lambda () - (let ((d_1 - (cdr - p_0))) - (let ((p_1 - (unwrap - d_1))) - (let ((e_1 - (let ((a_0 - (car - p_1))) - a_0))) - (let ((constance_0 - (let ((d_2 - (cdr - p_1))) - (let ((a_0 - (car - (unwrap - d_2)))) - (let ((d_3 - (cdr - (unwrap - a_0)))) - (let ((a_1 - (car - (unwrap - d_3)))) - a_1)))))) - (let ((e_2 - e_1)) - (values - e_2 - constance_0))))))) - (case-lambda - ((e_1 - constance_0) - (let ((dest-id_1 - dest-id_0)) - (values - dest-id_1 - e_1 - constance_0))) - (args - (raise-binding-result-arity-error - 2 - args)))))))) + (let ((e_1 + (let ((d_1 + (cdr + p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((dest-id_1 + dest-id_0)) + (values + dest-id_1 + e_1))))))) (case-lambda - ((dest-id_0 - e_1 - constance_0) + ((dest-id_0 e_1) (extract-expr-mutated_0 e_1 mutated_0)) (args (raise-binding-result-arity-error - 3 + 2 args)))) (if (if (eq? - 'variable-ref + 'variable-set!/define hd_0) (let ((a_0 (cdr @@ -56765,28 +58429,149 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 + (let ((p_1 (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + a_1))) + (if (pair? + p_1) + (let ((a_2 + (cdr + p_1))) + (let ((p_2 + (unwrap + a_2))) + (if (pair? + p_2) + (if (let ((a_3 + (car + p_2))) + (let ((p_3 + (unwrap + a_3))) + (if (pair? + p_3) + (if (let ((a_4 + (car + p_3))) + (begin-unsafe + (let ((app_0 + (unwrap + 'quote))) + (eq? + app_0 + (unwrap + a_4))))) + (let ((a_4 + (cdr + p_3))) + (let ((p_4 + (unwrap + a_4))) + (if (pair? + p_4) + (let ((a_5 + (cdr + p_4))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_5))))) + #f))) + #f) + #f))) + (let ((a_3 + (cdr + p_2))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) + #f) + #f))) + #f))) #f))) #f) - (let ((id_0 - (let ((d_0 - (cdr - (unwrap - e_0)))) - (let ((a_0 - (car - (unwrap - d_0)))) - a_0)))) - mutated_0) + (call-with-values + (lambda () + (let ((d_0 + (cdr + (unwrap e_0)))) + (let ((p_0 + (unwrap d_0))) + (let ((dest-id_0 + (let ((a_0 + (car + p_0))) + a_0))) + (call-with-values + (lambda () + (let ((d_1 + (cdr + p_0))) + (let ((p_1 + (unwrap + d_1))) + (let ((e_1 + (let ((a_0 + (car + p_1))) + a_0))) + (let ((constance_0 + (let ((d_2 + (cdr + p_1))) + (let ((a_0 + (car + (unwrap + d_2)))) + (let ((d_3 + (cdr + (unwrap + a_0)))) + (let ((a_1 + (car + (unwrap + d_3)))) + a_1)))))) + (let ((e_2 + e_1)) + (values + e_2 + constance_0))))))) + (case-lambda + ((e_1 + constance_0) + (let ((dest-id_1 + dest-id_0)) + (values + dest-id_1 + e_1 + constance_0))) + (args + (raise-binding-result-arity-error + 2 + args)))))))) + (case-lambda + ((dest-id_0 + e_1 + constance_0) + (extract-expr-mutated_0 + e_1 + mutated_0)) + (args + (raise-binding-result-arity-error + 3 + args)))) (if (if (eq? - 'variable-ref/no-check + 'variable-ref hd_0) (let ((a_0 (cdr @@ -56799,13 +58584,14 @@ (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_1)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) #f))) #f) (let ((id_0 @@ -56820,33 +58606,69 @@ a_0)))) mutated_0) (if (if (eq? - '|#%app| + 'variable-ref/no-check hd_0) (let ((a_0 (cdr (unwrap e_0)))) - (wrap-list? - a_0)) + (let ((p_0 + (unwrap + a_0))) + (if (pair? + p_0) + (let ((a_1 + (cdr + p_0))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_1))))) + #f))) #f) - (let ((es_0 + (let ((id_0 (let ((d_0 (cdr (unwrap e_0)))) - (unwrap-list - d_0)))) - (extract-list-mutated_0 - es_0 - mutated_0)) - (if (wrap-list? e_0) + (let ((a_0 + (car + (unwrap + d_0)))) + a_0)))) + mutated_0) + (if (if (eq? + '|#%app| + hd_0) + (let ((a_0 + (cdr + (unwrap + e_0)))) + (wrap-list? + a_0)) + #f) (let ((es_0 - (unwrap-list - e_0))) + (let ((d_0 + (cdr + (unwrap + e_0)))) + (unwrap-list + d_0)))) (extract-list-mutated_0 es_0 mutated_0)) - mutated_0))))))))))))))))))))))))) + (if (wrap-list? e_0) + (let ((es_0 + (unwrap-list + e_0))) + (extract-list-mutated_0 + es_0 + mutated_0)) + mutated_0)))))))))))))))))))))))))) (extract-list-mutated_0 (|#%name| extract-list-mutated @@ -56931,13 +58753,16 @@ for-loop (lambda (env_1 num-body-vars_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe (null? (unwrap lst_0)))) (let ((id_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((id_1 id_0)) @@ -56988,13 +58813,17 @@ for-loop (lambda (env_1 num-body-vars_1 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((e_1 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? (unwrap lst_0)) + (if (begin-unsafe + (pair? (unwrap lst_0))) (wrap-cdr lst_0) null))) (let ((e_2 e_1)) @@ -57039,7 +58868,8 @@ stk-i_0 body_0) (begin - (if (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap body_0))) + (if (begin-unsafe + (let ((app_0 (unwrap '()))) (eq? app_0 (unwrap body_0)))) '() (if (let ((p_0 (unwrap body_0))) (if (pair? p_0) @@ -57047,8 +58877,9 @@ (let ((p_1 (unwrap a_0))) (if (pair? p_1) (if (let ((a_1 (car p_1))) - (let ((app_0 (unwrap 'begin))) - (eq? app_0 (unwrap a_1)))) + (begin-unsafe + (let ((app_0 (unwrap 'begin))) + (eq? app_0 (unwrap a_1))))) (let ((a_1 (cdr p_1))) (wrap-list? a_1)) #f) #f))) @@ -57205,8 +59036,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -57394,7 +59226,8 @@ (+ pos_0 1))))) stack_0)))))) (for-loop_0 start-stack_0 args_0 start_0)))))) - (let ((post-args-pos_0 (intmap-count args-stack_0))) + (let ((post-args-pos_0 + (begin-unsafe (intmap-count args-stack_0)))) (let ((stack_0 (begin (letrec* @@ -58412,9 +60245,11 @@ (let ((i_0 (car clears_2))) - (delete - stack_0 - i_0)))))))))) + (begin-unsafe + (begin-unsafe + (delete + stack_0 + i_0)))))))))))) (loop_3 clears_1 stack65_0))))) @@ -58672,9 +60507,10 @@ 1))) (let ((mask_1 mask_0)) - (if (bitwise-bit-set? - mask_1 - len_0) + (if (begin-unsafe + (bitwise-bit-set? + mask_1 + len_0)) (interpret_0 b_2 (push-stack @@ -58930,9 +60766,10 @@ (unsafe-vector*-ref one-b_0 1))) - (if (bitwise-bit-set? - mask_2 - len_0) + (if (begin-unsafe + (bitwise-bit-set? + mask_2 + len_0)) (apply-function_0 one-b_0 (car @@ -59322,27 +61159,18 @@ (|#%name| body-leftover-size (lambda (serializable?_0 body_0 size_0) - (begin (begin (for-loop_0 serializable?_0 size_0 body_0)))))) + (begin (begin (for-loop_2 serializable?_0 size_0 body_0)))))) (for-loop_0 (|#%name| for-loop - (lambda (serializable?_0 size_0 lst_0) + (lambda (len_0 vec_0 size_0 pos_0) (begin - (if (not (null? (unwrap lst_0))) - (let ((e_0 - (if (pair? (unwrap lst_0)) (wrap-car lst_0) lst_0))) - (let ((rest_0 - (if (pair? (unwrap lst_0)) (wrap-cdr lst_0) null))) - (let ((e_1 e_0)) - (if (<= size_0 0) - size_0 - (let ((size_1 - (leftover-size_0 - serializable?_0 - e_1 - size_0))) - (begin - (for-loop_0 serializable?_0 size_1 rest_0))))))) + (if (unsafe-fx< pos_0 len_0) + (let ((v_0 (unsafe-vector-ref vec_0 pos_0))) + (if (<= size_0 0) + size_0 + (let ((size_1 (s-expr-leftover-size_0 v_0 size_0))) + (next-k-proc_1 len_0 pos_0 vec_0 size_1)))) size_0))))) (for-loop_1 (|#%name| @@ -59366,14 +61194,31 @@ (for-loop_2 (|#%name| for-loop - (lambda (len_0 vec_0 size_0 pos_0) + (lambda (serializable?_0 size_0 lst_0) (begin - (if (unsafe-fx< pos_0 len_0) - (let ((v_0 (unsafe-vector-ref vec_0 pos_0))) - (if (<= size_0 0) - size_0 - (let ((size_1 (s-expr-leftover-size_0 v_0 size_0))) - (next-k-proc_1 len_0 pos_0 vec_0 size_1)))) + (if (not (begin-unsafe (null? (unwrap lst_0)))) + (let ((e_0 + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-car lst_0) + lst_0))) + (let ((rest_0 + (if (begin-unsafe (pair? (unwrap lst_0))) + (wrap-cdr lst_0) + null))) + (let ((e_1 e_0)) + (if (<= size_0 0) + size_0 + (let ((size_1 + (leftover-size_0 + serializable?_0 + e_1 + size_0))) + (begin-unsafe + (begin + (for-loop_2 + serializable?_0 + size_1 + rest_0)))))))) size_0))))) (leftover-size_0 (|#%name| @@ -59399,8 +61244,9 @@ (let ((p_1 (unwrap a_1))) (if (pair? p_1) (let ((a_2 (cdr p_1))) - (let ((app_0 (unwrap '()))) - (eq? app_0 (unwrap a_2)))) + (begin-unsafe + (let ((app_0 (unwrap '()))) + (eq? app_0 (unwrap a_2))))) #f))) #f))) #f) @@ -59434,15 +61280,20 @@ for-loop (lambda (result_0 lst_0) (begin - (if (not (null? (unwrap lst_0))) + (if (not + (begin-unsafe + (null? (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) (let ((v_1 v_0)) @@ -59484,19 +61335,22 @@ (lambda (bodys_0 lst_0) (begin (if (not - (null? - (unwrap lst_0))) + (begin-unsafe + (null? + (unwrap lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -59538,20 +61392,23 @@ (lambda (result_0 lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -59575,13 +61432,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -59621,20 +61479,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -59692,20 +61553,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -59729,13 +61593,14 @@ (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_3))))) #f))) #f)))) (values @@ -59775,20 +61640,23 @@ lst_0) (begin (if (not - (null? - (unwrap - lst_0))) + (begin-unsafe + (null? + (unwrap + lst_0)))) (let ((v_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-car lst_0) lst_0))) (let ((rest_0 - (if (pair? - (unwrap - lst_0)) + (if (begin-unsafe + (pair? + (unwrap + lst_0))) (wrap-cdr lst_0) null))) @@ -59844,12 +61712,13 @@ (let ((p_2 (unwrap a_2))) (if (pair? p_2) (let ((a_3 (cdr p_2))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_3)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap a_3))))) #f))) #f))) #f))) @@ -59924,13 +61793,14 @@ (let ((a_4 (cdr p_3))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap - a_4)))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_4))))) #f))) #f))) #f))) @@ -59993,7 +61863,7 @@ (raise-binding-result-arity-error 3 args)))) - (if (if (eq? 'begin0 hd_0) #t #f) + (if (if (eq? 'begin-unsafe hd_0) #t #f) (let ((body_0 (let ((d_0 (cdr (unwrap e_0)))) d_0))) @@ -60001,101 +61871,116 @@ serializable?_0 body_0 (sub1 size_0))) - (if (if (eq? 'quote hd_0) - (let ((a_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap a_0))) - (if (pair? p_0) - (let ((a_1 (cdr p_0))) - (let ((app_0 - (unwrap '()))) - (eq? - app_0 - (unwrap a_1)))) - #f))) - #f) - (let ((v_0 + (if (if (eq? 'begin0 hd_0) #t #f) + (let ((body_0 (let ((d_0 (cdr (unwrap e_0)))) - (let ((a_0 - (car (unwrap d_0)))) - a_0)))) - (if (if serializable?_0 - (lift-quoted? v_0 #f #t) - #f) - (s-expr-leftover-size_0 - v_0 - size_0) - (sub1 size_0))) - (if (if (eq? 'set! hd_0) + d_0))) + (body-leftover-size_0 + serializable?_0 + body_0 + (sub1 size_0))) + (if (if (eq? 'quote hd_0) (let ((a_0 (cdr (unwrap e_0)))) (let ((p_0 (unwrap a_0))) (if (pair? p_0) (let ((a_1 (cdr p_0))) - (let ((p_1 - (unwrap a_1))) - (if (pair? p_1) - (let ((a_2 - (cdr p_1))) - (let ((app_0 - (unwrap - '()))) - (eq? - app_0 - (unwrap a_2)))) - #f))) + (begin-unsafe + (let ((app_0 + (unwrap '()))) + (eq? + app_0 + (unwrap a_1))))) #f))) #f) - (call-with-values - (lambda () - (let ((d_0 (cdr (unwrap e_0)))) - (let ((p_0 (unwrap d_0))) - (let ((id_0 - (let ((a_0 (car p_0))) - a_0))) - (let ((rhs_0 - (let ((d_1 - (cdr p_0))) - (let ((a_0 - (car - (unwrap - d_1)))) - a_0)))) - (let ((id_1 id_0)) - (values - id_1 - rhs_0))))))) - (case-lambda - ((id_0 rhs_0) - (leftover-size_0 - serializable?_0 - rhs_0 - (sub1 size_0))) - (args - (raise-binding-result-arity-error - 2 - args)))) - (if (if (eq? - '|#%variable-reference| - hd_0) - #t - #f) - (sub1 size_0) - (if (let ((p_0 (unwrap e_0))) - (if (pair? p_0) #t #f)) - (body-leftover-size_0 - serializable?_0 - e_0 + (let ((v_0 + (let ((d_0 + (cdr (unwrap e_0)))) + (let ((a_0 + (car (unwrap d_0)))) + a_0)))) + (if (if serializable?_0 + (lift-quoted? v_0 #f #t) + #f) + (s-expr-leftover-size_0 + v_0 size_0) - (sub1 size_0)))))))))))))))))))) + (sub1 size_0))) + (if (if (eq? 'set! hd_0) + (let ((a_0 + (cdr (unwrap e_0)))) + (let ((p_0 (unwrap a_0))) + (if (pair? p_0) + (let ((a_1 (cdr p_0))) + (let ((p_1 + (unwrap a_1))) + (if (pair? p_1) + (let ((a_2 + (cdr p_1))) + (begin-unsafe + (let ((app_0 + (unwrap + '()))) + (eq? + app_0 + (unwrap + a_2))))) + #f))) + #f))) + #f) + (call-with-values + (lambda () + (let ((d_0 (cdr (unwrap e_0)))) + (let ((p_0 (unwrap d_0))) + (let ((id_0 + (let ((a_0 + (car p_0))) + a_0))) + (let ((rhs_0 + (let ((d_1 + (cdr p_0))) + (let ((a_0 + (car + (unwrap + d_1)))) + a_0)))) + (let ((id_1 id_0)) + (values + id_1 + rhs_0))))))) + (case-lambda + ((id_0 rhs_0) + (leftover-size_0 + serializable?_0 + rhs_0 + (sub1 size_0))) + (args + (raise-binding-result-arity-error + 2 + args)))) + (if (if (eq? + '|#%variable-reference| + hd_0) + #t + #f) + (sub1 size_0) + (if (let ((p_0 (unwrap e_0))) + (if (pair? p_0) #t #f)) + (body-leftover-size_0 + serializable?_0 + e_0 + size_0) + (sub1 + size_0))))))))))))))))))))) (next-k-proc_0 (|#%name| next-k-proc (lambda (rest_0 serializable?_0 size_0) - (begin (for-loop_0 serializable?_0 size_0 rest_0))))) + (begin (for-loop_2 serializable?_0 size_0 rest_0))))) (next-k-proc_1 (|#%name| next-k-proc (lambda (len_0 pos_0 vec_0 size_0) - (begin (for-loop_2 len_0 vec_0 size_0 (unsafe-fx+ 1 pos_0)))))) + (begin (for-loop_0 len_0 vec_0 size_0 (unsafe-fx+ 1 pos_0)))))) (next-k-proc_2 (|#%name| next-k-proc @@ -60127,7 +62012,7 @@ ((vec_0 len_0) (begin #f - (for-loop_2 len_0 vec_0 (sub1 size_0) 0))) + (for-loop_0 len_0 vec_0 (sub1 size_0) 0))) (args (raise-binding-result-arity-error 2 args)))) (if (prefab-struct-key v_0) (s-expr-leftover-size_0 (struct->vector v_0) size_0) diff --git a/racket/src/cs/schemified/thread.scm b/racket/src/cs/schemified/thread.scm index afdbc18f5f..4976fe7f81 100644 --- a/racket/src/cs/schemified/thread.scm +++ b/racket/src/cs/schemified/thread.scm @@ -180,7 +180,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memq "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memq + "not a proper list: " + orig-l_0)) (if (eq? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define memv @@ -197,7 +201,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error 'memv "not a proper list: " orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'memv + "not a proper list: " + orig-l_0)) (if (eqv? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) (loop_0 orig-l_0)))))) (define member @@ -215,10 +223,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_0) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_0)) (if (equal? v_0 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -248,10 +257,11 @@ (if (null? ls_0) #f (if (not (pair? ls_0)) - (raise-mismatch-error - 'member - "not a proper list: " - orig-l_1) + (begin-unsafe + (raise-mismatch-error + 'member + "not a proper list: " + orig-l_1)) (if (|#%app| eq?_0 v_1 (car ls_0)) ls_0 (loop_0 (cdr ls_0)))))))))) @@ -1883,7 +1893,8 @@ (- app_0 (current-inexact-milliseconds))) 1000.0)))) (lambda (wakeup_0) - (if (let ((t_0 (unsafe-place-local-ref cell.3$1))) (not t_0)) + (if (let ((t_0 (unsafe-place-local-ref cell.3$1))) + (begin-unsafe (not t_0))) (void) (call-with-values (lambda () (min-key+value (unsafe-place-local-ref cell.3$1))) @@ -1913,9 +1924,14 @@ (args (raise-binding-result-arity-error 2 args)))))) (lambda () (|#%app| host:get-wakeup-handle)) (lambda (h_0) (|#%app| host:wakeup h_0)) - (lambda () (not (let ((t_0 (unsafe-place-local-ref cell.3$1))) (not t_0)))) (lambda () - (if (not (let ((t_0 (unsafe-place-local-ref cell.3$1))) (not t_0))) + (not + (let ((t_0 (unsafe-place-local-ref cell.3$1))) + (begin-unsafe (not t_0))))) + (lambda () + (if (not + (let ((t_0 (unsafe-place-local-ref cell.3$1))) + (begin-unsafe (not t_0)))) (call-with-values (lambda () (min-key+value (unsafe-place-local-ref cell.3$1))) (case-lambda @@ -4673,8 +4689,9 @@ (if (not w_0) (set-semaphore-count! s_0 (add1 (semaphore-count s_0))) (begin - (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 s_0) - (if (not (queue-start s_0)) + (begin-unsafe + (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 s_0)) + (if (begin-unsafe (not (queue-start s_0))) (set-semaphore-count! s_0 0) (void)) (if (semaphore-peek-select-waiter? w_0) @@ -4688,11 +4705,13 @@ (queue-remove-all! s_0 (lambda (w_0) - (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 s_0)))))) + (begin-unsafe + (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 s_0))))))) (define semaphore-post-all (lambda (s_0) (begin (start-atomic) (semaphore-post-all/atomic s_0) (end-atomic)))) -(define semaphore-any-waiters? (lambda (s_0) (not (not (queue-start s_0))))) +(define semaphore-any-waiters? + (lambda (s_0) (not (begin-unsafe (not (queue-start s_0)))))) (define 1/semaphore-try-wait? (|#%name| semaphore-try-wait? @@ -4741,14 +4760,15 @@ (lambda () (begin (queue-remove-node! s_0 n_0) - (if (not (queue-start s_0)) + (if (begin-unsafe (not (queue-start s_0))) (set-semaphore-count! s_0 0) (void)) (lambda () (unsafe-semaphore-wait s_0)))))) - (|#%app| - (waiter-methods-suspend (waiter-ref w_0)) - w_0 - interrupt-cb_0))))))) + (begin-unsafe + (|#%app| + (waiter-methods-suspend (waiter-ref w_0)) + w_0 + interrupt-cb_0)))))))) (end-atomic)))))))) (define semaphore-wait/poll.1 (|#%name| @@ -4780,7 +4800,7 @@ (lambda () (begin (queue-remove-node! s9_0 n_0) - (if (not (queue-start s9_0)) + (if (begin-unsafe (not (queue-start s9_0))) (set-semaphore-count! s9_0 0) (void)))) void @@ -4957,14 +4977,16 @@ (if (not n_1) #f (begin (set-thread-group-chain! tg_0 (node-next n_1)) n_1))) - (begin (set-thread-group-chain! tg_0 (node-next n_0)) n_0))))) + (begin + (set-thread-group-chain! tg_0 (node-next n_0)) + (begin-unsafe n_0)))))) (define thread-group-add! (lambda (parent_0 child_0) (let ((t_0 (thread-group-chain-start parent_0))) (let ((was-empty?_0 (not t_0))) - (let ((n_0 child_0)) + (let ((n_0 (begin-unsafe child_0))) (begin - (let ((n_1 n_0)) (void)) + (let ((n_1 n_0)) (begin-unsafe (void))) (set-node-next! n_0 t_0) (set-node-prev! n_0 #f) (if t_0 @@ -4984,8 +5006,9 @@ (void)))))))) (define thread-group-remove! (lambda (parent_0 child_0) - (let ((n_0 child_0)) + (let ((n_0 (begin-unsafe child_0))) (begin + (begin-unsafe (void)) (if (node-next n_0) (let ((app_0 (node-next n_0))) (set-node-prev! app_0 (node-prev n_0))) @@ -5023,7 +5046,11 @@ (if (not n_0) accum_1 (let ((app_0 (node-next n_0))) - (loop_0 app_0 (thread-group-all-threads n_0 accum_1))))))))) + (loop_0 + app_0 + (thread-group-all-threads + (begin-unsafe n_0) + accum_1))))))))) (loop_0 (thread-group-chain-start parent_0) accum_0))))) (define struct:schedule-info (make-record-type-descriptor* 'schedule-info #f #f #f #f 2 3)) @@ -5158,7 +5185,11 @@ (let ((exts_0 (schedule-info-exts sched-info_0))) (set-schedule-info-exts! sched-info_0 - (|#%app| (sandman-do-merge-timeout the-sandman) exts_0 timeout-at_0))))) + (begin-unsafe + (|#%app| + (sandman-do-merge-timeout the-sandman) + exts_0 + timeout-at_0)))))) (define schedule-info-did-work! (lambda (sched-info_0) (set-schedule-info-did-work?! sched-info_0 #t))) (define reference-sink @@ -5672,11 +5703,12 @@ (set-custodian-parent-reference! c_0 cref_0) (if cref_0 (void) - (raise-arguments-error - 'make-custodian - "the custodian has been shut down" - "custodian" - parent_0)) + (begin-unsafe + (raise-arguments-error + 'make-custodian + "the custodian has been shut down" + "custodian" + parent_0))) (|#%app| host:will-register (unsafe-place-local-ref cell.1$7) @@ -6402,11 +6434,12 @@ (if (let ((temp76_0 procz1)) (do-custodian-register.1 #f #t #f #t c_0 b_0 temp76_0)) (void) - (raise-arguments-error - 'make-custodian-box - "the custodian has been shut down" - "custodian" - c_0)) + (begin-unsafe + (raise-arguments-error + 'make-custodian-box + "the custodian has been shut down" + "custodian" + c_0))) b_0)))))))) (define 1/custodian-box-value (|#%name| @@ -7182,11 +7215,12 @@ (thread-group-add! p_0 t_0) void) (lambda () - (raise-arguments-error - who10_0 - "the custodian has been shut down" - "custodian" - c_0)))) + (begin-unsafe + (raise-arguments-error + who10_0 + "the custodian has been shut down" + "custodian" + c_0))))) (end-atomic)))) t_0)))))))))) (define make-thread @@ -7364,7 +7398,7 @@ (void)) (engine-block)) (void)) - (|#%app| 1/check-for-break)))))))) + (begin-unsafe (|#%app| 1/check-for-break))))))))) (define do-kill-thread (lambda (t_0) (if (1/thread-dead? t_0) (void) (thread-dead! t_0)))) (define remove-thread-custodian @@ -7428,7 +7462,7 @@ (void) (set-thread-kill-callbacks! t_0 null)))) (define check-for-break-after-kill (lambda () (|#%app| 1/check-for-break))) -(define effect_1887 +(define effect_2294 (begin (void (let ((proc_0 @@ -7442,9 +7476,9 @@ (null? (thread-custodian-references t_0)))) (engine-block) (void)) - (|#%app| 1/check-for-break)) + (begin-unsafe (|#%app| 1/check-for-break))) (void)))))) - (set! post-shutdown-action proc_0))) + (begin-unsafe (set! post-shutdown-action proc_0)))) (void))) (define 1/thread-wait (|#%name| @@ -7551,12 +7585,14 @@ (if sleeping_0 (begin (set-thread-sleeping! t_0 #f) - (|#%app| (sandman-do-remove-thread! the-sandman) t_0 sleeping_0)) + (begin-unsafe + (|#%app| (sandman-do-remove-thread! the-sandman) t_0 sleeping_0))) (void))))) (define add-to-sleeping-threads! (lambda (t_0 ext-events_0) (let ((sleeping_0 - (|#%app| (sandman-do-add-thread! the-sandman) t_0 ext-events_0))) + (begin-unsafe + (|#%app| (sandman-do-add-thread! the-sandman) t_0 ext-events_0)))) (set-thread-sleeping! t_0 sleeping_0)))) (define force-atomic-timeout-callback void) (define set-force-atomic-timeout-callback! @@ -7573,7 +7609,8 @@ (if timeout-at_0 (add-to-sleeping-threads! t_0 - (|#%app| (sandman-do-merge-timeout the-sandman) #f timeout-at_0)) + (begin-unsafe + (|#%app| (sandman-do-merge-timeout the-sandman) #f timeout-at_0))) (void)) (if (eq? t_0 (current-thread/in-atomic)) (|#%app| thread-did-work!) @@ -7689,11 +7726,12 @@ (if (if (1/custodian? benefactor14_0) (1/custodian-shut-down? benefactor14_0) #f) - (raise-arguments-error - 'thread-resume - "the custodian has been shut down" - "custodian" - benefactor14_0) + (begin-unsafe + (raise-arguments-error + 'thread-resume + "the custodian has been shut down" + "custodian" + benefactor14_0)) (void)) (start-atomic) (begin0 @@ -8391,12 +8429,14 @@ (define dequeue-mail! (lambda (thd_0) (let ((mbx_0 (thread-mailbox thd_0))) - (if (not (queue-start mbx_0)) + (if (begin-unsafe (not (queue-start mbx_0))) (internal-error "No Mail!\n") (queue-remove! mbx_0))))) (define is-mail? (lambda (thd_0) - (not (let ((q_0 (thread-mailbox thd_0))) (not (queue-start q_0)))))) + (not + (let ((q_0 (thread-mailbox thd_0))) + (begin-unsafe (not (queue-start q_0))))))) (define push-mail! (lambda (thd_0 v_0) (queue-add-front! (thread-mailbox thd_0) v_0))) (define 1/thread-send @@ -8439,7 +8479,8 @@ (begin0 (if (not (1/thread-dead? thd24_0)) (begin - (queue-add! (thread-mailbox thd24_0) v25_0) + (begin-unsafe + (queue-add! (thread-mailbox thd24_0) v25_0)) (let ((wakeup_0 (thread-mailbox-wakeup thd24_0))) (begin (set-thread-mailbox-wakeup! thd24_0 void) @@ -8503,7 +8544,8 @@ (begin0 (let ((t_0 (current-thread/in-atomic))) (for-each_2380 - (lambda (msg_0) (queue-add-front! (thread-mailbox t_0) msg_0)) + (lambda (msg_0) + (begin-unsafe (queue-add-front! (thread-mailbox t_0) msg_0))) lst_0)) (end-atomic))))))) (define struct:thread-receiver-evt @@ -8602,7 +8644,7 @@ (custodian-check-immediate-limit (car mrefs_0) n_0))) (void)))))) (void))) -(define effect_2553 +(define effect_2829 (begin (void (let ((thread-engine_0 @@ -8613,7 +8655,7 @@ (if (not (eq? e_0 'running)) e_0 #f) #f)) #f)))) - (set! thread-engine-for-roots thread-engine_0))) + (begin-unsafe (set! thread-engine-for-roots thread-engine_0)))) (void))) (define struct:channel (make-record-type-descriptor* 'channel #f #f #f #f 2 3)) (define effect_1902 @@ -8868,17 +8910,19 @@ (begin (queue-remove-node! gq_0 n_0) (lambda () (receive_0 b_0 ch_0)))))) - (|#%app| - (waiter-methods-suspend (waiter-ref gw_0)) - gw_0 - interrupt-cb_0)))) + (begin-unsafe + (|#%app| + (waiter-methods-suspend (waiter-ref gw_0)) + gw_0 + interrupt-cb_0))))) (begin (set-box! b_0 (cdr pw+v_0)) (let ((w_0 (car pw+v_0))) - (|#%app| - (waiter-methods-resume (waiter-ref w_0)) - w_0 - (void))) + (begin-unsafe + (|#%app| + (waiter-methods-resume (waiter-ref w_0)) + w_0 + (void)))) void)))) (end-atomic))))))))) (lambda (ch_0) @@ -8896,7 +8940,8 @@ (if pw+v_0 (begin (let ((w_0 (car pw+v_0))) - (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 (void))) + (begin-unsafe + (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 (void)))) (values (list (cdr pw+v_0)) #f)) (if (poll-ctx-poll? poll-ctx_0) (values #f ch_0) @@ -8923,10 +8968,11 @@ (if pw+v_1 (begin (let ((w_0 (car pw+v_1))) - (|#%app| - (waiter-methods-resume (waiter-ref w_0)) - w_0 - (void))) + (begin-unsafe + (|#%app| + (waiter-methods-resume (waiter-ref w_0)) + w_0 + (void)))) (set-box! b_0 (cdr pw+v_1)) (values #t #t)) (begin @@ -8954,17 +9000,19 @@ (begin (queue-remove-node! pq_0 n_0) (lambda () (channel-put ch_0 v_0)))))) - (|#%app| - (waiter-methods-suspend (waiter-ref pw_0)) - pw_0 - interrupt-cb_0)))) + (begin-unsafe + (|#%app| + (waiter-methods-suspend (waiter-ref pw_0)) + pw_0 + interrupt-cb_0))))) (begin (set-box! (cdr gw+b_0) v_0) (let ((w_0 (car gw+b_0))) - (|#%app| - (waiter-methods-resume (waiter-ref w_0)) - w_0 - v_0)) + (begin-unsafe + (|#%app| + (waiter-methods-resume (waiter-ref w_0)) + w_0 + v_0))) void)))) (end-atomic)))))))) (define channel-put/poll @@ -8975,7 +9023,8 @@ (begin (set-box! (cdr gw+b_0) v_0) (let ((w_0 (car gw+b_0))) - (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 v_0)) + (begin-unsafe + (|#%app| (waiter-methods-resume (waiter-ref w_0)) w_0 v_0))) (values (list self_0) #f)) (if (poll-ctx-poll? poll-ctx_0) (values #f self_0) @@ -9000,10 +9049,11 @@ (begin (set-box! (cdr gw+b_1) v_0) (let ((w_0 (car gw+b_1))) - (|#%app| - (waiter-methods-resume (waiter-ref w_0)) - w_0 - v_0)) + (begin-unsafe + (|#%app| + (waiter-methods-resume (waiter-ref w_0)) + w_0 + v_0))) (values self_0 #t)) (begin (set! n_0 (queue-add! pq_0 (cons pw_0 v_0))) @@ -9853,7 +9903,8 @@ (define make-syncer (lambda (evt_0 wraps_0 prev_0) (syncer2.1 evt_0 wraps_0 null #f #f null #f prev_0 #f))) -(define none-syncer (syncer2.1 #f null null #f #f null #f #f #f)) +(define none-syncer + (begin-unsafe (syncer2.1 #f null null #f #f null #f #f #f))) (define make-syncing.1 (|#%name| make-syncing @@ -9861,7 +9912,7 @@ (begin (syncing1.1 #f syncers5_0 void disable-break3_0 #f))))) (define sync-atomic-poll-evt? (lambda (evt_0) - (let ((or-part_0 (channel-put-evt*? evt_0))) + (let ((or-part_0 (begin-unsafe (channel-put-evt*? evt_0)))) (if or-part_0 or-part_0 (let ((or-part_1 (1/channel? evt_0))) @@ -10153,7 +10204,7 @@ (begin (1/semaphore-wait evt_0) evt_0) (if (1/channel? evt_0) (channel-get evt_0) - (if (channel-put-evt*? evt_0) + (if (begin-unsafe (channel-put-evt*? evt_0)) (begin (channel-put-do evt_0) evt_0) (let ((temp61_0 (list evt_0))) (do-sync.1 #f 'sync #f temp61_0)))))))) @@ -10178,7 +10229,7 @@ (begin (1/semaphore-wait evt_0) evt_0) (if (1/channel? evt_0) (channel-get evt_0) - (if (channel-put-evt*? evt_0) + (if (begin-unsafe (channel-put-evt*? evt_0)) (begin (channel-put-do evt_0) evt_0) (let ((temp70_0 (list evt_0))) (do-sync.1 #f 'sync/timeout #f temp70_0))))) @@ -10212,7 +10263,8 @@ sync/timeout/enable-break (lambda (timeout_0 . args_0) (begin (do-sync.1 #t 'sync/timeout/enable-break timeout_0 args_0))))) -(define effect_2330 (begin (void (set! sync-on-channel 1/sync)) (void))) +(define effect_2689 + (begin (void (begin-unsafe (set! sync-on-channel 1/sync))) (void))) (define evts->syncers (let ((evts->syncers_0 (|#%name| @@ -10246,16 +10298,17 @@ first_0 last_0) (let ((sr_0 - (syncer2.1 - arg_0 - wraps13_0 - null - #f - #f - null - #f - last_0 - #f))) + (begin-unsafe + (syncer2.1 + arg_0 + wraps13_0 + null + #f + #f + null + #f + last_0 + #f)))) (begin (if (if (null? extended-commits_0) (null? guarded-abandons_0) @@ -10427,7 +10480,8 @@ no-wrappers?_0)) (if (= retries_0 10) (begin - (set-schedule-info-did-work?! sched-info_0 #t) + (begin-unsafe + (set-schedule-info-did-work?! sched-info_0 #t)) (end-atomic) (loop_0 (syncer-next sr_0) 0 #f #f)) (if (let ((app_0 nested-sync-evt?)) @@ -11401,11 +11455,11 @@ (define any-idle-waiters? (lambda () (let ((s_0 (unsafe-place-local-ref cell.1$5))) - (not (not (queue-start s_0)))))) + (begin-unsafe (not (begin-unsafe (not (queue-start s_0)))))))) (define post-idle (lambda () (if (let ((s_0 (unsafe-place-local-ref cell.1$5))) - (not (not (queue-start s_0)))) + (begin-unsafe (not (begin-unsafe (not (queue-start s_0)))))) (begin (semaphore-post/atomic (unsafe-place-local-ref cell.1$5)) #t) #f))) (define init-system-idle-evt! @@ -11728,7 +11782,7 @@ (void) (loop_0)))))))) (loop_0))) - (if (|#%app| logging-future-events?) + (if (begin-unsafe (|#%app| logging-future-events?)) (begin (flush-future-log) (let ((id_0 @@ -11755,7 +11809,7 @@ (unsafe-place-local-ref cell.1$4) new-events_0 null) - (if (|#%app| logging-future-events?) + (if (begin-unsafe (|#%app| logging-future-events?)) (begin (let ((lst_0 (reverse$1 new-events_0))) (begin @@ -11981,7 +12035,7 @@ (lock-release (future*-lock f4_0)) (begin (if was-blocked?2_0 - (if (|#%app| logging-future-events?) + (if (begin-unsafe (|#%app| logging-future-events?)) (begin (let ((temp17_0 (future*-id f4_0))) (let ((temp18_0 @@ -12181,7 +12235,7 @@ (let ((temp40_0 (future*-id f_0))) (log-future.1 #f #f 'touch-resume temp40_0)) (1/touch f_0))) - (if (future*? s_0) + (if (begin-unsafe (future*? s_0)) (if (current-future$1) (dependent-on-future f_0) (begin @@ -12854,8 +12908,10 @@ (begin (set! wakeup-this-place wakeup_0) (set! ensure-place-wakeup-handle ensure_0)))) -(define effect_2150 - (begin (void (set! future-block-for-atomic future-block)) (void))) +(define effect_1869 + (begin + (void (begin-unsafe (set! future-block-for-atomic future-block))) + (void))) (define effect_2841 (begin (void @@ -12878,7 +12934,7 @@ (make-another-initial-thread-group) (set-root-custodian! c_0) (init-system-idle-evt!) - (init-future-logging-place!) + (begin-unsafe (init-future-logging-place!)) (init-schedule-counters!) (init-sync-place!) (call-in-new-main-thread thunk_0)))) @@ -13075,7 +13131,8 @@ (begin (if t_0 (thread-reschedule! t_0) (void)) (set! did?_0 #t))))) - (|#%app| (sandman-do-poll the-sandman) thread-wakeup_0)) + (begin-unsafe + (|#%app| (sandman-do-poll the-sandman) thread-wakeup_0))) (if did?_0 (thread-did-work!) (void)) did?_0)))) (define run-callbacks-in-engine @@ -13158,17 +13215,18 @@ (schedule-info-exts sched-info_0) #f))) - (|#%app| - (sandman-do-merge-external-event-sets - the-sandman) - exts_0 - t-exts_0))))) + (begin-unsafe + (|#%app| + (sandman-do-merge-external-event-sets + the-sandman) + exts_0 + t-exts_0)))))) (values exts_1)))) (for-loop_0 exts_1 rest_0)))) exts_0)))))) (for-loop_0 sleeping-exts_0 ts_0))))) (begin - (|#%app| (sandman-do-sleep the-sandman) exts_0) + (begin-unsafe (|#%app| (sandman-do-sleep the-sandman) exts_0)) (thread-did-work!))))))) (define try-post-idle (lambda () (if (post-idle) (begin (thread-did-work!) #t) #f))) @@ -13194,7 +13252,7 @@ (begin0 (unsafe-place-local-ref cell.4) (unsafe-place-local-set! cell.4 cb_0)))) -(define effect_2555 +(define effect_2769 (begin (void (let ((proc_0 @@ -13202,7 +13260,7 @@ (if (unsafe-place-local-ref cell.4) (begin (|#%app| (unsafe-place-local-ref cell.4) #t) #t) #f)))) - (set! force-atomic-timeout-callback proc_0))) + (begin-unsafe (set! force-atomic-timeout-callback proc_0)))) (void))) (define check-place-activity void) (define set-check-place-activity! @@ -14350,11 +14408,12 @@ (begin (end-atomic) (let ((c_0 (1/current-custodian))) - (raise-arguments-error - 'dynamic-place - "the custodian has been shut down" - "custodian" - c_0)))) + (begin-unsafe + (raise-arguments-error + 'dynamic-place + "the custodian has been shut down" + "custodian" + c_0))))) (begin (set-place-custodian-ref! new-place_0 @@ -14620,8 +14679,8 @@ (begin (set-box! (place-activity-canary p_0) #t) (let ((h_0 (place-wakeup-handle p_0))) - (|#%app| (sandman-do-wakeup the-sandman) h_0))))) -(define effect_2845 + (begin-unsafe (|#%app| (sandman-do-wakeup the-sandman) h_0)))))) +(define effect_2163 (begin (void (let ((proc_0 @@ -14698,7 +14757,7 @@ #f)) (void)))))))) (void)))))) - (set! check-place-activity proc_0))) + (begin-unsafe (set! check-place-activity proc_0)))) (void))) (define do-place-kill (lambda (p_0) @@ -14811,7 +14870,8 @@ (if result_0 (void) (begin - (|#%app| (sandman-do-sleep the-sandman) #f) + (begin-unsafe + (|#%app| (sandman-do-sleep the-sandman) #f)) (loop_0))))))))))) (loop_0))))) (define struct:place-done-evt @@ -15383,12 +15443,12 @@ (if (place-result pl_0) (void) (let ((h_0 (place-wakeup-handle pl_0))) - (|#%app| (sandman-do-wakeup the-sandman) h_0))) + (begin-unsafe (|#%app| (sandman-do-wakeup the-sandman) h_0)))) (|#%app| host:mutex-release (place-lock pl_0))))) (define wakeup-initial-place (lambda () (let ((h_0 (place-wakeup-handle initial-place))) - (|#%app| (sandman-do-wakeup the-sandman) h_0)))) + (begin-unsafe (|#%app| (sandman-do-wakeup the-sandman) h_0))))) (define make-place-ports+fds (lambda (in_0 out_0 err_0) (values #f #f #f in_0 out_0 err_0))) (define set-make-place-ports+fds! diff --git a/racket/src/expander/boot/kernel.rkt b/racket/src/expander/boot/kernel.rkt index db9b9b6d8b..1bd8c45bcd 100644 --- a/racket/src/expander/boot/kernel.rkt +++ b/racket/src/expander/boot/kernel.rkt @@ -68,7 +68,8 @@ (make-module #:cross-phase-persistent? #t #:primitive? primitive? #:predefined? #t - #:no-protected? (not protected?) + #:no-protected? (and (not protected?) + (null? protected-syms)) #:self mpi #:provides (hasheqv 0 (for/hash ([sym (in-hash-keys ht)]) diff --git a/racket/src/expander/compile/built-in-symbol.rkt b/racket/src/expander/compile/built-in-symbol.rkt index 05f86e38d5..7dd728d7d7 100644 --- a/racket/src/expander/compile/built-in-symbol.rkt +++ b/racket/src/expander/compile/built-in-symbol.rkt @@ -59,6 +59,7 @@ $value with-continuation-mark* pariah + begin-unsafe variable-set! variable-ref variable-ref/no-check diff --git a/racket/src/expander/compile/form.rkt b/racket/src/expander/compile/form.rkt index 5bbc1f17de..62516435f4 100644 --- a/racket/src/expander/compile/form.rkt +++ b/racket/src/expander/compile/form.rkt @@ -48,7 +48,8 @@ #:serializable? [serializable? #t] #:module-prompt? [module-prompt? #f] #:to-correlated-linklet? [to-correlated-linklet? #f] - #:optimize-linklet? [optimize-linklet? #t]) + #:optimize-linklet? [optimize-linklet? #t] + #:unsafe?-box [unsafe?-box #f]) (define phase (compile-context-phase cctx)) (define self (compile-context-self cctx)) @@ -280,6 +281,7 @@ #:module-prompt? module-prompt? #:module-use*s module-use*s #:optimize-linklet? optimize-linklet? + #:unsafe? (and unsafe?-box (unbox unsafe?-box)) #:load-modules? #f #:namespace (compile-context-namespace cctx))])) (values phase (cons linklet new-module-use*s)))) @@ -400,21 +402,25 @@ #:module-prompt? module-prompt? #:module-use*s module-use*s #:optimize-linklet? optimize-linklet? + #:unsafe? unsafe? #:load-modules? load-modules? #:namespace namespace) (define-values (linklet new-module-use*s) (performance-region ['compile '_ 'linklet] ((lambda (l name keys getter) - (compile-linklet l name keys getter (if serializable? - (if module-prompt? - '(serializable use-prompt) - '(serializable)) - (if module-prompt? - '(use-prompt) - (if optimize-linklet? - '() - '(quick)))))) + (compile-linklet l name keys getter (let ([flags (if serializable? + (if module-prompt? + '(serializable use-prompt) + '(serializable)) + (if module-prompt? + '(use-prompt) + (if optimize-linklet? + '() + '(quick))))]) + (if unsafe? + (cons 'unsafe flags) + flags)))) body-linklet 'module ;; Support for cross-module optimization starts with a vector diff --git a/racket/src/expander/compile/module.rkt b/racket/src/expander/compile/module.rkt index c46b24747a..b7031ea048 100644 --- a/racket/src/expander/compile/module.rkt +++ b/racket/src/expander/compile/module.rkt @@ -116,6 +116,7 @@ [lazy-syntax-literals? #t])) (define cross-phase-persistent? #f) + (define unsafe?-box (box #f)) ;; Callback to track phases that have side effects (define side-effects (make-hasheqv)) @@ -163,7 +164,9 @@ (set! cross-phase-persistent? #t)) (when (eq? (syntax-e kw) '#:empty-namespace) (set! empty-result-for-module->namespace? #t) - (set-box! encoded-root-expand-ctx-box #f))) + (set-box! encoded-root-expand-ctx-box #f)) + (when (eq? (syntax-e kw) '#:unsafe) + (set-box! unsafe?-box #t))) #f] [else #f])) #:get-module-linklet-info (lambda (mod-name phase) @@ -172,8 +175,9 @@ (and ht (hash-ref ht phase #f))) #:serializable? serializable? #:module-prompt? #t - #:to-correlated-linklet? to-correlated-linklet?)) - + #:to-correlated-linklet? to-correlated-linklet? + #:unsafe?-box unsafe?-box)) + (when modules-being-compiled ;; Record this module's linklets for cross-module inlining among (sub)modules ;; that are compiled together @@ -330,6 +334,9 @@ bundle)] [bundle (if empty-result-for-module->namespace? (hash-set bundle 'module->namespace 'empty) + bundle)] + [bundle (if (unbox unsafe?-box) + (hash-set bundle 'unsafe? #t) bundle)]) (hash->linklet-bundle bundle))) diff --git a/racket/src/expander/compile/recompile.rkt b/racket/src/expander/compile/recompile.rkt index ec9369a1d4..0cb832b574 100644 --- a/racket/src/expander/compile/recompile.rkt +++ b/racket/src/expander/compile/recompile.rkt @@ -102,7 +102,7 @@ ;; as the mpis and link modules, then use that data for cross-module ;; optimization while recompiling the per-phase body units, and then ;; regenerate the data linklets because optimization can add new - ;; linklet import.s + ;; linklet imports. (define orig-h (linklet-bundle->hash b)) ;; Force compilation of linklets that are not the module body: @@ -140,6 +140,8 @@ (define self (decl 'self-mpi)) (define phase-to-link-modules (decl 'phase-to-link-modules)) + (define unsafe? (hash-ref orig-h 'unsafe? #f)) + (define (find-submodule mod-name phase) ;; If `mod-name` refers to a submodule in the same linklet directory, ;; then we need to force that one to be recompiled and then return it. @@ -189,6 +191,7 @@ #:module-prompt? #t #:module-use*s module-use*s #:optimize-linklet? #t + #:unsafe? unsafe? #:load-modules? #t #:namespace ns)) (values phase (cons linklet new-module-use*s)))) diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt index 29c603be0c..050b1950d2 100644 --- a/racket/src/expander/eval/module.rkt +++ b/racket/src/expander/eval/module.rkt @@ -77,7 +77,7 @@ (define min-phase (hash-ref h 'min-phase 0)) (define max-phase (hash-ref h 'max-phase 0)) (define language-info (hash-ref h 'language-info #f)) - + ;; Evaluate linklets, so that they're JITted just once (on demand). ;; Also, filter the bundle hash to just the phase-specific linklets, so that ;; we don't retain other info --- especially the syntax-literals linklet. diff --git a/racket/src/expander/eval/protect.rkt b/racket/src/expander/eval/protect.rkt index 039ff679a7..a93c5c9281 100644 --- a/racket/src/expander/eval/protect.rkt +++ b/racket/src/expander/eval/protect.rkt @@ -20,9 +20,12 @@ ;; case, a `compiled-in-memory` record holds extra-inspector ;; information that is propagated to here. -(provide check-require-access +(provide initial-code-inspector + check-require-access check-single-require-access) +(define initial-code-inspector (current-code-inspector)) + (define (check-require-access linklet #:skip-imports skip-num-imports import-module-uses import-module-instances insp extra-inspector ; from declaration time diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 44a12b92df..2a4918d9f3 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -16,6 +16,7 @@ "../namespace/namespace.rkt" "../namespace/module.rkt" "../syntax/binding.rkt" + "../eval/protect.rkt" "dup-check.rkt" "free-id-set.rkt" "stop-ids.rkt" @@ -887,10 +888,13 @@ (for ([kw (in-list (m 'kw))]) (unless (keyword? (syntax-e kw)) (raise-syntax-error #f "expected a keyword" exp-body kw)) - (unless (memq (syntax-e kw) '(#:cross-phase-persistent #:empty-namespace)) + (unless (memq (syntax-e kw) '(#:cross-phase-persistent #:empty-namespace #:unsafe)) (raise-syntax-error #f "not an allowed declaration keyword" exp-body kw)) (when (hash-ref declared-keywords (syntax-e kw) #f) (raise-syntax-error #f "keyword declared multiple times" exp-body kw)) + (when (eq? (syntax-e kw) '#:unsafe) + (unless (eq? (current-code-inspector) initial-code-inspector) + (raise-syntax-error #f "unsafe compilation disallowed by code inspector" exp-body kw))) (hash-set! declared-keywords (syntax-e kw) kw)) (define parsed-body (parsed-#%declare exp-body)) (cons (if (expand-context-to-parsed? partial-body-ctx) diff --git a/racket/src/expander/main.rkt b/racket/src/expander/main.rkt index 5e81da2782..48297a4806 100644 --- a/racket/src/expander/main.rkt +++ b/racket/src/expander/main.rkt @@ -171,8 +171,10 @@ 'variable-reference-constant?)]) (declare-hash-based-module! '#%linklet-primitive linklet-primitives #:namespace ns #:primitive? #t - #:register-builtin? #t) - (declare-hash-based-module! '#%linklet-expander linklet-expander-primitives #:namespace ns) + #:register-builtin? #t + #:protected? #t) + (declare-hash-based-module! '#%linklet-expander linklet-expander-primitives #:namespace ns + #:protected? #t) (declare-reexporting-module! '#%linklet (list '#%linklet-primitive '#%linklet-expander) #:namespace ns)) diff --git a/racket/src/schemify/infer-known.rkt b/racket/src/schemify/infer-known.rkt index 4ef0250368..b6a9ec38cf 100644 --- a/racket/src/schemify/infer-known.rkt +++ b/racket/src/schemify/infer-known.rkt @@ -34,7 +34,7 @@ (let ([lam (if optimize-inline? (optimize* lam prim-knowns primitives knowns imports mutated unsafe-mode?) lam)]) - (known-procedure/can-inline arity-mask lam)) + (known-procedure/can-inline arity-mask (if unsafe-mode? (add-begin-unsafe lam) lam))) (known-procedure arity-mask))] [(and (literal? rhs) (not (hash-ref mutated (unwrap id) #f))) @@ -154,3 +154,15 @@ [(wrap-pair? args) (arithmetic-shift (args-arity-mask (wrap-cdr args)) 1)] [else -1])) + +(define (add-begin-unsafe lam) + (reannotate + lam + (match lam + [`(lambda ,args . ,body) + `(lambda ,args (begin-unsafe . ,body))] + [`(case-lambda [,argss . ,bodys] ...) + `(case-lambda ,@(for/list ([args (in-list argss)] + [body (in-list bodys)]) + `[,args (begin-unsafe . ,body)]))] + [`,_ lam]))) diff --git a/racket/src/schemify/inline.rkt b/racket/src/schemify/inline.rkt index e733f70fe8..7277bc6457 100644 --- a/racket/src/schemify/inline.rkt +++ b/racket/src/schemify/inline.rkt @@ -198,6 +198,8 @@ `(begin . ,(clone-body exps env mutated))] [`(begin0 ,exps ...) `(begin0 . ,(clone-body exps env mutated))] + [`(begin-unsafe ,exps ...) + `(begin-unsafe . ,(clone-body exps env mutated))] [`(set! ,id ,rhs) `(set! ,id ,(clone-expr rhs env mutated))] [`(#%variable-reference) v] @@ -304,6 +306,8 @@ (body-needed-imports exps prim-knowns imports exports env needed)] [`(begin0 ,exps ...) (body-needed-imports exps prim-knowns imports exports env needed)] + [`(begin-unsafe ,exps ...) + (body-needed-imports exps prim-knowns imports exports env needed)] [`(set! ,id ,rhs) (define u (unwrap id)) (cond diff --git a/racket/src/schemify/interpret.rkt b/racket/src/schemify/interpret.rkt index 6bbf11eaf9..3a653f9fc2 100644 --- a/racket/src/schemify/interpret.rkt +++ b/racket/src/schemify/interpret.rkt @@ -271,6 +271,8 @@ [`(letrec* . ,_) (compile-letrec e env stack-depth stk-i tail? mutated)] [`(begin . ,vs) (compile-body vs env stack-depth stk-i tail? mutated)] + [`(begin-unsafe . ,vs) + (compile-body vs env stack-depth stk-i tail? mutated)] [`(begin0 ,e) (compile-expr e env stack-depth stk-i tail? mutated)] [`(begin0 ,e . ,vs) @@ -477,6 +479,8 @@ (extract-list-mutated vs mutated)] [`(begin0 ,vs) (extract-list-mutated vs mutated)] + [`(begin-unsafe ,vs) + (extract-list-mutated vs mutated)] [`($value ,e) (extract-expr-mutated e mutated)] [`(if ,tst ,thn ,els) diff --git a/racket/src/schemify/jitify.rkt b/racket/src/schemify/jitify.rkt index 15e0636abc..3fc3295d46 100644 --- a/racket/src/schemify/jitify.rkt +++ b/racket/src/schemify/jitify.rkt @@ -266,6 +266,8 @@ (values (reannotate v `(begin . ,new-body)) new-free new-lifts)] + [`(begin-unsafe . ,vs) + (jitify-expr `(begin . ,vs) env mutables free lifts convert-mode name in-name)] [`(begin0 ,v0 . ,vs) (define-values (new-v0 v0-free v0-lifts) (jitify-expr v0 env mutables free lifts (convert-mode-non-tail convert-mode) name in-name)) @@ -650,6 +652,7 @@ [`(letrec* . ,_) (find-mutable-in-let env v accum)] [`(begin . ,vs) (body-find-mutable env vs accum)] [`(begin0 . ,vs) (body-find-mutable env vs accum)] + [`(begin-unsafe . ,vs) (body-find-mutable env vs accum)] [`(if ,tst ,thn ,els) (find-mutable env tst (find-mutable env thn @@ -795,6 +798,7 @@ [`(letrec* . ,_) (record-sizes-in-let! v sizes)] [`(begin . ,vs) (add1 (body-record-sizes! vs sizes))] [`(begin0 . ,vs) (add1 (body-record-sizes! vs sizes))] + [`(begin-unsafe . ,vs) (add1 (body-record-sizes! vs sizes))] [`(if ,tst ,thn ,els) (+ 1 (record-sizes! tst sizes) diff --git a/racket/src/schemify/lift.rkt b/racket/src/schemify/lift.rkt index 10f487ba65..9ae1f9f145 100644 --- a/racket/src/schemify/lift.rkt +++ b/racket/src/schemify/lift.rkt @@ -141,6 +141,7 @@ (lift?/seq body))] [`(begin . ,vs) (lift?/seq vs)] [`(begin0 . ,vs) (lift?/seq vs)] + [`(begin-unsafe . ,vs) (lift?/seq vs)] [`(quote . ,_) #f] [`(if ,tst ,thn ,els) (or (lift? tst) (lift? thn) (lift? els))] @@ -308,6 +309,8 @@ (cdr new-frees+binds))] [`(begin . ,vs) (compute-seq-lifts! vs frees+binds lifts locals)] + [`(begin-unsafe . ,vs) + (compute-seq-lifts! vs frees+binds lifts locals)] [`(begin0 . ,vs) (compute-seq-lifts! vs frees+binds lifts locals)] [`(quote . ,_) frees+binds] @@ -445,6 +448,8 @@ (find-seq-loops body lifts #hasheq() loops))] [`(begin . ,vs) (find-seq-loops vs lifts loop-if-tail loops)] + [`(begin-unsafe . ,vs) + (find-seq-loops vs lifts loop-if-tail loops)] [`(begin0 ,v . ,vs) (define new-loops (find-loops v lifts #hasheq() loops)) (if (null? vs) @@ -653,6 +658,8 @@ `[,args . ,(convert-lifted-calls-in-seq/box-mutated body args lifts frees empties)]))))] [`(begin . ,vs) (reannotate v `(begin . ,(convert-lifted-calls-in-seq vs lifts frees empties)))] + [`(begin-unsafe . ,vs) + (reannotate v `(begin-unsafe . ,(convert-lifted-calls-in-seq vs lifts frees empties)))] [`(begin0 . ,vs) (reannotate v `(begin0 . ,(convert-lifted-calls-in-seq vs lifts frees empties)))] [`(quote . ,_) v] diff --git a/racket/src/schemify/mutated.rkt b/racket/src/schemify/mutated.rkt index 7aa489c583..706f218660 100644 --- a/racket/src/schemify/mutated.rkt +++ b/racket/src/schemify/mutated.rkt @@ -183,6 +183,8 @@ (find-mutated! body ids)] [`(begin ,exps ...) (find-mutated!* exps ids)] + [`(begin-unsafe ,exps ...) + (find-mutated!* exps ids)] [`(begin0 ,exp ,exps ...) (find-mutated! exp ids) (find-mutated!* exps #f)] diff --git a/racket/src/schemify/optimize.rkt b/racket/src/schemify/optimize.rkt index 914cb88e39..a5d05933d4 100644 --- a/racket/src/schemify/optimize.rkt +++ b/racket/src/schemify/optimize.rkt @@ -103,6 +103,8 @@ `(with-continuation-mark ,(optimize* key) ,(optimize* val) ,(optimize* body))] [`(begin ,body ...) `(begin ,@(optimize*-body body))] + [`(begin-unsafe ,body ...) + `(begin-unsafe ,@(optimize*-body body))] [`(begin0 ,e ,body ...) `(begin0 ,(optimize* e) ,@(optimize*-body body))] [`(set! ,id ,rhs) diff --git a/racket/src/schemify/schemify.rkt b/racket/src/schemify/schemify.rkt index 9c4a6ee43a..d4c28f0da2 100644 --- a/racket/src/schemify/schemify.rkt +++ b/racket/src/schemify/schemify.rkt @@ -663,6 +663,8 @@ (schemify exp wcm-state)] [`(begin ,exps ...) `(begin . ,(schemify-body exps wcm-state))] + [`(begin-unsafe ,exps ...) + `(begin-unsafe . ,(schemify-body exps wcm-state))] [`(begin0 ,exp) (schemify exp wcm-state)] [`(begin0 ,exp ,exps ...) diff --git a/racket/src/schemify/serialize.rkt b/racket/src/schemify/serialize.rkt index 84dea41e69..40a720f47d 100644 --- a/racket/src/schemify/serialize.rkt +++ b/racket/src/schemify/serialize.rkt @@ -74,6 +74,8 @@ `(with-continuation-mark* ,mode ,(convert key) ,(convert val) ,(convert body))] [`(begin ,exps ...) `(begin . ,(convert-body exps))] + [`(begin-unsafe ,exps ...) + `(begin-unsafe . ,(convert-body exps))] [`(begin0 ,exps ...) `(begin0 . ,(convert-body exps))] [`(set! ,id ,rhs) @@ -132,6 +134,8 @@ (convert-any? body))] [`(begin ,exps ...) (convert-any? exps)] + [`(begin-unsafe ,exps ...) + (convert-any? exps)] [`(begin0 ,exps ...) (convert-any? exps)] [`(set! ,id ,rhs) diff --git a/racket/src/schemify/simple.rkt b/racket/src/schemify/simple.rkt index e85204dbf5..d7b3ca30ad 100644 --- a/racket/src/schemify/simple.rkt +++ b/racket/src/schemify/simple.rkt @@ -34,6 +34,15 @@ (define (returns n) (or (not result-arity) (eqv? n result-arity))) + (define (simple-begin? es) + (cached + (let loop ([es es]) + (cond + [(null? (cdr es)) + (simple? (car es) result-arity)] + [else + (and (simple? (car es) #f) + (loop (cdr es)))])))) (match e [`(lambda . ,_) (returns 1)] [`(case-lambda . ,_) (returns 1)] @@ -63,14 +72,9 @@ (simple? body result-arity)))] [`(begin ,es ...) #:guard (not pure?) - (cached - (let loop ([es es]) - (cond - [(null? (cdr es)) - (simple? (car es) result-arity)] - [else - (and (simple? (car es) #f) - (loop (cdr es)))])))] + (simple-begin? es)] + [`(begin-unsafe ,es ...) + (simple-begin? es)] [`(begin0 ,e0 ,es ...) (cached (and (simple? e0 result-arity) diff --git a/racket/src/schemify/size.rkt b/racket/src/schemify/size.rkt index 6cdbe71a80..a3aa69b2e8 100644 --- a/racket/src/schemify/size.rkt +++ b/racket/src/schemify/size.rkt @@ -34,6 +34,8 @@ (leftover-size els (leftover-size thn (leftover-size tst (sub1 size))))] [`(with-continuation-mark* ,_ ,key ,val ,body) (leftover-size body (leftover-size val (leftover-size key (sub1 size))))] + [`(begin-unsafe . ,body) + (body-leftover-size body (sub1 size))] [`(begin0 . ,body) (body-leftover-size body (sub1 size))] [`(quote ,v) (if (and serializable? diff --git a/racket/src/version/racket_version.h b/racket/src/version/racket_version.h index 396ac32ca8..1115d7387b 100644 --- a/racket/src/version/racket_version.h +++ b/racket/src/version/racket_version.h @@ -16,7 +16,7 @@ #define MZSCHEME_VERSION_X 7 #define MZSCHEME_VERSION_Y 9 #define MZSCHEME_VERSION_Z 0 -#define MZSCHEME_VERSION_W 4 +#define MZSCHEME_VERSION_W 5 /* A level of indirection makes `#` work as needed: */ #define AS_a_STR_HELPER(x) #x