Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
444:f45f23ae20ed 445:dfc8c991abd0
263 let 263 let
264 val (_, calls) = exp parent (penv, calls) e 264 val (_, calls) = exp parent (penv, calls) e
265 in 265 in
266 (Rabble, calls) 266 (Rabble, calls)
267 end 267 end
268 | EWith (e1, _, e2, _) => 268 | EConcat (e1, _, e2, _) =>
269 let 269 let
270 val (_, calls) = exp parent (penv, calls) e1 270 val (_, calls) = exp parent (penv, calls) e1
271 val (_, calls) = exp parent (penv, calls) e2 271 val (_, calls) = exp parent (penv, calls) e2
272 in 272 in
273 (Rabble, calls) 273 (Rabble, calls)