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

win32 fixes

erg 2006-09-07 23:55:47 +00:00
parent 5fe21dda38
commit a7bc2e9c94
3 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/io/windows/load.factor
View File

@ -2,7 +2,6 @@ REQUIRES: library/windows library/io/buffer ;
PROVIDE: library/io/windows { PROVIDE: library/io/windows {
"errors.factor" "errors.factor"
"winsock.factor"
"io-internals.factor" "io-internals.factor"
"stream.factor" "stream.factor"
"server.factor" "server.factor"

3
library/io/windows/stream.factor
View File

@ -69,8 +69,7 @@ TUPLE: win32-stream handle in-buffer out-buffer fileptr file-size timeout cutoff
] [ ] [
pick dupd consume-input pick dupd consume-input
dup empty? [ dup empty? [
2drop >string-or-f nip dup f = 2drop >string-or-f nip
[ "Stream closed" throw ] when ! XXX: what do we do here?
] [ ] [
swapd over >r nappend r> swapd over >r nappend r>
[ length - ] keep swap do-read-count [ length - ] keep swap do-read-count

1
library/windows/load.factor
View File

@ -11,6 +11,7 @@ PROVIDE: library/windows {
"user32-structs.factor" "user32-structs.factor"
"user32-types.factor" "user32-types.factor"
"user32.factor" "user32.factor"
"winsock.factor"
"opengl32.factor" "opengl32.factor"
"utils.factor" "utils.factor"
} ; } ;