suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix typo in comment and sync "startup.inc"

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-01 13:58:39 -07:00
parent c60a081115
commit 13e2817a2d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/compile/serialize.rkt
View File

@ -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

10
racket/src/racket/src/startup.inc
View File

@ -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)"