Mercurial > urweb

diff src/termination.sml @ 448:85819353a84f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First Unnest tests working
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 15:58:55 -0400
parents dfc8c991abd0
children 787d4931fb07
line wrap: on
line diff
--- a/src/termination.sml	Sat Nov 01 11:17:29 2008 -0400
+++ b/src/termination.sml	Sat Nov 01 15:58:55 2008 -0400
@@ -292,6 +292,8 @@
                       | EError => (Rabble, calls)
                       | EUnif (ref (SOME e)) => exp parent (penv, calls) e
                       | EUnif (ref NONE) => (Rabble, calls)
+
+                      | ELet (_, e) => exp parent (penv, calls) e
                 end
 
             fun doVali (i, (_, f, _, e), calls) =