Mercurial > urweb

diff src/termination.sml @ 445:dfc8c991abd0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace 'with' with '++'
author Adam Chlipala <adamc@hcoop.net>
date Fri, 31 Oct 2008 09:30:22 -0400
parents c5a3d223f157
children 85819353a84f
line wrap: on
line diff
--- a/src/termination.sml	Thu Oct 30 17:07:34 2008 -0400
+++ b/src/termination.sml	Fri Oct 31 09:30:22 2008 -0400
@@ -265,7 +265,7 @@
                         in
                             (Rabble, calls)
                         end
-                      | EWith (e1, _, e2, _) =>
+                      | EConcat (e1, _, e2, _) =>
                         let
                             val (_, calls) = exp parent (penv, calls) e1
                             val (_, calls) = exp parent (penv, calls) e2