Mercurial > urweb
diff src/elaborate.sml @ 848:e8594cfa3236
Fix MonoReduce unsoundness with lets and fns
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 13 Jun 2009 15:42:24 -0400 |
| parents | 74a1e3bdf430 |
| children | e571fb150a9f |
line wrap: on
line diff
--- a/src/elaborate.sml Sat Jun 13 14:29:36 2009 -0400 +++ b/src/elaborate.sml Sat Jun 13 15:42:24 2009 -0400 @@ -697,10 +697,9 @@ and unifySummaries env (loc, k, s1 : record_summary, s2 : record_summary) = let val loc = #2 k - val pdescs = [("#1", p_summary env s1), - ("#2", p_summary env s2)] - (*val () = eprefaces "Summaries" [("#1", p_summary env s1), - ("#2", p_summary env s2)]*) + (*val () = eprefaces "Summaries" [("loc", PD.string (ErrorMsg.spanToString loc)), + ("#1", p_summary env s1), + ("#2", p_summary env s2)]*) fun eatMatching p (ls1, ls2) = let @@ -1595,7 +1594,7 @@ fun elabExp (env, denv) (eAll as (e, loc)) = let - (*val () = eprefaces "elabExp" [("eAll", SourcePrint.p_exp eAll)];*) + (*val () = eprefaces "elabExp" [("eAll", SourcePrint.p_exp eAll)]*) (*val befor = Time.now ()*) val r = case e of