diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-11-02 09:37:20 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-11-02 09:37:20 -0400 |
| commit | 2440e2d4f87883aac96f75d5630b2a7fefe11b08 (patch) | |
| tree | bd94957a2e0aeab7d2166b00965365ed1850bc69 /src/elaborate.sml | |
| parent | 1d8e2d97441ed865db87013d751b18439786de29 (diff) | |
Remove debug print
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 4 |
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 |