[r2002-10-26 01:50:52 by cvscast] Empty log message

Original author: cvscast
Date: 2002-10-26 01:50:52+00:00

types/patterns.ml

@@ -713,11 +713,11 @@ struct
       | d :: rem ->
 	  to_print := rem;
 	  Format.fprintf ppf "Dispatcher %i accepts [%a]@\n" 
-	    d.id Types.Print.print_descr d.t;
+	    d.id Types.Print.print_descr (Types.normalize d.t);
 	  let print_code code (t, arity, m) =
 	    Format.fprintf ppf "  Returns $%i(arity=%i) for [%a]" 
 	      code arity
-	      Types.Print.print_descr t;
+	      Types.Print.print_descr (Types.normalize t);
 (*
 	       List.iter
 	       (fun (i,b) ->