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

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

@ -20993,10 +20993,7 @@
'bindings 'bindings
null))) null)))
(let ((temp2_0 (let ((temp2_0
(|#%name|
temp2
(lambda (a_0 b_0) (lambda (a_0 b_0)
(begin
(if (hash-ref (if (hash-ref
a_0 a_0
'match? 'match?
@ -21006,7 +21003,7 @@
b_0 b_0
'match? 'match?
#f)) #f))
#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|
temp2
(lambda (a_0 b_0) (lambda (a_0 b_0)
(begin
(let ((app_0 (car a_0))) (let ((app_0 (car a_0)))
(bytes<? app_0 (car b_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|
temp10
(lambda () (lambda ()
(begin
(begin (begin
(file-position (file-position
(current-input-port) (current-input-port)
start_0) start_0)
(read-bytes (read-bytes
(max 0 (- end_0 start_0))))))))) (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|
temp6
(lambda () (lambda ()
(begin
(let ((v_0 (let ((v_0
(call-with-default-reading-parameterization (call-with-default-reading-parameterization
1/read))) 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)) (with-input-from-file.1 'binary p_0 temp6_0))
#f) #f)
#f))) #f)))
@ -59424,10 +59412,7 @@
(define file->bytes (define file->bytes
(lambda (path_0) (lambda (path_0)
(let ((temp8_0 (let ((temp8_0
(|#%name|
temp8
(lambda (p_0) (lambda (p_0)
(begin
(let ((bstr_0 (read-bytes 8192 p_0))) (let ((bstr_0 (read-bytes 8192 p_0)))
(if (if (bytes? bstr_0) (if (if (bytes? bstr_0)
(>= (unsafe-bytes-length bstr_0) 8192) (>= (unsafe-bytes-length bstr_0) 8192)
@ -59447,7 +59432,7 @@
null null
(cons bstr_1 (loop_0))))))))) (cons bstr_1 (loop_0)))))))))
(loop_0)))) (loop_0))))
bstr_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|
temp10
(lambda (p_0) (lambda (p_0)
(begin
(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)
(error (error
"expected a single S-expression")))))))) "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|
temp41
(lambda (m_0) (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 (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|
temp45
(lambda (m_0) (lambda (m_0)
(begin
(variables->api-nonprovides (variables->api-nonprovides
(module-provides m_0) (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)))))) (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|
temp48
(lambda (m_0) (lambda (m_0)
(begin
(let ((b/p_0 (hash-ref (module-provides m_0) sym_0 #f))) (let ((b/p_0 (hash-ref (module-provides m_0) sym_0 #f)))
(let ((or-part_0 (not b/p_0))) (let ((or-part_0 (not b/p_0)))
(if or-part_0 (if or-part_0
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)))))) (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,10 +73834,7 @@
(cons '|#%top-interaction| s_0) (cons '|#%top-interaction| s_0)
s_0))))))) s_0)))))))
(let ((temp2_0 (let ((temp2_0
(|#%name|
temp2
(lambda (i_0) (lambda (i_0)
(begin
(begin (begin
(maybe-count-lines!_0 i_0) (maybe-count-lines!_0 i_0)
(letrec* (letrec*
@ -73900,8 +73868,7 @@
(extend-parameterization (extend-parameterization
app_0 app_0
read-on-demand-source read-on-demand-source
(path->complete-path (path->complete-path path_0)))
path_0)))
(1/read-syntax (1/read-syntax
(object-name i_0) (object-name i_0)
i_0)) i_0))
@ -73918,8 +73885,7 @@
(let ((app_0 (1/current-eval))) (let ((app_0 (1/current-eval)))
(|#%app| (|#%app|
app_0 app_0
(add-top-interaction_0 (add-top-interaction_0 s_0))))
s_0))))
list)) list))
(default-continuation-prompt-tag) (default-continuation-prompt-tag)
(lambda args_0 (lambda args_0
@ -73927,7 +73893,7 @@
abort-current-continuation abort-current-continuation
(default-continuation-prompt-tag) (default-continuation-prompt-tag)
args_0))))))))))) args_0)))))))))))
(loop_0 (list (void)))))))))) (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))

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

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

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

14
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,10 +12795,7 @@
break-enabled-key break-enabled-key
(make-thread-cell #f) (make-thread-cell #f)
(let ((temp5_0 (let ((temp5_0
(|#%name|
temp5
(lambda () (lambda ()
(begin
(begin (begin
(1/semaphore-wait ready-sema_0) (1/semaphore-wait ready-sema_0)
(let ((with-handlers-predicate7_0 (let ((with-handlers-predicate7_0
@ -12865,7 +12857,7 @@
t_0 t_0
't_79))) 't_79)))
(end-atomic))) (end-atomic)))
(engine-block)))))))))))))) (engine-block))))))))))))
(do-make-thread.1 (do-make-thread.1
#f #f
cust_0 cust_0