# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1404045081 14400
# Node ID 1d36654c2d21dc4dcd3dc79a39fc0976a050aa9b
# Parent  ea0ecd5fa9df3fa45a65d99e26bc23771edfb1a5
Fix uw_Basis_lt_time

diff -r ea0ecd5fa9df -r 1d36654c2d21 src/c/urweb.c
--- a/src/c/urweb.c	Fri Jun 27 14:39:31 2014 -0400
+++ b/src/c/urweb.c	Sun Jun 29 08:31:21 2014 -0400
@@ -4271,7 +4271,7 @@
 }
 
 uw_Basis_bool uw_Basis_lt_time(uw_context ctx, uw_Basis_time t1, uw_Basis_time t2) {
-  return !!(t1.seconds < t2.seconds || t1.microseconds < t2.microseconds);
+  return !!(t1.seconds < t2.seconds || (t1.seconds == t2.seconds && t1.microseconds < t2.microseconds));
 }
 
 uw_Basis_bool uw_Basis_le_time(uw_context ctx, uw_Basis_time t1, uw_Basis_time t2) {