tclpkg remove_poly: remove shadowing of 'polyid'

diff --git a/tclpkg/tclpathplan/tclpathplan.c b/tclpkg/tclpathplan/tclpathplan.c
index 448a4eec72666c0b834d33880ebbe12917e6bed3..946f4c5c77d957560979a5000e09881c9814aec3 100644 (file)
--- a/tclpkg/tclpathplan/tclpathplan.c
+++ b/tclpkg/tclpathplan/tclpathplan.c
@@ -307,12 +307,12 @@ static point scale(point c, point p, double gain)
     return q;
 }
 
-static int remove_poly(vgpane_t * vgp, int polyid)
+static int remove_poly(vgpane_t * vgp, int id)
 {
     int i, j;
 
     for (i = 0; i < vgp->Npoly; i++) {
-       if (vgp->poly[i].id == polyid) {
+       if (vgp->poly[i].id == id) {
            free(vgp->poly[i].boundary.ps);
            for (j = i++; i < vgp->Npoly; i++, j++) {
                vgp->poly[j] = vgp->poly[i];