Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
86:7f9bcc8bfa1e 87:275aaeb73f1f
70 | L.CName _ => poly () 70 | L.CName _ => poly ()
71 71
72 | L.CRecord _ => poly () 72 | L.CRecord _ => poly ()
73 | L.CConcat _ => poly () 73 | L.CConcat _ => poly ()
74 | L.CFold _ => poly () 74 | L.CFold _ => poly ()
75 | L.CUnit => poly ()
75 end 76 end
76 77
77 val dummyExp = (L'.EPrim (Prim.Int 0), E.dummySpan) 78 val dummyExp = (L'.EPrim (Prim.Int 0), E.dummySpan)
78 79
79 fun monoExp env (all as (e, loc)) = 80 fun monoExp env (all as (e, loc)) =