r752 - ofw/fs

Author: wmb
Date: 2007-12-07 10:03:55 +0100 (Fri, 07 Dec 2007)
New Revision: 752

Modified:
   ofw/fs/unixtime.fth
Log:
OLPC trac 5391 - Don't crash if >unix-seconds is presented with an invalid month.

Modified: ofw/fs/unixtime.fth
===================================================================
--- ofw/fs/unixtime.fth	2007-12-05 23:12:36 UTC (rev 751)
+++ ofw/fs/unixtime.fth	2007-12-07 09:03:55 UTC (rev 752)
@@ -31,7 +31,8 @@
 : >unix-seconds   ( s m h d m y -- seconds )	\ since 1970
    d# 1970 - 4 /mod [ d# 365 4 * 1+ ] literal *		( s m h d m yrs days )
    swap d# 365 * +					( s m h d m days )
-   swap 1- 0 ?do  i days/month + c@ + loop		( s m h d days )
+   swap  1 max  d# 12 min				( s m h d days m' )
+   1- 0 ?do  i days/month + c@ + loop			( s m h d days )
    + 1-							( s m h days )
    d# 24 * +   d# 60 * +   d# 60 * +
 ;