Fix I/O typo

2006-04-28 04:19:58 +00:00 · 2006-04-28 04:19:58 +00:00 · 9e44e78d9c
parent 5329b91aa8
commit 9e44e78d9c
1 changed files with 2 additions and 2 deletions
--- 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* ;