fix gmt-offset on windows
parent
96a7225ddc
commit
6204f56981
|
@ -9,5 +9,4 @@ T{ windows-calendar } calendar-backend set-global
|
||||||
M: windows-calendar gmt-offset ( -- float )
|
M: windows-calendar gmt-offset ( -- float )
|
||||||
"TIME_ZONE_INFORMATION" <c-object>
|
"TIME_ZONE_INFORMATION" <c-object>
|
||||||
[ GetTimeZoneInformation win32-error=0/f ] keep
|
[ GetTimeZoneInformation win32-error=0/f ] keep
|
||||||
[ TIME_ZONE_INFORMATION-Bias ] keep
|
TIME_ZONE_INFORMATION-Bias 60 / neg ;
|
||||||
TIME_ZONE_INFORMATION-DaylightBias + 60 /f neg ;
|
|
||||||
|
|
Loading…
Reference in New Issue