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
|
USING: math kernel io sequences io.buffers generic sbufs system
|
||||||
io.streams.lines io.streams.plain io.streams.duplex io.backend
|
io.streams.lines io.streams.plain io.streams.duplex io.backend
|
||||||
continuations debugger classes byte-arrays namespaces splitting
|
continuations debugger classes byte-arrays namespaces splitting
|
||||||
dlists ;
|
dlists assocs ;
|
||||||
|
|
||||||
SYMBOL: default-buffer-size
|
SYMBOL: default-buffer-size
|
||||||
64 1024 * default-buffer-size set-global
|
64 1024 * default-buffer-size set-global
|
||||||
|
@ -56,7 +56,7 @@ GENERIC: close-handle ( handle -- )
|
||||||
|
|
||||||
SYMBOL: timeout-queue
|
SYMBOL: timeout-queue
|
||||||
|
|
||||||
<dlist> timeout-queue set-global
|
timeout-queue global [ [ <dlist> ] unless* ] change-at
|
||||||
|
|
||||||
: unqueue-timeout ( port -- )
|
: unqueue-timeout ( port -- )
|
||||||
port-timeout-entry [
|
port-timeout-entry [
|
||||||
|
|
Loading…
Reference in New Issue