define tell-handle on windows nt

2009-10-05 12:34:34 -05:00 · 2009-10-05 12:34:34 -05:00 · 88e2ba8f31
parent 474e02020c
commit 88e2ba8f31
1 changed files with 2 additions and 0 deletions
--- a/basis/io/backend/windows/nt/nt.factor
+++ b/basis/io/backend/windows/nt/nt.factor
@ -91,6 +91,8 @@ ERROR: seek-before-start n ;
 : set-seek-ptr ( n handle -- )
    [ dup 0 < [ seek-before-start ] when ] dip (>>ptr) ;

+M: winnt tell-handle ( handle -- n ) ptr>> ;
+
 M: winnt seek-handle ( n seek-type handle -- )
    swap {
        { seek-absolute [ set-seek-ptr ] }