Mercurial > urweb

diff src/elaborate.sml @ 849:e571fb150a9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a bug in type class enrichment from substructures
author Adam Chlipala <adamc@hcoop.net>
date Tue, 16 Jun 2009 14:38:01 -0400
parents e8594cfa3236
children d1d0b18afd3d
line wrap: on
line diff
--- a/src/elaborate.sml	Sat Jun 13 15:42:24 2009 -0400
+++ b/src/elaborate.sml	Tue Jun 16 14:38:01 2009 -0400
@@ -696,7 +696,6 @@
 
  and unifySummaries env (loc, k, s1 : record_summary, s2 : record_summary) =
      let
-         val loc = #2 k
          (*val () = eprefaces "Summaries" [("loc", PD.string (ErrorMsg.spanToString loc)),
                                            ("#1", p_summary env s1),
                                            ("#2", p_summary env s2)]*)