tclpkg insert_poly: remove shadowing of 'polyid'

diff --git a/tclpkg/tclpathplan/tclpathplan.c b/tclpkg/tclpathplan/tclpathplan.c
index 946f4c5c77d957560979a5000e09881c9814aec3..34a3aa5229b3bf9c26a395601808682079aceac5 100644 (file)
--- a/tclpkg/tclpathplan/tclpathplan.c
+++ b/tclpkg/tclpathplan/tclpathplan.c
@@ -326,13 +326,13 @@ static int remove_poly(vgpane_t * vgp, int id)
 }
 
 static int
-insert_poly(Tcl_Interp * interp, vgpane_t * vgp, int polyid, char *vargv[],
+insert_poly(Tcl_Interp * interp, vgpane_t * vgp, int id, char *vargv[],
            int vargc)
 {
     poly *np;
     int i, result;
 
-    np = allocpoly(vgp, polyid, vargc);
+    np = allocpoly(vgp, id, vargc);
     for (i = 0; i < vargc; i += 2) {
        result =
            scanpoint(interp, &vargv[i],