Update ex2_02.sml with functor

Still getting Segment.point vs. Point.point type error in Segment.make_segment