print_ident: use the function from Idents
This commit is contained in:
parent
557d00f501
commit
3b0ebf2dbf
2 changed files with 3 additions and 1 deletions
|
@ -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 "."
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue