Don't blow away timeouts on reload
parent
d08919199c
commit
5478f22524
|
@ -4,7 +4,7 @@ IN: io.nonblocking
|
|||
USING: math kernel io sequences io.buffers generic sbufs system
|
||||
io.streams.lines io.streams.plain io.streams.duplex io.backend
|
||||
continuations debugger classes byte-arrays namespaces splitting
|
||||
dlists ;
|
||||
dlists assocs ;
|
||||
|
||||
SYMBOL: default-buffer-size
|
||||
64 1024 * default-buffer-size set-global
|
||||
|
@ -56,7 +56,7 @@ GENERIC: close-handle ( handle -- )
|
|||
|
||||
SYMBOL: timeout-queue
|
||||
|
||||
<dlist> timeout-queue set-global
|
||||
timeout-queue global [ [ <dlist> ] unless* ] change-at
|
||||
|
||||
: unqueue-timeout ( port -- )
|
||||
port-timeout-entry [
|
||||
|
|
Loading…
Reference in New Issue