Mercurial > urweb
diff src/mono_util.sml @ 1314:6c2e565adca6
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 | 02fc16faecf3 |
line wrap: on
line diff
--- a/src/mono_util.sml Tue Oct 19 15:26:12 2010 -0400 +++ b/src/mono_util.sml Tue Oct 19 17:54:49 2010 -0400 @@ -80,7 +80,7 @@ join (String.compare (x1, x2), fn () => compare (t1, t2)) -and sortFields xts = ListMergeSort.sort (fn (x, y) => compareFields (x, y) = GREATER) xts +and sortFields xts = ListMergeSort.sort (fn ((x, _), (y, _)) => String.compare (x, y) = GREATER) xts fun mapfold fc = let