From 5478f225247a2c0c429d01a985c625dd4ca48432 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 31 Jan 2008 01:16:10 -0600
Subject: [PATCH] Don't blow away timeouts on reload

---
 extra/io/nonblocking/nonblocking.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/io/nonblocking/nonblocking.factor b/extra/io/nonblocking/nonblocking.factor
index 9d08e87fa3..ca50d7063a 100755
--- a/extra/io/nonblocking/nonblocking.factor
+++ b/extra/io/nonblocking/nonblocking.factor
@@ -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 [