From 790f3b867c7642505a91284fd854da6563ff40d7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 7 Feb 2009 01:12:03 -0600
Subject: [PATCH] remove bogus unix depenedency, implement seeking on windows

---
 basis/io/backend/windows/nt/nt.factor | 2 ++
 basis/io/ports/ports.factor           | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/io/backend/windows/nt/nt.factor b/basis/io/backend/windows/nt/nt.factor
index c6b24a0a11..52ab06e753 100755
--- a/basis/io/backend/windows/nt/nt.factor
+++ b/basis/io/backend/windows/nt/nt.factor
@@ -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 {
diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index dd95e37d72..0f2dcc6e21 100644
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -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