Mercurial > urweb

diff src/termination.sml @ 825:7f871c03e3a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Destructing local let, to the point where demo compiles
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 12:07:05 -0400
parents 588b9d16b00a
children
line wrap: on
line diff
--- a/src/termination.sml	Thu May 28 11:45:45 2009 -0400
+++ b/src/termination.sml	Thu May 28 12:07:05 2009 -0400
@@ -306,7 +306,7 @@
                       | EUnif (ref (SOME e)) => exp parent (penv, calls) e
                       | EUnif (ref NONE) => (Rabble, calls)
 
-                      | ELet (eds, e) =>
+                      | ELet (eds, e, _) =>
                         let
                             fun extPenv ((ed, _), penv) =
                                 case ed of