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

Rebuild expander for b1e765ca31.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2018-12-13 15:56:44 -05:00
parent c77388eeef
commit 9a42fab7fe
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60719,10 +60719,24 @@ static const char *startup_source =
"(if as-correlated-linklet?_0"
"(read-correlated-linklet-bundle-hash in_0)"
"(1/read-linklet-bundle-hash in_0))))"
"(begin"
"(if(hash? b-ht_0)"
"(void)"
"(let-values()"
"(raise-arguments-error"
" 'read-linklet-bundle-hash"
" \"bad read result\""
" \"expected\""
" \"hash/c\""
" \"found\""
" (format \"~s\" b-ht_0)"
" \"in\""
"(let-values(((n_0)(object-name in_0)))"
"(if(path? n_0)(path->string n_0) in_0)))))"
"(hash->linklet-bundle"
"(add-hash-code"
"(if initial?_0(strip-submodule-references b-ht_0) b-ht_0)"
" sha-1_0)))))"
" sha-1_0))))))"
"(if(eqv? tag_0(char->integer '#\\D))"
"(let-values()"
"(begin"