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

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

@ -20993,20 +20993,17 @@
'bindings
null)))
(let ((temp2_0
(|#%name|
temp2
(lambda (a_0 b_0)
(begin
(if (hash-ref
a_0
'match?
#f)
(not
(hash-ref
b_0
'match?
#f))
#f))))))
(lambda (a_0 b_0)
(if (hash-ref
a_0
'match?
#f)
(not
(hash-ref
b_0
'match?
#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))))))))
(lambda (a_0 b_0)
(let ((app_0 (car a_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)))))))))
(lambda ()
(begin
(file-position
(current-input-port)
start_0)
(read-bytes
(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)))))))
(lambda ()
(let ((v_0
(call-with-default-reading-parameterization
1/read)))
(if (hash? v_0) v_0 #f)))))
(with-input-from-file.1 'binary p_0 temp6_0))
#f)
#f)))
@ -59424,30 +59412,27 @@
(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)
#f)
(apply
bytes-append
(cons
bstr_0
(letrec*
((loop_0
(|#%name|
loop
(lambda ()
(begin
(let ((bstr_1 (read-bytes 8192 p_0)))
(if (eof-object? bstr_1)
null
(cons bstr_1 (loop_0)))))))))
(loop_0))))
bstr_0)))))))
(lambda (p_0)
(let ((bstr_0 (read-bytes 8192 p_0)))
(if (if (bytes? bstr_0)
(>= (unsafe-bytes-length bstr_0) 8192)
#f)
(apply
bytes-append
(cons
bstr_0
(letrec*
((loop_0
(|#%name|
loop
(lambda ()
(begin
(let ((bstr_1 (read-bytes 8192 p_0)))
(if (eof-object? bstr_1)
null
(cons bstr_1 (loop_0)))))))))
(loop_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"))))))))
(lambda (p_0)
(begin0
(1/read p_0)
(if (eof-object? (1/read p_0))
(void)
(error
"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)))))))
(lambda (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))))))))
(lambda (m_0)
(variables->api-nonprovides
(module-provides 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)))))))))
(lambda (m_0)
(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)))))))
(module->.1 void temp48_0 'module-provide-protected? mod_0 #f))))))
(define 1/module->namespace
(let ((module->namespace_0
@ -73863,71 +73834,66 @@
(cons '|#%top-interaction| s_0)
s_0)))))))
(let ((temp2_0
(|#%name|
temp2
(lambda (i_0)
(begin
(begin
(maybe-count-lines!_0 i_0)
(letrec*
((loop_0
(|#%name|
loop
(lambda (vals_0)
(begin
(let ((s_0
(lambda (i_0)
(begin
(maybe-count-lines!_0 i_0)
(letrec*
((loop_0
(|#%name|
loop
(lambda (vals_0)
(begin
(let ((s_0
(with-continuation-mark*
push-authentic
parameterization-key
(extend-parameterization
(continuation-mark-set-first
#f
parameterization-key)
1/read-accept-compiled
#t
1/read-accept-reader
#t
1/read-accept-lang
#t)
(if (load-on-demand-enabled)
(with-continuation-mark*
push-authentic
authentic
parameterization-key
(extend-parameterization
(continuation-mark-set-first
#f
parameterization-key)
1/read-accept-compiled
#t
1/read-accept-reader
#t
1/read-accept-lang
#t)
(if (load-on-demand-enabled)
(with-continuation-mark*
authentic
parameterization-key
(let ((app_0
(continuation-mark-set-first
#f
parameterization-key)))
(extend-parameterization
app_0
read-on-demand-source
(path->complete-path
path_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
(call-with-continuation-prompt
(let ((app_0
(continuation-mark-set-first
#f
parameterization-key)))
(extend-parameterization
app_0
read-on-demand-source
(path->complete-path path_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
(call-with-continuation-prompt
(lambda ()
(call-with-values
(lambda ()
(call-with-values
(lambda ()
(let ((app_0 (1/current-eval)))
(|#%app|
app_0
(add-top-interaction_0
s_0))))
list))
(let ((app_0 (1/current-eval)))
(|#%app|
app_0
(add-top-interaction_0 s_0))))
list))
(default-continuation-prompt-tag)
(lambda args_0
(apply
abort-current-continuation
(default-continuation-prompt-tag)
(lambda args_0
(apply
abort-current-continuation
(default-continuation-prompt-tag)
args_0)))))))))))
(loop_0 (list (void))))))))))
args_0)))))))))))
(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))

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

@ -35667,141 +35667,135 @@
(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
"local host not found"
local-hostname12_0
local-port-no13_0)
(call-with-resource
(connect-progress1.1
(|#%app|
rktio_start_connect
(unsafe-place-local-ref
cell.1)
remote-addr_0
local-addr_0)
#f)
(lambda (conn-prog_0)
(begin
(remove-trying-fd!
conn-prog_0)
(let ((conn_0
(connect-progress-conn
conn-prog_0)))
(if conn_0
(|#%app|
rktio_connect_stop
(unsafe-place-local-ref
cell.1)
conn_0)
(void)))))
(lambda (conn-prog_0)
(let ((conn_0
(connect-progress-conn
conn-prog_0)))
(if (vector? conn_0)
(raise-connect-error_1
conn_0)
(letrec*
((loop_0
(|#%name|
loop
(lambda ()
(begin
(if (eqv?
(|#%app|
rktio_poll_connect_ready
(unsafe-place-local-ref
cell.1)
conn_0)
0)
(begin
(init-trying-fd!
conn-prog_0)
(unsafe-end-atomic)
(let ((app_0
(if enable-break?10_0
sync/enable-break
sync)))
(lambda (remote-addr_0)
(if (vector? remote-addr_0)
(raise-connect-error_1
remote-addr_0
"host not found")
(let ((temp43_0
(lambda (local-addr_0)
(if (vector? local-addr_0)
(raise-connect-error_1
local-addr_0
"local host not found"
local-hostname12_0
local-port-no13_0)
(call-with-resource
(connect-progress1.1
(|#%app|
rktio_start_connect
(unsafe-place-local-ref
cell.1)
remote-addr_0
local-addr_0)
#f)
(lambda (conn-prog_0)
(begin
(remove-trying-fd!
conn-prog_0)
(let ((conn_0
(connect-progress-conn
conn-prog_0)))
(if conn_0
(|#%app|
rktio_connect_stop
(unsafe-place-local-ref
cell.1)
conn_0)
(void)))))
(lambda (conn-prog_0)
(let ((conn_0
(connect-progress-conn
conn-prog_0)))
(if (vector? conn_0)
(raise-connect-error_1
conn_0)
(letrec*
((loop_0
(|#%name|
loop
(lambda ()
(begin
(if (eqv?
(|#%app|
rktio_poll_connect_ready
(unsafe-place-local-ref
cell.1)
conn_0)
0)
(begin
(init-trying-fd!
conn-prog_0)
(unsafe-end-atomic)
(let ((app_0
(if enable-break?10_0
sync/enable-break
sync)))
(|#%app|
app_0
(rktio-evt1.1
(lambda ()
(not
(eqv?
(|#%app|
app_0
(rktio-evt1.1
(lambda ()
(not
(eqv?
(|#%app|
rktio_poll_connect_ready
(unsafe-place-local-ref
cell.1)
conn_0)
0)))
(lambda (ps_0)
(|#%app|
rktio_poll_add_connect
(unsafe-place-local-ref
cell.1)
conn_0
ps_0)))))
(unsafe-start-atomic)
(loop_0))
(begin
(remove-trying-fd!
conn-prog_0)
(begin
(check-current-custodian
who14_0)
(let ((fd_0
(|#%app|
rktio_connect_finish
(unsafe-place-local-ref
cell.1)
conn_0)))
(if (vector?
fd_0)
(if (racket-error?
fd_0
19)
(loop_0)
(begin
(set-connect-progress-conn!
conn-prog_0
#f)
(raise-connect-error_1
fd_0)))
(let ((name_0
(string->immutable-string
hostname15_0)))
(open-input-output-tcp.1
#t
fd_0
name_0))))))))))))
(loop_0))))))))))))
(call-with-resolved-address.1
enable-break?10_0
unsafe-undefined
#f
#t
#f
#t
""
#f
local-hostname12_0
local-port-no13_0
temp43_0))))))))
rktio_poll_connect_ready
(unsafe-place-local-ref
cell.1)
conn_0)
0)))
(lambda (ps_0)
(|#%app|
rktio_poll_add_connect
(unsafe-place-local-ref
cell.1)
conn_0
ps_0)))))
(unsafe-start-atomic)
(loop_0))
(begin
(remove-trying-fd!
conn-prog_0)
(begin
(check-current-custodian
who14_0)
(let ((fd_0
(|#%app|
rktio_connect_finish
(unsafe-place-local-ref
cell.1)
conn_0)))
(if (vector?
fd_0)
(if (racket-error?
fd_0
19)
(loop_0)
(begin
(set-connect-progress-conn!
conn-prog_0
#f)
(raise-connect-error_1
fd_0)))
(let ((name_0
(string->immutable-string
hostname15_0)))
(open-input-output-tcp.1
#t
fd_0
name_0))))))))))))
(loop_0))))))))))
(call-with-resolved-address.1
enable-break?10_0
unsafe-undefined
#f
#t
#f
#t
""
#f
local-hostname12_0
local-port-no13_0
temp43_0))))))
(call-with-resolved-address.1
enable-break?10_0
unsafe-undefined
@ -35994,58 +35988,55 @@
(unsafe-start-atomic)
(begin0
(let ((temp12_0
(|#%name|
temp12
(lambda (addr_0)
(begin
(if (vector? addr_0)
(raise-listen-error_0
"address-resolution error"
addr_0)
(begin
(check-current-custodian
'tcp-listen)
(let ((lnr_0
(|#%app|
rktio_listen
(unsafe-place-local-ref
cell.1)
addr_0
(min
max-allow-wait2_0
10000)
reuse?3_0)))
(if (vector? lnr_0)
(if (racket-error?
lnr_0
24)
(lambda ()
(loop_0
(|#%app|
rktio_get_ipv4_family
(unsafe-place-local-ref
cell.1))))
(raise-listen-error_0
"listen failed"
lnr_0))
(let ((closed_0
(box #f)))
(let ((custodian-reference_0
(|#%app|
1/unsafe-custodian-register
(current-custodian)
lnr_0
(lambda (fd_0)
(do-tcp-close
lnr_0
closed_0))
#f
#f)))
(lambda ()
(tcp-listener1.1
(lambda (addr_0)
(if (vector? addr_0)
(raise-listen-error_0
"address-resolution error"
addr_0)
(begin
(check-current-custodian
'tcp-listen)
(let ((lnr_0
(|#%app|
rktio_listen
(unsafe-place-local-ref
cell.1)
addr_0
(min
max-allow-wait2_0
10000)
reuse?3_0)))
(if (vector? lnr_0)
(if (racket-error?
lnr_0
24)
(lambda ()
(loop_0
(|#%app|
rktio_get_ipv4_family
(unsafe-place-local-ref
cell.1))))
(raise-listen-error_0
"listen failed"
lnr_0))
(let ((closed_0
(box #f)))
(let ((custodian-reference_0
(|#%app|
1/unsafe-custodian-register
(current-custodian)
lnr_0
closed_0
custodian-reference_0)))))))))))))
(lambda (fd_0)
(do-tcp-close
lnr_0
closed_0))
#f
#f)))
(lambda ()
(tcp-listener1.1
lnr_0
closed_0
custodian-reference_0)))))))))))
(call-with-resolved-address.1
#f
family_0
@ -36449,24 +36440,21 @@
(unsafe-start-atomic)
(begin0
(let ((temp21_0
(|#%name|
temp21
(lambda (addr_0)
(begin
(let ((s_0
(|#%app|
rktio_udp_open
(unsafe-place-local-ref cell.1)
addr_0
(udp-default-family))))
(if (vector? s_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-open-socket
s_0
"creation failed"))
(udp1.1 s_0 #f #f))))))))
(lambda (addr_0)
(let ((s_0
(|#%app|
rktio_udp_open
(unsafe-place-local-ref cell.1)
addr_0
(udp-default-family))))
(if (vector? s_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-open-socket
s_0
"creation failed"))
(udp1.1 s_0 #f #f))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -36550,58 +36538,54 @@
(unsafe-start-atomic)
(begin0
(let ((temp30_0
(|#%name|
temp30
(lambda (addr_0)
(begin
(begin
(check-udp-closed.1
void
unsafe-undefined
'udp-bind!
u5_0)
(begin
(if (udp-is-bound? u5_0)
(begin
(unsafe-end-atomic)
(raise-arguments-error
'udp-bind!
"udp socket is already bound"
"socket"
u5_0))
(void))
(let ((b_0
(|#%app|
rktio_udp_bind
(unsafe-place-local-ref cell.1)
(udp-s u5_0)
addr_0
reuse?4_0)))
(begin
(if (vector? b_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-bind!
b_0
(let ((app_0
(if reuse?4_0
" as reusable"
"")))
(let ((app_1
(if hostname6_0
hostname6_0
"<unspec>")))
(string-append
"can't bind"
app_0
"\n address: "
app_1
"\n port number: "
(number->string
port-no7_0))))))
(void))
(set-udp-is-bound?! u5_0 #t))))))))))
(lambda (addr_0)
(begin
(check-udp-closed.1
void
unsafe-undefined
'udp-bind!
u5_0)
(begin
(if (udp-is-bound? u5_0)
(begin
(unsafe-end-atomic)
(raise-arguments-error
'udp-bind!
"udp socket is already bound"
"socket"
u5_0))
(void))
(let ((b_0
(|#%app|
rktio_udp_bind
(unsafe-place-local-ref cell.1)
(udp-s u5_0)
addr_0
reuse?4_0)))
(begin
(if (vector? b_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-bind!
b_0
(let ((app_0
(if reuse?4_0
" as reusable"
"")))
(let ((app_1
(if hostname6_0
hostname6_0
"<unspec>")))
(string-append
"can't bind"
app_0
"\n address: "
app_1
"\n port number: "
(number->string port-no7_0))))))
(void))
(set-udp-is-bound?! u5_0 #t))))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -36689,37 +36673,34 @@
(set-udp-is-connected?! u_0 #f)))
(void)))
(let ((temp41_0
(|#%name|
temp41
(lambda (addr_0)
(begin
(begin
(check-udp-closed.1
void
unsafe-undefined
'udp-connect!
u_0)
(let ((c_0
(|#%app|
rktio_udp_connect
(unsafe-place-local-ref cell.1)
(udp-s u_0)
addr_0)))
(begin
(if (vector? c_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-connect!
c_0
(string-append
"can't connect"
"\n address: "
hostname_0
"\n port number: "
(number->string port-no_0))))
(void))
(set-udp-is-connected?! u_0 #t)))))))))
(lambda (addr_0)
(begin
(check-udp-closed.1
void
unsafe-undefined
'udp-connect!
u_0)
(let ((c_0
(|#%app|
rktio_udp_connect
(unsafe-place-local-ref cell.1)
(udp-s u_0)
addr_0)))
(begin
(if (vector? c_0)
(begin
(unsafe-end-atomic)
(raise-network-error
'udp-connect!
c_0
(string-append
"can't connect"
"\n address: "
hostname_0
"\n port number: "
(number->string port-no_0))))
(void))
(set-udp-is-connected?! u_0 #t)))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -37370,20 +37351,17 @@
(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
wait?41_0
who45_0
u46_0
addr_0
bstr49_0
start50_0
end51_0))))))
(lambda (addr_0)
(do-udp-maybe-send-to-addr.1
enable-break?42_0
unsafe-undefined
wait?41_0
who45_0
u46_0
addr_0
bstr49_0
start50_0
end51_0))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -37403,26 +37381,23 @@
(unsafe-start-atomic)
(begin0
(let ((temp141_0
(|#%name|
temp141
(lambda (addr_0)
(begin
(udp-sending-evt66.1
u_0
(lambda ()
(begin
(if addr_0 (register-address-finalizer addr_0) (void))
(let ((temp149_0 (lambda (thunk_0) thunk_0)))
(do-udp-maybe-send-to-addr.1
#f
temp149_0
#f
who_0
u_0
addr_0
bstr_0
start_0
end_0))))))))))
(lambda (addr_0)
(udp-sending-evt66.1
u_0
(lambda ()
(begin
(if addr_0 (register-address-finalizer addr_0) (void))
(let ((temp149_0 (lambda (thunk_0) thunk_0)))
(do-udp-maybe-send-to-addr.1
#f
temp149_0
#f
who_0
u_0
addr_0
bstr_0
start_0
end_0))))))))
(call-with-resolved-address.1
#f
unsafe-undefined
@ -38148,61 +38123,54 @@
(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
unsafe-undefined
who_0
u_0)
(let ((v_0
(|#%app|
rktio_udp_change_multicast_group
(unsafe-place-local-ref
cell.1)
(udp-s u_0)
multicast-addr_0
intf-addr_0
action_0)))
(if (vector? v_0)
(let ((mode_0 "set"))
(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)
(temp12_1 temp12_0))
(call-with-resolved-address.1
#f
temp16_1
#f
#f
#f
#f
temp12_1
who_0
hostname_0
temp15_1
temp18_0)))))))))))
(lambda (multicast-addr_0)
(let ((temp12_0 "interface "))
(let ((temp15_0 (if hostname_0 -1 #f)))
(let ((temp16_0 (udp-default-family)))
(let ((temp18_0
(lambda (intf-addr_0)
(begin
(check-udp-closed.1
void
unsafe-undefined
who_0
u_0)
(let ((v_0
(|#%app|
rktio_udp_change_multicast_group
(unsafe-place-local-ref cell.1)
(udp-s u_0)
multicast-addr_0
intf-addr_0
action_0)))
(if (vector? v_0)
(let ((mode_0 "set"))
(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)
(temp12_1 temp12_0))
(call-with-resolved-address.1
#f
temp16_1
#f
#f
#f
#f
temp12_1
who_0
hostname_0
temp15_1
temp18_0)))))))))
(let ((temp8_1 temp8_0) (temp4_1 temp4_0))
(call-with-resolved-address.1
#f
@ -38284,35 +38252,32 @@
(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
unsafe-undefined
'udp-multicast-set-interface!
u_0)
(let ((r_0
(|#%app|
rktio_udp_set_multicast_interface
(unsafe-place-local-ref cell.1)
(udp-s u_0)
addr_0)))
(if (vector? r_0)
(let ((mode_0 "set"))
(lambda (addr_0)
(begin
(check-udp-closed.1
void
unsafe-undefined
'udp-multicast-set-interface!
u_0)
(let ((r_0
(|#%app|
rktio_udp_set_multicast_interface
(unsafe-place-local-ref cell.1)
(udp-s u_0)
addr_0)))
(if (vector? r_0)
(let ((mode_0 "set"))
(begin-unsafe
(begin
(unsafe-end-atomic)
(begin-unsafe
(begin
(unsafe-end-atomic)
(begin-unsafe
(raise-network-error
'udp-multicast-set-interface!
r_0
(string-append
mode_0
"sockopt failed"))))))
(void)))))))))
(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
#f

34
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))))))
(lambda (v_3
knowns_2)
(schemify/knowns_0
knowns_2
inline-fuel_0
'fresh
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))))))
(lambda (v_3
knowns_2)
(schemify/knowns_0
knowns_2
inline-fuel_0
'fresh
v_3))))
(let ((c1_0
(struct-convert-local.1
#t

132
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,72 +12795,69 @@
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
(|#%name|
with-handlers-predicate7
(lambda (x_0)
(begin #t)))))
(let ((with-handlers-handler8_0
(|#%name|
with-handlers-handler8
(lambda (x_0)
(begin
(begin
(set! result-kind_0
'exn)
(set! result_0
x_0)))))))
(let ((bpz_0
(continuation-mark-set-first
#f
break-enabled-key)))
(call-handled-body
(lambda ()
(begin
(1/semaphore-wait ready-sema_0)
(let ((with-handlers-predicate7_0
(|#%name|
with-handlers-predicate7
(lambda (x_0)
(begin #t)))))
(let ((with-handlers-handler8_0
(|#%name|
with-handlers-handler8
(lambda (x_0)
(begin
(begin
(set! result-kind_0
'exn)
(set! result_0
x_0)))))))
(let ((bpz_0
(continuation-mark-set-first
#f
break-enabled-key)))
(call-handled-body
bpz_0
(lambda (e_0)
(select-handler/no-breaks
e_0
bpz_0
(lambda (e_0)
(select-handler/no-breaks
e_0
bpz_0
(list
(cons
with-handlers-predicate7_0
with-handlers-handler8_0))))
(lambda ()
(with-continuation-mark*
authentic
break-enabled-key
init-break-cell_0
(begin
(set! result_0
(call-with-continuation-barrier
(list
(cons
with-handlers-predicate7_0
with-handlers-handler8_0))))
(lambda ()
(with-continuation-mark*
authentic
break-enabled-key
init-break-cell_0
(begin
(set! result_0
(call-with-continuation-barrier
(lambda ()
(call-with-values
(lambda ()
(call-with-values
(lambda ()
(call-with-continuation-prompt
thunk2_0
(call-with-continuation-prompt
thunk2_0
(default-continuation-prompt-tag)
(lambda (thunk_0)
(abort-current-continuation
(default-continuation-prompt-tag)
(lambda (thunk_0)
(abort-current-continuation
(default-continuation-prompt-tag)
thunk_0))))
list))))
(begin
(start-atomic)
(begin0
(begin
(set! result-kind_0
'value)
(thread-dead!
(check-not-unsafe-undefined
t_0
't_79)))
(end-atomic)))
(engine-block))))))))))))))
thunk_0))))
list))))
(begin
(start-atomic)
(begin0
(begin
(set! result-kind_0
'value)
(thread-dead!
(check-not-unsafe-undefined
t_0
't_79)))
(end-atomic)))
(engine-block))))))))))))
(do-make-thread.1
#f
cust_0