diff src/flat_util.sml @ 99:5182f0c80d2e

Fix record type comparison
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 09:24:43 -0400
parents 198172560b73
children 717b6f8d8505
line wrap: on
line diff
--- a/src/flat_util.sml	Thu Jul 10 09:10:56 2008 -0400
+++ b/src/flat_util.sml	Thu Jul 10 09:24:43 2008 -0400
@@ -55,7 +55,7 @@
         join (compare (d1, d2), fn () => compare (r1, r2))
       | (TRecord xts1, TRecord xts2) =>
         let
-            val xts2 = sortFields xts1
+            val xts1 = sortFields xts1
             val xts2 = sortFields xts2
         in
             joinL compareFields (xts1, xts2)