[m-rev.] for review: implement io__file_modification_time_2 in C#

Fergus Henderson fjh at cs.mu.OZ.AU
Sun Nov 2 12:03:28 AEDT 2003


Estimated hours taken: 0.25
Branches: main

Fix a bug in Pete's recent change to time.m that broke
tests/hard_coded/time_test.

library/time.m:
	Fix an off-by-one error in wday_name: day 0 is Sunday, not Monday.

Workspace: /home/ceres/fjh/mercury
Index: library/time.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/time.m,v
retrieving revision 1.37
diff -u -d -r1.37 time.m
--- library/time.m	1 Nov 2003 05:18:09 -0000	1.37
+++ library/time.m	2 Nov 2003 01:00:31 -0000
@@ -631,13 +631,13 @@
 
 :- pred wday_name(int::in, string::out) is semidet.
 
-wday_name(0, "Mon").
-wday_name(1, "Tue").
-wday_name(2, "Wed").
-wday_name(3, "Thu").
-wday_name(4, "Fri").
-wday_name(5, "Sat").
-wday_name(6, "Sun").
+wday_name(0, "Sun").
+wday_name(1, "Mon").
+wday_name(2, "Tue").
+wday_name(3, "Wed").
+wday_name(4, "Thu").
+wday_name(5, "Fri").
+wday_name(6, "Sat").
 
 :- func mon_name(int) = string.
 
-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list