change ERROR: words from throw-foo back to foo.

[factor.git] / basis / io / files / windows / windows.factor

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 21a17b9f8f7eaeee7d59c75025e47ff06034ca8d..cb7e92ce631b2bb65656fc411db8d4a946da70b7 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -122,7 +122,7 @@ M: windows init-io ( -- )
 ERROR: seek-before-start n ;
 
 : set-seek-ptr ( n handle -- )
-    [ dup 0 < [ throw-seek-before-start ] when ] dip ptr<< ;
+    [ dup 0 < [ seek-before-start ] when ] dip ptr<< ;
 
 M: windows tell-handle ( handle -- n ) ptr>> ;