Mercurial > urweb

diff src/monoize.sml @ 87:275aaeb73f1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Push KUnit and CUnit through the phases
author Adam Chlipala <adamc@hcoop.net>
date Tue, 01 Jul 2008 13:23:46 -0400
parents 8b611ecc5f2d
children 40d146f467c5
line wrap: on
line diff
--- a/src/monoize.sml	Tue Jul 01 13:19:14 2008 -0400
+++ b/src/monoize.sml	Tue Jul 01 13:23:46 2008 -0400
@@ -72,6 +72,7 @@
           | L.CRecord _ => poly ()
           | L.CConcat _ => poly ()
           | L.CFold _ => poly ()
+          | L.CUnit => poly ()
     end
 
 val dummyExp = (L'.EPrim (Prim.Int 0), E.dummySpan)