Commit 7598af7d authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-10-26 01:50:52+00:00
parent 3c4ae863
......@@ -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) ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment