steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix typo

slava 2006-04-29 21:22:42 +00:00
parent 9e44e78d9c
commit bf90db2914
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/unix/io.factor
View File

@ -260,11 +260,8 @@ M: write-task do-io-task
M: write-task task-container drop write-tasks get-global ; M: write-task task-container drop write-tasks get-global ;
: add-write-io-task ( callback task -- ) : add-write-io-task ( callback task -- )
dup io-task-fd write-tasks get-global hash [ dup io-task-fd write-tasks get-global hash
io-task-callbacks enque [ io-task-callbacks enque ] [ add-io-task ] ?if ;
] [
add-io-task
] if* ;
: port-flush ( port -- ) : port-flush ( port -- )
[ swap <write-task> add-write-io-task stop ] callcc0 drop ; [ swap <write-task> add-write-io-task stop ] callcc0 drop ;