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

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

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

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

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

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

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

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

@ -6069,11 +6069,7 @@
(raise-argument-error 'make-custodian-box "custodian?" c_0)) (raise-argument-error 'make-custodian-box "custodian?" c_0))
(let ((b_0 (custodian-box1.1 v_0 (custodian-get-shutdown-sema c_0)))) (let ((b_0 (custodian-box1.1 v_0 (custodian-get-shutdown-sema c_0))))
(begin (begin
(if (let ((temp76_0 (if (let ((temp76_0 (lambda (b_1) (set-custodian-box-v! b_1 #f))))
(|#%name|
temp76
(lambda (b_1)
(begin (set-custodian-box-v! b_1 #f))))))
(do-custodian-register.1 #f #t #f #t c_0 b_0 temp76_0)) (do-custodian-register.1 #f #t #f #t c_0 b_0 temp76_0))
(void) (void)
(begin-unsafe (begin-unsafe
@ -12414,8 +12410,7 @@
(if (all-threads-poll-done?) (if (all-threads-poll-done?)
(if (not (null? callbacks_0)) (if (not (null? callbacks_0))
(begin (begin
(let ((temp4_0 (let ((temp4_0 (lambda () (void))))
(|#%name| temp4 (lambda () (begin (void))))))
(do-make-thread.1 #t #f #f #f 'callbacks temp4_0)) (do-make-thread.1 #t #f #f #f 'callbacks temp4_0))
(poll-and-select-thread! TICKS callbacks_0)) (poll-and-select-thread! TICKS callbacks_0))
(if (if (not poll-now?_0) (check-external-events) #f) (if (if (not poll-now?_0) (check-external-events) #f)
@ -12800,72 +12795,69 @@
break-enabled-key break-enabled-key
(make-thread-cell #f) (make-thread-cell #f)
(let ((temp5_0 (let ((temp5_0
(|#%name| (lambda ()
temp5 (begin
(lambda () (1/semaphore-wait ready-sema_0)
(begin (let ((with-handlers-predicate7_0
(begin (|#%name|
(1/semaphore-wait ready-sema_0) with-handlers-predicate7
(let ((with-handlers-predicate7_0 (lambda (x_0)
(|#%name| (begin #t)))))
with-handlers-predicate7 (let ((with-handlers-handler8_0
(lambda (x_0) (|#%name|
(begin #t))))) with-handlers-handler8
(let ((with-handlers-handler8_0 (lambda (x_0)
(|#%name| (begin
with-handlers-handler8 (begin
(lambda (x_0) (set! result-kind_0
(begin 'exn)
(begin (set! result_0
(set! result-kind_0 x_0)))))))
'exn) (let ((bpz_0
(set! result_0 (continuation-mark-set-first
x_0))))))) #f
(let ((bpz_0 break-enabled-key)))
(continuation-mark-set-first (call-handled-body
#f bpz_0
break-enabled-key))) (lambda (e_0)
(call-handled-body (select-handler/no-breaks
e_0
bpz_0 bpz_0
(lambda (e_0) (list
(select-handler/no-breaks (cons
e_0 with-handlers-predicate7_0
bpz_0 with-handlers-handler8_0))))
(list (lambda ()
(cons (with-continuation-mark*
with-handlers-predicate7_0 authentic
with-handlers-handler8_0)))) break-enabled-key
(lambda () init-break-cell_0
(with-continuation-mark* (begin
authentic (set! result_0
break-enabled-key (call-with-continuation-barrier
init-break-cell_0 (lambda ()
(begin (call-with-values
(set! result_0
(call-with-continuation-barrier
(lambda () (lambda ()
(call-with-values (call-with-continuation-prompt
(lambda () thunk2_0
(call-with-continuation-prompt (default-continuation-prompt-tag)
thunk2_0 (lambda (thunk_0)
(abort-current-continuation
(default-continuation-prompt-tag) (default-continuation-prompt-tag)
(lambda (thunk_0) thunk_0))))
(abort-current-continuation list))))
(default-continuation-prompt-tag) (begin
thunk_0)))) (start-atomic)
list)))) (begin0
(begin (begin
(start-atomic) (set! result-kind_0
(begin0 'value)
(begin (thread-dead!
(set! result-kind_0 (check-not-unsafe-undefined
'value) t_0
(thread-dead! 't_79)))
(check-not-unsafe-undefined (end-atomic)))
t_0 (engine-block))))))))))))
't_79)))
(end-atomic)))
(engine-block))))))))))))))
(do-make-thread.1 (do-make-thread.1
#f #f
cust_0 cust_0