summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-11-02 09:37:20 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-11-02 09:37:20 -0400
commit2440e2d4f87883aac96f75d5630b2a7fefe11b08 (patch)
treebd94957a2e0aeab7d2166b00965365ed1850bc69 /src
parent1d8e2d97441ed865db87013d751b18439786de29 (diff)
Remove debug print
Diffstat (limited to 'src')
-rw-r--r--src/elaborate.sml4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml
index 93c15ed2..15c253e7 100644
--- a/src/elaborate.sml
+++ b/src/elaborate.sml
@@ -3512,9 +3512,7 @@ and wildifyStr env (str, sgn) =
case (decompileCon env' c1, decompileCon env' c2) of
(SOME c1, SOME c2) =>
SOME (L.DConstraint (c1, c2), loc)
- | _ => (Print.prefaces "BAD" [("c1", p_con env' c1),
- ("c2", p_con env' c2)];
- NONE)) (nconstraints nd)
+ | _ => NONE) (nconstraints nd)
val ds' =
case SS.listItems (nvals nd) of