Make error messages match backend style.

diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index 3f5e32e..c5c0f71 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]))));
                                }