From 83a467fd6a3db4fd83ffb782d047889365a5066f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 11 Apr 2008 14:25:37 -0500 Subject: [PATCH] fix calendar. oops --- extra/calendar/windows/windows.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/calendar/windows/windows.factor b/extra/calendar/windows/windows.factor index 9e80ee15bc..b621d3bde3 100755 --- a/extra/calendar/windows/windows.factor +++ b/extra/calendar/windows/windows.factor @@ -5,10 +5,10 @@ IN: calendar.windows M: windows gmt-offset ( -- hours minutes seconds ) "TIME_ZONE_INFORMATION" dup GetTimeZoneInformation { - { \ TIME_ZONE_ID_INVALID [ win32-error-string throw ] } - { \ TIME_ZONE_ID_UNKNOWN [ TIME_ZONE_INFORMATION-Bias ] } - { \ TIME_ZONE_ID_STANDARD [ TIME_ZONE_INFORMATION-Bias ] } - { \ TIME_ZONE_ID_DAYLIGHT [ + { TIME_ZONE_ID_INVALID [ win32-error-string throw ] } + { TIME_ZONE_ID_UNKNOWN [ TIME_ZONE_INFORMATION-Bias ] } + { TIME_ZONE_ID_STANDARD [ TIME_ZONE_INFORMATION-Bias ] } + { TIME_ZONE_ID_DAYLIGHT [ [ TIME_ZONE_INFORMATION-Bias ] [ TIME_ZONE_INFORMATION-DaylightBias ] bi + ] }