Mercurial > urweb

diff src/monoize.sml @ 626:230654093b51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
demo/hello compiles with kind polymorphism
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Feb 2009 17:17:01 -0500
parents 588b9d16b00a
children aa2290c32ce2
line wrap: on
line diff
--- a/src/monoize.sml	Sun Feb 22 16:33:55 2009 -0500
+++ b/src/monoize.sml	Sun Feb 22 17:17:01 2009 -0500
@@ -211,6 +211,10 @@
 
                   | L.CTuple _ => poly ()
                   | L.CProj _ => poly ()
+
+                  | L.CKAbs _ => poly ()
+                  | L.CKApp _ => poly ()
+                  | L.TKFun _ => poly ()
             end
     in
         mt env IM.empty
@@ -2265,6 +2269,9 @@
             in
                 ((L'.EServerCall (call, ek, t), loc), fm)
             end
+
+          | L.EKAbs _ => poly ()
+          | L.EKApp _ => poly ()
     end
 
 fun monoDecl (env, fm) (all as (d, loc)) =