Mercurial > urweb

diff src/mono_print.sml @ 1282:a9a500d22ebc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Roll back WHERE checking
author Adam Chlipala <adam@chlipala.net>
date Tue, 27 Jul 2010 14:04:09 -0400
parents 60e19545841b
children acabf3935060
line wrap: on
line diff
--- a/src/mono_print.sml	Tue Jul 27 12:12:08 2010 -0400
+++ b/src/mono_print.sml	Tue Jul 27 14:04:09 2010 -0400
@@ -429,13 +429,6 @@
       | PolSequence e => box [string "sendOwnIds",
                               space,
                               p_exp env e]
-      | PolEqual {table = tab, field = nm, known} => box [string "equal",
-                                                          string (if known then "Known" else "Any"),
-                                                          string "[",
-                                                          string nm,
-                                                          string "]",
-                                                          space,
-                                                          p_exp env tab]
 
 fun p_decl env (dAll as (d, _) : decl) =
     case d of