Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1313:0bf73c3e4563 1314:6c2e565adca6
110 in 110 in
111 ((L'.TFun (t1, t2), loc), sm) 111 ((L'.TFun (t1, t2), loc), sm)
112 end 112 end
113 | L.TRecord xts => 113 | L.TRecord xts =>
114 let 114 let
115 val xts = ListMergeSort.sort (fn ((x, _), (y, _)) => String.compare (x, y) = GREATER) xts 115 val xts = MonoUtil.Typ.sortFields xts
116 val old_xts = xts 116 val old_xts = xts
117 val (xts, sm) = ListUtil.foldlMap (fn ((x, t), sm) => 117 val (xts, sm) = ListUtil.foldlMap (fn ((x, t), sm) =>
118 let 118 let
119 val (t, sm) = cify dtmap (t, sm) 119 val (t, sm) = cify dtmap (t, sm)
120 in 120 in