Corrected a missing "#ifdef TCL_NETGEN" around a Tcl subroutine

call, in objlist.c.
This commit is contained in:
Tim Edwards 2019-07-24 11:13:25 -04:00
parent 9a2902abbb
commit 4d138b64ca
1 changed files with 4 additions and 0 deletions

View File

@ -598,7 +598,11 @@ static int PrintCellHashTableElement(struct hashlist *p)
if (Debug == 1) Printf("Cell: %s (instanced %d times); Primitive\n",
ptr->name, ptr->number);
else if (Debug == 3) { /* list */
#ifdef TCL_NETGEN
Tcl_AppendElement(netgeninterp, ptr->name);
#else
Printf("%s ", ptr->name);
#endif
}
}
else if ((Debug == 2) || (Debug == 3)) { /* list only */