Mercurial > urweb

diff src/monoize.sml @ 110:3739af9e727a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Starting with closure links
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 11:43:57 -0400
parents 813e5a52063d
children 2d6116de9cca
line wrap: on
line diff
--- a/src/monoize.sml	Sun Jul 13 10:17:06 2008 -0400
+++ b/src/monoize.sml	Sun Jul 13 11:43:57 2008 -0400
@@ -192,6 +192,8 @@
           | L.EField (e, x, _) => (L'.EField (monoExp env e, monoName env x), loc)
           | L.EFold _ => poly ()
           | L.EWrite e => (L'.EWrite (monoExp env e), loc)
+
+          | L.EClosure _ => raise Fail "Monoize EClosure"
     end
 
 fun monoDecl env (all as (d, loc)) =