Mercurial > urweb

diff src/cjrize.sml @ 1314:6c2e565adca6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes for nasty bugs in Reduce and Especialize
author Adam Chlipala <adam@chlipala.net>
date Tue, 19 Oct 2010 17:54:49 -0400
parents b4480a56cab7
children 8a169fc0838b
line wrap: on
line diff
--- a/src/cjrize.sml	Tue Oct 19 15:26:12 2010 -0400
+++ b/src/cjrize.sml	Tue Oct 19 17:54:49 2010 -0400
@@ -112,7 +112,7 @@
                 end
               | L.TRecord xts =>
                 let
-                    val xts = ListMergeSort.sort (fn ((x, _), (y, _)) => String.compare (x, y) = GREATER) xts
+                    val xts = MonoUtil.Typ.sortFields xts
                     val old_xts = xts
                     val (xts, sm) = ListUtil.foldlMap (fn ((x, t), sm) =>
                                                           let