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