Fix typo

diff --git a/library/unix/io.factor b/library/unix/io.factor
index e66dd4c7ca5ba799a93221544200880bcc7f76c4..a2eae41450c71c5168acc9f52457f5dcd70e7f2d 100644 (file)
--- a/library/unix/io.factor
+++ b/library/unix/io.factor
@@ -260,11 +260,8 @@ M: write-task do-io-task
 M: write-task task-container drop write-tasks get-global ;
 
 : add-write-io-task ( callback task -- )
-    dup io-task-fd 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 ;
 
 : port-flush ( port -- )
     [ swap <write-task> add-write-io-task stop ] callcc0 drop ;