print_ident: use the function from Idents
This commit is contained in:
parent
557d00f501
commit
3b0ebf2dbf
|
@ -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_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
|
let rec print_ck ff = function
|
||||||
| Cbase -> fprintf ff "."
|
| Cbase -> fprintf ff "."
|
||||||
|
|
|
@ -57,3 +57,5 @@ sig
|
||||||
include (Set.S with type elt = ident)
|
include (Set.S with type elt = ident)
|
||||||
val print_t : Format.formatter -> t -> unit
|
val print_t : Format.formatter -> t -> unit
|
||||||
end
|
end
|
||||||
|
|
||||||
|
val print_ident : Format.formatter -> ident -> unit
|
||||||
|
|
Loading…
Reference in a new issue