extra/time/windows/windows.factor

   1 ! Copyright (C) 2010 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: calendar.windows system time windows.errors
   4 windows.kernel32 kernel classes.struct calendar ;
   5 IN: time.windows
   6
   7 M: windows set-system-time
   8     >gmt timestamp>SYSTEMTIME SetSystemTime win32-error=0/f ;