Don't blow away timeouts on reload

db4
Slava Pestov 2008-01-31 01:16:10 -06:00
parent d08919199c
commit 5478f22524
1 changed files with 2 additions and 2 deletions

View File

@ -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 [