Update intersect-segments2.lisp