Make error messages match backend style.

diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index 3f5e32e52ebf782f164c6a21b2d9b3fda8125118..c5c0f71d01abd254c31928550705646cac6afa7e 100644 (file)
--- a/src/pl/tcl/pltcl.c
+++ b/src/pl/tcl/pltcl.c
@@ -2,7 +2,7 @@
  * pltcl.c     - PostgreSQL support for Tcl as
  *               procedural language (PL)
  *
- *   $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.125 2009/01/07 13:44:37 tgl Exp $
+ *   $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.126 2009/01/14 20:01:52 petere Exp $
  *
  **********************************************************************/
 
@@ -1198,7 +1198,7 @@ compile_pltcl_function(Oid fn_oid, Oid tgreloid)
                    free(prodesc);
                    ereport(ERROR,
                            (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
-                            errmsg("pltcl functions cannot return type %s",
+                            errmsg("PL/Tcl functions cannot return type %s",
                                    format_type_be(procStruct->prorettype))));
                }
            }
@@ -1210,7 +1210,7 @@ compile_pltcl_function(Oid fn_oid, Oid tgreloid)
                free(prodesc);
                ereport(ERROR,
                        (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
-                        errmsg("pltcl functions cannot return tuples yet")));
+                        errmsg("PL/Tcl functions cannot return composite types")));
            }
 
            perm_fmgr_info(typeStruct->typinput, &(prodesc->result_in_func));
@@ -1250,7 +1250,7 @@ compile_pltcl_function(Oid fn_oid, Oid tgreloid)
                    free(prodesc);
                    ereport(ERROR,
                            (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
-                            errmsg("pltcl functions cannot take type %s",
+                            errmsg("PL/Tcl functions cannot accept type %s",
                        format_type_be(procStruct->proargtypes.values[i]))));
                }