Module CAst.Smart

val map : ('a -> 'a) -> 'a t -> 'a t