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

remove bogus unix depenedency, implement seeking on windows

db4
Doug Coleman 2009-02-07 01:12:03 -06:00
parent f6f716c4e3
commit 790f3b867c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/backend/windows/nt/nt.factor
View File

@ -82,6 +82,8 @@ M: winnt init-io ( -- )
H{ } clone pending-overlapped set-global H{ } clone pending-overlapped set-global
windows.winsock:init-winsock ; windows.winsock:init-winsock ;
M: winnt (stream-seek) ( n stream -- ) 2drop ;
: file-error? ( n -- eof? ) : file-error? ( n -- eof? )
zero? [ zero? [
GetLastError { GetLastError {

2
basis/io/ports/ports.factor
View File

@ -4,7 +4,7 @@ USING: math kernel io sequences io.buffers io.timeouts generic
byte-vectors system io.encodings math.order io.backend byte-vectors system io.encodings math.order io.backend
continuations classes byte-arrays namespaces splitting continuations classes byte-arrays namespaces splitting
grouping dlists assocs io.encodings.binary summary accessors grouping dlists assocs io.encodings.binary summary accessors
destructors combinators unix ; destructors combinators ;
IN: io.ports IN: io.ports
SYMBOL: default-buffer-size SYMBOL: default-buffer-size