let
map_sig_item f =
object
inherit
map
as
super
method
sig_item =
fun
x
->
f (super
#
sig_item x)
end