Applied Simon Burge <simonb@thistledown.com.au>'s dtime.c patch:

[mmh] / zotnet / tws / dtime.c

diff --git a/zotnet/tws/dtime.c b/zotnet/tws/dtime.c
index bbfccf0..adf153b 100644 (file)
--- a/zotnet/tws/dtime.c
+++ b/zotnet/tws/dtime.c
@@ -460,6 +460,8 @@ set_dotw (struct tws *tw)
     tw->tw_wday =
        ((26 * month - 2) / 10 + day + year + year / 4
            - 3 * century / 4 + 1) % 7;
+    if (tw->tw_wday < 0)
+       tw->tw_wday += 7;
 
     tw->tw_flags &= ~TW_SDAY, tw->tw_flags |= TW_SIMP;
 }