print_ident: use the function from Idents

This commit is contained in:
Adrien Guatto 2012-03-02 17:11:40 +01:00
parent 557d00f501
commit 3b0ebf2dbf
2 changed files with 3 additions and 1 deletions

View file

@ -40,7 +40,7 @@ let print_full_qualname ff qn = _print_qualname ~full:true ff qn
let print_shortname ff {name = n} = print_name ff n
let print_ident ff id = Format.fprintf ff "%s" (name id)
let print_ident = Idents.print_ident
let rec print_ck ff = function
| Cbase -> fprintf ff "."

View file

@ -57,3 +57,5 @@ sig
include (Set.S with type elt = ident)
val print_t : Format.formatter -> t -> unit
end
val print_ident : Format.formatter -> ident -> unit