# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1215696283 14400
# Node ID 5182f0c80d2e1147b228b96901866161727a2316
# Parent  dcc5dda1645c970b836c77a49f5e98ae8b4a7582
Fix record type comparison

diff -r dcc5dda1645c -r 5182f0c80d2e src/flat_util.sml
--- 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)