2010-06-16 18:42:15 -04:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2015-06-29 19:43:15 -04:00
|
|
|
USING: calendar.windows system time windows.errors
|
2010-06-16 18:42:15 -04:00
|
|
|
windows.kernel32 kernel classes.struct calendar ;
|
|
|
|
|
IN: time.windows
|
|
|
|
|
|
|
|
|
|
M: windows set-time
|
|
|
|
|
>gmt
|
|
|
|
|
timestamp>SYSTEMTIME SetSystemTime win32-error=0/f ;
|
