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

define tell-handle on windows nt

db4
Doug Coleman 2009-10-05 12:34:34 -05:00
parent 474e02020c
commit 88e2ba8f31
1 changed files with 2 additions and 0 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

@ -91,6 +91,8 @@ ERROR: seek-before-start n ;
: set-seek-ptr ( n handle -- ) : set-seek-ptr ( n handle -- )
[ dup 0 < [ seek-before-start ] when ] dip (>>ptr) ; [ dup 0 < [ seek-before-start ] when ] dip (>>ptr) ;
M: winnt tell-handle ( handle -- n ) ptr>> ;
M: winnt seek-handle ( n seek-type handle -- ) M: winnt seek-handle ( n seek-type handle -- )
swap { swap {
{ seek-absolute [ set-seek-ptr ] } { seek-absolute [ set-seek-ptr ] }