fix gmt-offset on windows

db4
Doug Coleman 2008-02-07 13:48:49 -06:00
parent 96a7225ddc
commit 6204f56981
1 changed files with 1 additions and 2 deletions

View File

@ -9,5 +9,4 @@ T{ windows-calendar } calendar-backend set-global
M: windows-calendar gmt-offset ( -- float )
"TIME_ZONE_INFORMATION" <c-object>
[ GetTimeZoneInformation win32-error=0/f ] keep
[ TIME_ZONE_INFORMATION-Bias ] keep
TIME_ZONE_INFORMATION-DaylightBias + 60 /f neg ;
TIME_ZONE_INFORMATION-Bias 60 / neg ;