1 files changed, 0 insertions, 26 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c
index a59a704..c75a1f1 100644
--- a/generic/tclResult.c
+++ b/generic/tclResult.c
@@ -210,32 +210,6 @@ Tcl_DiscardInterpState(
 /*
  *----------------------------------------------------------------------
  *
- * Tcl_GetStringResult --
- *
- *	Returns an interpreter's result value as a string.
- *
- * Results:
- *	The interpreter's result as a string.
- *
- * Side effects:
- *	If the string result is empty, the object result is moved to the
- *	string result, then the object result is reset.
- *
- *----------------------------------------------------------------------
- */
-
-const char *
-Tcl_GetStringResult(
-    register Tcl_Interp *interp)/* Interpreter whose result to return. */
-{
-    Interp *iPtr = (Interp *) interp;
-
-    return TclGetString(iPtr->objResultPtr);
-}
-
-/*
- *----------------------------------------------------------------------
- *
  * Tcl_SetObjResult --
  *
  *	Arrange for objPtr to be an interpreter's result value.