tclpathplan distance: rephrase an open coded 'hypot'

diff --git a/tclpkg/tclpathplan/tclpathplan.c b/tclpkg/tclpathplan/tclpathplan.c
index 3eec7279a756b766584982f910069db78c46d466..479392f503bb39039185e72de2803a126d7f08fc 100644 (file)
--- a/tclpkg/tclpathplan/tclpathplan.c
+++ b/tclpkg/tclpathplan/tclpathplan.c
@@ -283,7 +283,7 @@ static double distance(point p, point q)
 
     dx = p.x - q.x;
     dy = p.y - q.y;
-    return sqrt(dx * dx + dy * dy);
+    return hypot(dx, dy);
 }
 
 static point rotate(point c, point p, double alpha)