From 9e44e78d9c8586d293e974eaea37eb07a663879d Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 28 Apr 2006 04:19:58 +0000
Subject: [PATCH] Fix I/O typo

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

diff --git a/library/unix/io.factor b/library/unix/io.factor
index 71ab7b83d1..e66dd4c7ca 100644
--- a/library/unix/io.factor
+++ b/library/unix/io.factor
@@ -260,8 +260,8 @@ M: write-task do-io-task
 M: write-task task-container drop write-tasks get-global ;
 
 : add-write-io-task ( callback task -- )
-    write-tasks get-global hash [
-        [ io-task-callbacks enque ] [ add-io-task ] ?if
+    dup io-task-fd write-tasks get-global hash [
+        io-task-callbacks enque
     ] [
         add-io-task
     ] if* ;