Fix I/O typo

diff --git a/library/unix/io.factor b/library/unix/io.factor
index 71ab7b83d1279f1aa057e03a14ba53b5e9ff7082..e66dd4c7ca5ba799a93221544200880bcc7f76c4 100644 (file)
--- 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* ;