diff src/monoize.sml @ 247:5c50b17f5e4a

Corify tables
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 Aug 2008 09:00:28 -0400
parents 766b5475477f
children 326fb4686f60
line wrap: on
line diff
--- a/src/monoize.sml	Sun Aug 31 08:46:22 2008 -0400
+++ b/src/monoize.sml	Sun Aug 31 09:00:28 2008 -0400
@@ -809,6 +809,7 @@
             in
                 SOME (env, fm, (L'.DExport (ek, s, n, ts), loc))
             end
+          | L.DTable _ => raise Fail "Monoize DTable"
     end
 
 fun monoize env ds =