Module Option.Smart

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

Smart.map f x does the same as map f x except that it tries to share some memory.