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

.

Browse Source 
original commit: f829f531bbdf4146bb69d4a5f6a28472b4e9eacd
This commit is contained in:
Matthew Flatt 2005-03-27 19:39:52 +00:00
parent 80823c62a9
commit d2136deb77
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/process.ss
View File

@ -107,7 +107,7 @@
(when (thread? t)
(thread-wait t)))])
(twait so)
(twait si)
;; (twait si) - if the process didn't wait, we don't need to!
(twait se)))
((interrupt) (subprocess-kill subp #f))
((kill) (subprocess-kill subp #t))

2
collects/mzlib/thread.ss
View File

@ -69,7 +69,7 @@
[tcp-close tcp-close]
[tcp-accept tcp-accept]
[tcp-accept/enable-break tcp-accept/enable-break])
(let ([l (tcp-listen port-number)]
(let ([l (tcp-listen port-number 5 #t)]
[can-break? (break-enabled)])
(dynamic-wind
void