Fix stack effect

2008-02-21 02:31:37 -06:00 · 2008-02-21 02:31:37 -06:00 · 5f02713533
parent 91f4ca6a56
commit 5f02713533
1 changed files with 1 additions and 1 deletions
--- a/extra/io/unix/backend/backend.factor
+++ b/extra/io/unix/backend/backend.factor
@ -169,7 +169,7 @@ M: write-task do-io-task

 : add-write-io-task ( port continuation -- )
    over port-handle mx get-global mx-writes at*
-    [ io-task-callbacks push ]
+    [ io-task-callbacks push drop ]
    [ drop <write-task> add-io-task ] if ;

 : (wait-to-write) ( port -- )