diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
| commit | 67ed059e3b57399c7a8231f3180f35357b7aa1c9 (patch) | |
| tree | 7853299e0060cd6c6eea28a26aa4ee33b1b93c21 /src/mono_print.sml | |
| parent | a5d7c214f42af261d900af8a7ac042b807c2abe2 (diff) | |
Roll back WHERE checking
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index 74467e08..25a8e9d8 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -429,13 +429,6 @@ fun p_policy env pol = | 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 |