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

Fix windows time

Slava Pestov 2008-03-20 17:46:47 -05:00
parent ee185d1906
commit fe68d41a11
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/windows/time/time.factor Normal file → Executable file
View File

@ -8,7 +8,7 @@ IN: windows.time
32 shift bitor ; 32 shift bitor ;
: windows-1601 ( -- timestamp ) : windows-1601 ( -- timestamp )
1601 1 1 0 0 0 0 <timestamp> ; 1601 1 1 0 0 0 instant <timestamp> ;
: FILETIME>windows-time ( FILETIME -- n ) : FILETIME>windows-time ( FILETIME -- n )
[ FILETIME-dwLowDateTime ] keep [ FILETIME-dwLowDateTime ] keep