Mercurial > urweb
changeset 99:5182f0c80d2e
Fix record type comparison
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 10 Jul 2008 09:24:43 -0400 |
| parents | dcc5dda1645c |
| children | f0f59e918cac |
| files | src/flat_util.sml |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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)