[r2005-06-02 20:43:31 by afrisch] Empty log message

Original author: afrisch
Date: 2005-06-02 20:43:31+00:00

typing/typepat.ml

@@ -705,6 +705,7 @@ open Ident
 
 
   let get_ct c =
+    let c = repr c in
     match c.desc with
       | ITimes (k,content) ->
 	  (match (repr k).desc  with