[r2005-06-02 20:39:11 by afrisch] Empty log message

Original author: afrisch
Date: 2005-06-02 20:39:11+00:00

typing/typepat.ml

@@ -706,5 +706,8 @@ open Ident
 
   let get_ct c =
     match c.desc with
-      | ITimes ({ desc = IType (t,_) },content) -> (t,content)
+      | ITimes (k,content) ->
+	  (match (repr k).desc  with
+	     | IType (t,_) -> (t,content)
+	     | _ -> assert false)
       | _ -> assert false