Clean up a windows.time word

db4
Doug Coleman 2010-01-14 17:20:30 -06:00
parent ad6d8556e0
commit 350f69b645
1 changed files with 1 additions and 2 deletions

View File

@ -8,8 +8,7 @@ IN: windows.time
: >64bit ( lo hi -- n )
32 shift bitor ; inline
: windows-1601 ( -- timestamp )
1601 1 1 0 0 0 instant <timestamp> ;
: windows-1601 ( -- timestamp ) 1601 <year-gmt> ;
: FILETIME>windows-time ( FILETIME -- n )
[ dwLowDateTime>> ] [ dwHighDateTime>> ] bi >64bit ;