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

sync pre-built files

Browse Source 
Needed a rebuild after changes to avoid naming via keyword arguments.
This commit is contained in:
Matthew Flatt 2021-01-26 09:11:01 -07:00
parent 18954fdc70
commit 91060487ca
5 changed files with 578 additions and 685 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
racket/src/bc/src/startup.inc
View File

@ -17866,11 +17866,9 @@ static const char *startup_source =
"(let-values(((temp1_0)(hash-ref info_1 'bindings null))"
"((temp2_0)"
"(lambda(a_0 b_0)"
"(begin"
" 'temp2"
"(if(hash-ref a_0 'match? #f)"
"(not(hash-ref b_0 'match? #f))"
" #f)))))"
" #f))))"
"(sort.1 #f #f temp1_0 temp2_0))))"
"(begin"
"(if(variable-reference-from-unsafe?(#%variable-reference))"
@ -30346,8 +30344,7 @@ static const char *startup_source =
"(let-values(((bundles_0)"
"(list->vector"
"(let-values(((temp1_0)(flatten-linklet-directory_0 ld_0 '() '()))"
"((temp2_0)"
"(lambda(a_0 b_0)(begin 'temp2(bytes<?(car a_0)(car b_0))))))"
"((temp2_0)(lambda(a_0 b_0)(bytes<?(car a_0)(car b_0)))))"
"(sort.1 #f #f temp1_0 temp2_0)))))"
"(let-values(((len_0)(vector-length bundles_0)))"
"(let-values(((initial-offset_0)"
@ -52680,10 +52677,8 @@ static const char *startup_source =
"((temp10_0)"
"(lambda()"
"(begin"
" 'temp10"
"(begin"
"(file-position(current-input-port) start_1)"
"(read-bytes(max 0(- end_1 start_1))))))))"
"(read-bytes(max 0(- end_1 start_1)))))))"
"(with-input-from-file.1 'binary path9_0 temp10_0))))))))"
"(let-values(((p_0)(open-input-bytes s_0)))"
"((letrec-values(((loop_0)"
@ -52926,10 +52921,8 @@ static const char *startup_source =
"(let-values(((p5_0) p_0)"
"((temp6_0)"
"(lambda()"
"(begin"
" 'temp6"
"(let-values(((v_0)(call-with-default-reading-parameterization 1/read)))"
"(if(hash? v_0) v_0 #f))))))"
"(if(hash? v_0) v_0 #f)))))"
"(with-input-from-file.1 'binary p5_0 temp6_0))"
" #f)"
" #f)))"
@ -53046,8 +53039,6 @@ static const char *startup_source =
"(let-values(((path7_0) path_0)"
"((temp8_0)"
"(lambda(p_0)"
"(begin"
" 'temp8"
"(let-values(((bstr_0)(read-bytes 8192 p_0)))"
"(if(if(bytes? bstr_0)(>=(bytes-length bstr_0) 8192) #f)"
"(apply"
@ -53061,7 +53052,7 @@ static const char *startup_source =
"(let-values(((bstr_1)(read-bytes 8192 p_0)))"
"(if(eof-object? bstr_1) null(cons bstr_1(loop_0))))))))"
" loop_0))))"
" bstr_0))))))"
" bstr_0)))))"
"(call-with-input-file*.1 'binary path7_0 temp8_0)))))"
"(define-values"
"(no-file-stamp?)"
@ -53124,14 +53115,12 @@ static const char *startup_source =
"(let-values(((links-path9_0) links-path_0)"
"((temp10_0)"
"(lambda(p_0)"
"(begin"
" 'temp10"
"(begin0"
"(1/read p_0)"
"(if(eof-object?(1/read p_0))"
"(void)"
"(let-values()"
" (error \"expected a single S-expression\"))))))))"
" (error \"expected a single S-expression\")))))))"
"(call-with-input-file*.1 'binary links-path9_0 temp10_0)))))"
"(let-values((()"
"(begin"
@ -62989,9 +62978,7 @@ static const char *startup_source =
"(let-values(((provides_0 self_0)"
"(let-values(((temp41_0)"
"(lambda(m_0)"
"(begin"
" 'temp41"
"(values(module-provides m_0)(module-self m_0)))))"
"(values(module-provides m_0)(module-self m_0))))"
"((who42_0) 'module->exports)"
"((mod43_0) mod_0)"
"((temp44_0)"
@ -63008,10 +62995,7 @@ static const char *startup_source =
"(begin"
" 'module->indirect-exports"
"(let-values(((temp45_0)"
"(lambda(m_0)"
"(begin"
" 'temp45"
"(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))))"
"(lambda(m_0)(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0)))))"
"((temp46_0) 'module->indirect-exports)"
"((mod47_0) mod_0))"
"(module->.1 void temp45_0 temp46_0 mod47_0 #f)))))"
@ -63022,11 +63006,9 @@ static const char *startup_source =
" 'module-provide-protected?"
"(let-values(((temp48_0)"
"(lambda(m_0)"
"(begin"
" 'temp48"
"(let-values(((b/p_0)(hash-ref(module-provides m_0) sym_0 #f)))"
"(let-values(((or-part_0)(not b/p_0)))"
"(if or-part_0 or-part_0(provided-as-protected? b/p_0)))))))"
"(if or-part_0 or-part_0(provided-as-protected? b/p_0))))))"
"((temp49_0) 'module-provide-protected?)"
"((mod50_0) mod_0))"
"(module->.1 void temp48_0 temp49_0 mod50_0 #f)))))"
@ -66352,8 +66334,6 @@ static const char *startup_source =
"((temp2_0)"
"(lambda(i_0)"
"(begin"
" 'temp2"
"(begin"
"(maybe-count-lines!_0 i_0)"
"((letrec-values(((loop_0)"
"(lambda(vals_0)"
@ -66383,12 +66363,8 @@ static const char *startup_source =
" read-on-demand-source"
"(path->complete-path path_0))"
"(let-values()"
"(1/read-syntax"
"(object-name i_0)"
" i_0)))"
"(1/read-syntax"
"(object-name i_0)"
" i_0))))))"
"(1/read-syntax(object-name i_0) i_0)))"
"(1/read-syntax(object-name i_0) i_0))))))"
"(if(eof-object? s_0)"
"(apply values vals_0)"
"(loop_0"
@ -66405,7 +66381,7 @@ static const char *startup_source =
"(default-continuation-prompt-tag)"
" args_0))))))))))"
" loop_0)"
"(list(void))))))))"
"(list(void)))))))"
"(call-with-input-file*.1 'binary path1_0 temp2_0)))))))))))"
"(define-values(version-bytes)(string->bytes/utf-8(version)))"
"(define-values(version-length)(bytes-length version-bytes))"

58
racket/src/cs/schemified/expander.scm
View File

@ -20993,10 +20993,7 @@
'bindings
null)))
(let ((temp2_0
(|#%name|
temp2
(lambda (a_0 b_0)
(begin
(if (hash-ref
a_0
'match?
@ -21006,7 +21003,7 @@
b_0
'match?
#f))
#f))))))
#f))))
(let ((temp1_1 temp1_0))
(sort.1
#f
@ -34786,12 +34783,9 @@
(let ((temp1_0
(flatten-linklet-directory_0 ld_0 '() '())))
(let ((temp2_0
(|#%name|
temp2
(lambda (a_0 b_0)
(begin
(let ((app_0 (car a_0)))
(bytes<? app_0 (car b_0))))))))
(bytes<? app_0 (car b_0))))))
(let ((temp1_1 temp1_0))
(sort.1 #f #f temp1_1 temp2_0)))))))
(let ((len_0 (vector-length bundles_0)))
@ -58995,16 +58989,13 @@
(if or-part_0 or-part_0 0))
(if end3_0 end3_0 (file-size path_0)))))
(let ((temp10_0
(|#%name|
temp10
(lambda ()
(begin
(begin
(file-position
(current-input-port)
start_0)
(read-bytes
(max 0 (- end_0 start_0)))))))))
(max 0 (- end_0 start_0)))))))
(with-input-from-file.1
'binary
path_0
@ -59283,14 +59274,11 @@
(if p_0
(if (file-exists? p_0)
(let ((temp6_0
(|#%name|
temp6
(lambda ()
(begin
(let ((v_0
(call-with-default-reading-parameterization
1/read)))
(if (hash? v_0) v_0 #f)))))))
(if (hash? v_0) v_0 #f)))))
(with-input-from-file.1 'binary p_0 temp6_0))
#f)
#f)))
@ -59424,10 +59412,7 @@
(define file->bytes
(lambda (path_0)
(let ((temp8_0
(|#%name|
temp8
(lambda (p_0)
(begin
(let ((bstr_0 (read-bytes 8192 p_0)))
(if (if (bytes? bstr_0)
(>= (unsafe-bytes-length bstr_0) 8192)
@ -59447,7 +59432,7 @@
null
(cons bstr_1 (loop_0)))))))))
(loop_0))))
bstr_0)))))))
bstr_0)))))
(call-with-input-file*.1 'binary path_0 temp8_0))))
(define no-file-stamp?
(lambda (a_0)
@ -59512,16 +59497,13 @@
(if (no-file-stamp? ts_0)
null
(let ((temp10_0
(|#%name|
temp10
(lambda (p_0)
(begin
(begin0
(1/read p_0)
(if (eof-object? (1/read p_0))
(void)
(error
"expected a single S-expression"))))))))
"expected a single S-expression"))))))
(call-with-input-file*.1
'binary
links-path_0
@ -70381,13 +70363,8 @@
(call-with-values
(lambda ()
(let ((temp41_0
(|#%name|
temp41
(lambda (m_0)
(begin
(values
(module-provides m_0)
(module-self m_0)))))))
(values (module-provides m_0) (module-self m_0)))))
(let ((temp44_0
(lambda ()
(check-provides-verbosity
@ -70414,13 +70391,10 @@
(lambda (mod_0)
(begin
(let ((temp45_0
(|#%name|
temp45
(lambda (m_0)
(begin
(variables->api-nonprovides
(module-provides m_0)
(|#%app| (module-get-all-variables m_0))))))))
(|#%app| (module-get-all-variables m_0))))))
(module->.1 void temp45_0 'module->indirect-exports mod_0 #f))))))
(define 1/module-provide-protected?
(|#%name|
@ -70428,15 +70402,12 @@
(lambda (mod_0 sym_0)
(begin
(let ((temp48_0
(|#%name|
temp48
(lambda (m_0)
(begin
(let ((b/p_0 (hash-ref (module-provides m_0) sym_0 #f)))
(let ((or-part_0 (not b/p_0)))
(if or-part_0
or-part_0
(provided-as-protected? b/p_0)))))))))
(provided-as-protected? b/p_0)))))))
(module->.1 void temp48_0 'module-provide-protected? mod_0 #f))))))
(define 1/module->namespace
(let ((module->namespace_0
@ -73863,10 +73834,7 @@
(cons '|#%top-interaction| s_0)
s_0)))))))
(let ((temp2_0
(|#%name|
temp2
(lambda (i_0)
(begin
(begin
(maybe-count-lines!_0 i_0)
(letrec*
@ -73900,8 +73868,7 @@
(extend-parameterization
app_0
read-on-demand-source
(path->complete-path
path_0)))
(path->complete-path path_0)))
(1/read-syntax
(object-name i_0)
i_0))
@ -73918,8 +73885,7 @@
(let ((app_0 (1/current-eval)))
(|#%app|
app_0
(add-top-interaction_0
s_0))))
(add-top-interaction_0 s_0))))
list))
(default-continuation-prompt-tag)
(lambda args_0
@ -73927,7 +73893,7 @@
abort-current-continuation
(default-continuation-prompt-tag)
args_0)))))))))))
(loop_0 (list (void))))))))))
(loop_0 (list (void))))))))
(call-with-input-file*.1 'binary path_0 temp2_0)))))))))
(define version-bytes (string->bytes/utf-8 (version)))
(define version-length (unsafe-bytes-length version-bytes))

61
racket/src/cs/schemified/io.scm
View File

@ -35667,19 +35667,13 @@
(unsafe-start-atomic)
(begin0
(let ((temp39_0
(|#%name|
temp39
(lambda (remote-addr_0)
(begin
(if (vector? remote-addr_0)
(raise-connect-error_1
remote-addr_0
"host not found")
(let ((temp43_0
(|#%name|
temp43
(lambda (local-addr_0)
(begin
(if (vector? local-addr_0)
(raise-connect-error_1
local-addr_0
@ -35789,7 +35783,7 @@
#t
fd_0
name_0))))))))))))
(loop_0))))))))))))
(loop_0))))))))))
(call-with-resolved-address.1
enable-break?10_0
unsafe-undefined
@ -35801,7 +35795,7 @@
#f
local-hostname12_0
local-port-no13_0
temp43_0))))))))
temp43_0))))))
(call-with-resolved-address.1
enable-break?10_0
unsafe-undefined
@ -35994,10 +35988,7 @@
(unsafe-start-atomic)
(begin0
(let ((temp12_0
(|#%name|
temp12
(lambda (addr_0)
(begin
(if (vector? addr_0)
(raise-listen-error_0
"address-resolution error"
@ -36045,7 +36036,7 @@
(tcp-listener1.1
lnr_0
closed_0
custodian-reference_0)))))))))))))
custodian-reference_0)))))))))))
(call-with-resolved-address.1
#f
family_0
@ -36449,10 +36440,7 @@
(unsafe-start-atomic)
(begin0
(let ((temp21_0
(|#%name|
temp21
(lambda (addr_0)
(begin
(let ((s_0
(|#%app|
rktio_udp_open
@ -36466,7 +36454,7 @@
'udp-open-socket
s_0
"creation failed"))
(udp1.1 s_0 #f #f))))))))
(udp1.1 s_0 #f #f))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -36550,10 +36538,7 @@
(unsafe-start-atomic)
(begin0
(let ((temp30_0
(|#%name|
temp30
(lambda (addr_0)
(begin
(begin
(check-udp-closed.1
void
@ -36598,10 +36583,9 @@
"\n address: "
app_1
"\n port number: "
(number->string
port-no7_0))))))
(number->string port-no7_0))))))
(void))
(set-udp-is-bound?! u5_0 #t))))))))))
(set-udp-is-bound?! u5_0 #t))))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -36689,10 +36673,7 @@
(set-udp-is-connected?! u_0 #f)))
(void)))
(let ((temp41_0
(|#%name|
temp41
(lambda (addr_0)
(begin
(begin
(check-udp-closed.1
void
@ -36719,7 +36700,7 @@
"\n port number: "
(number->string port-no_0))))
(void))
(set-udp-is-connected?! u_0 #t)))))))))
(set-udp-is-connected?! u_0 #t)))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -37370,10 +37351,7 @@
(unsafe-start-atomic)
(begin0
(let ((temp127_0
(|#%name|
temp127
(lambda (addr_0)
(begin
(do-udp-maybe-send-to-addr.1
enable-break?42_0
unsafe-undefined
@ -37383,7 +37361,7 @@
addr_0
bstr49_0
start50_0
end51_0))))))
end51_0))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -37403,10 +37381,7 @@
(unsafe-start-atomic)
(begin0
(let ((temp141_0
(|#%name|
temp141
(lambda (addr_0)
(begin
(udp-sending-evt66.1
u_0
(lambda ()
@ -37422,7 +37397,7 @@
addr_0
bstr_0
start_0
end_0))))))))))
end_0))))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -38148,18 +38123,12 @@
(let ((temp4_0 "multicast "))
(let ((temp8_0 (udp-default-family)))
(let ((temp10_0
(|#%name|
temp10
(lambda (multicast-addr_0)
(begin
(let ((temp12_0 "interface "))
(let ((temp15_0 (if hostname_0 -1 #f)))
(let ((temp16_0 (udp-default-family)))
(let ((temp18_0
(|#%name|
temp18
(lambda (intf-addr_0)
(begin
(begin
(check-udp-closed.1
void
@ -38169,8 +38138,7 @@
(let ((v_0
(|#%app|
rktio_udp_change_multicast_group
(unsafe-place-local-ref
cell.1)
(unsafe-place-local-ref cell.1)
(udp-s u_0)
multicast-addr_0
intf-addr_0
@ -38187,7 +38155,7 @@
(string-append
mode_0
"sockopt failed"))))))
(void)))))))))
(void)))))))
(let ((temp16_1 temp16_0)
(temp15_1 temp15_0)
(temp12_1 temp12_0))
@ -38202,7 +38170,7 @@
who_0
hostname_0
temp15_1
temp18_0)))))))))))
temp18_0)))))))))
(let ((temp8_1 temp8_0) (temp4_1 temp4_0))
(call-with-resolved-address.1
#f
@ -38284,10 +38252,7 @@
(let ((temp28_0 (if hostname_0 -1 #f)))
(let ((temp29_0 (udp-default-family)))
(let ((temp31_0
(|#%name|
temp31
(lambda (addr_0)
(begin
(begin
(check-udp-closed.1
void
@ -38312,7 +38277,7 @@
(string-append
mode_0
"sockopt failed"))))))
(void)))))))))
(void)))))))
(let ((temp29_1 temp29_0) (temp28_1 temp28_0))
(call-with-resolved-address.1
#f

10
racket/src/cs/schemified/schemify.scm
View File

@ -26654,16 +26654,13 @@
target_0
'cify))))
(let ((temp105_0
(|#%name|
temp105
(lambda (v_3
knowns_2)
(begin
(schemify/knowns_0
knowns_2
inline-fuel_0
'fresh
v_3))))))
v_3))))
(struct-convert-local.1
#f
target_0
@ -27893,16 +27890,13 @@
rhss_0
bodys_0)
(let ((temp129_0
(|#%name|
temp129
(lambda (v_3
knowns_2)
(begin
(schemify/knowns_0
knowns_2
inline-fuel_0
'fresh
v_3))))))
v_3))))
(let ((c1_0
(struct-convert-local.1
#t

14
racket/src/cs/schemified/thread.scm
View File

@ -6069,11 +6069,7 @@
(raise-argument-error 'make-custodian-box "custodian?" c_0))
(let ((b_0 (custodian-box1.1 v_0 (custodian-get-shutdown-sema c_0))))
(begin
(if (let ((temp76_0
(|#%name|
temp76
(lambda (b_1)
(begin (set-custodian-box-v! b_1 #f))))))
(if (let ((temp76_0 (lambda (b_1) (set-custodian-box-v! b_1 #f))))
(do-custodian-register.1 #f #t #f #t c_0 b_0 temp76_0))
(void)
(begin-unsafe
@ -12414,8 +12410,7 @@
(if (all-threads-poll-done?)
(if (not (null? callbacks_0))
(begin
(let ((temp4_0
(|#%name| temp4 (lambda () (begin (void))))))
(let ((temp4_0 (lambda () (void))))
(do-make-thread.1 #t #f #f #f 'callbacks temp4_0))
(poll-and-select-thread! TICKS callbacks_0))
(if (if (not poll-now?_0) (check-external-events) #f)
@ -12800,10 +12795,7 @@
break-enabled-key
(make-thread-cell #f)
(let ((temp5_0
(|#%name|
temp5
(lambda ()
(begin
(begin
(1/semaphore-wait ready-sema_0)
(let ((with-handlers-predicate7_0
@ -12865,7 +12857,7 @@
t_0
't_79)))
(end-atomic)))
(engine-block))))))))))))))
(engine-block))))))))))))
(do-make-thread.1
#f
cust_0