Convert shape-distance-segment to shape-distance-segment* using {:keys [...]} destructuring and update its internal call site in shape-distance to use [:> ...].