diff options
Diffstat (limited to 'src/pl/tcl/pltcl.c')
| -rw-r--r-- | src/pl/tcl/pltcl.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index d9382aff83b..d30d3cd7c20 100644 --- a/src/pl/tcl/pltcl.c +++ b/src/pl/tcl/pltcl.c @@ -31,7 +31,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.83 2004/04/01 21:28:46 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.84 2004/05/26 04:41:50 neilc Exp $ * **********************************************************************/ @@ -1847,7 +1847,7 @@ pltcl_SPI_prepare(ClientData cdata, Tcl_Interp *interp, { char *argcopy; List *names = NIL; - List *lp; + ListCell *l; TypeName *typename; /************************************************************ @@ -1858,8 +1858,8 @@ pltcl_SPI_prepare(ClientData cdata, Tcl_Interp *interp, argcopy = pstrdup(args[i]); SplitIdentifierString(argcopy, '.', &names); typename = makeNode(TypeName); - foreach (lp, names) - typename->names = lappend(typename->names, makeString(lfirst(lp))); + foreach (l, names) + typename->names = lappend(typename->names, makeString(lfirst(l))); typeTup = typenameType(typename); qdesc->argtypes[i] = HeapTupleGetOid(typeTup); |