Mercurial > urweb

diff src/mono_util.sml @ 1281:60e19545841b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
equalAny policies
author Adam Chlipala <adam@chlipala.net>
date Tue, 27 Jul 2010 12:12:08 -0400
parents 3d06e0f7a6f3
children a9a500d22ebc
line wrap: on
line diff
--- a/src/mono_util.sml	Tue Jul 27 11:42:30 2010 -0400
+++ b/src/mono_util.sml	Tue Jul 27 12:12:08 2010 -0400
@@ -556,9 +556,9 @@
               | PolSequence e =>
                 S.map2 (mfe ctx e,
                         PolSequence)
-              | PolEqualKnown {table = tab, field = nm} =>
+              | PolEqual {table = tab, field = nm, known = b} =>
                 S.map2 (mfe ctx tab,
-                        fn tab => PolEqualKnown {table = tab, field = nm})
+                        fn tab => PolEqual {table = tab, field = nm, known = b})
 
         and mfvi ctx (x, n, t, e, s) =
             S.bind2 (mft t,