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

Load fix

db4
Slava Pestov 2008-01-21 17:29:54 -05:00
parent c1963dd4ab
commit 913403f066
2 changed files with 2 additions and 2 deletions

2
extra/io/nonblocking/nonblocking-docs.factor
View File

@ -40,7 +40,7 @@ $nl
{ { $link port-error } " - the most recent I/O error, if any. This error is thrown to the waiting thread when " { $link pending-error } " is called by stream operations" } { { $link port-error } " - the most recent I/O error, if any. This error is thrown to the waiting thread when " { $link pending-error } " is called by stream operations" }
{ { $link port-timeout } " - a timeout, specifying the maximum length of time, in milliseconds, for which input operations can block before throwing an error. A value of 0 denotes no timeout is desired." } { { $link port-timeout } " - a timeout, specifying the maximum length of time, in milliseconds, for which input operations can block before throwing an error. A value of 0 denotes no timeout is desired." }
{ { $link port-cutoff } " - the time when the current timeout expires; if no input data arrives before this time, an error is thrown" } { { $link port-cutoff } " - the time when the current timeout expires; if no input data arrives before this time, an error is thrown" }
{ { $link port-type } " - a symbol identifying the port's intended purpose. Can be " { $link input } ", " { $link output } ", " { $link closed } ", or any other symbol" } { { $link port-type } " - a symbol identifying the port's intended purpose" }
{ { $link port-eof? } " - a flag indicating if the port has reached the end of file while reading" } { { $link port-eof? } " - a flag indicating if the port has reached the end of file while reading" }
} } ; } } ;

2
extra/io/nonblocking/nonblocking.factor
View File

@ -160,7 +160,7 @@ M: output-port stream-flush ( port -- )
M: port stream-close M: port stream-close
dup port-type closed eq? [ dup port-type closed eq? [
dup port-type >r closed over set-port-type r> dup port-type >r closed over set-port-type r>
output eq? [ dup port-flush ] when output-port eq? [ dup port-flush ] when
dup port-handle close-handle dup port-handle close-handle
dup delegate [ buffer-free ] when* dup delegate [ buffer-free ] when*
f over set-delegate f over set-delegate