Mercurial > urweb

diff src/monoize.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 c5335613f31e
children 07f6576aeb0a
line wrap: on
line diff
--- a/src/monoize.sml	Thu Oct 30 17:07:34 2008 -0400
+++ b/src/monoize.sml	Fri Oct 31 09:30:22 2008 -0400
@@ -1920,7 +1920,7 @@
             in
                 ((L'.EField (e, monoName env x), loc), fm)
             end
-          | L.EWith _ => poly ()
+          | L.EConcat _ => poly ()
           | L.ECut _ => poly ()
           | L.EFold _ => poly ()