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

View File

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

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
continuations classes byte-arrays namespaces splitting
grouping dlists assocs io.encodings.binary summary accessors
destructors combinators unix ;
destructors combinators ;
IN: io.ports
SYMBOL: default-buffer-size