diff --git a/racket/src/expander/compile/serialize.rkt b/racket/src/expander/compile/serialize.rkt index ca114dfad8..b704ff93c7 100644 --- a/racket/src/expander/compile/serialize.rkt +++ b/racket/src/expander/compile/serialize.rkt @@ -627,7 +627,7 @@ (cond [(eq? 'chez-scheme (system-type 'vm)) ;; It's better to interpret the quoted-data construction in Chez Scheme, - ;; instead of compiling the constructionx, because it's more compact + ;; instead of compiling the construction, because it's more compact ;; and easier to delay. Rely on `fasl->s-exp/intern` as a primitive ;; (from the linklet perspective) that is installed on startup. `(let-values ([(data) (fasl->s-exp/intern diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 2a2b75f2bb..28e5233991 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -22065,11 +22065,11 @@ static const char *startup_source = " result-expr_0)))))" "(if(eq? 'chez-scheme(system-type 'vm))" "(let-values()" -"(list*" -" 'let" +"(list" +" 'let-values" "(list" "(list" -" 'data" +" '(data)" "(list" " 'fasl->s-exp/intern" "(let-values(((temp20_0)" @@ -22079,11 +22079,11 @@ static const char *startup_source = " mutable-fills_0" " result_0)))" "(s-exp->fasl11.1 #f temp20_0 #f)))))" -" '((finish" +"(finish_0" " '(unsafe-vector-ref data 0)" " '(unsafe-vector-ref data 1)" " '(unsafe-vector-ref data 2)" -" '(unsafe-vector-ref data 3)))))" +" '(unsafe-vector-ref data 3))))" "(let-values()" "(finish_0" "(list 'quote mutable-shell-bindings_0)"