1 files changed, 0 insertions, 16 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index ab08353..8773cb6 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -410,22 +410,6 @@ Tcl_GetCwd(
     return Tcl_DStringValue(cwdPtr);
 }
 
-/* Obsolete */
-int
-Tcl_EvalFile(
-    Tcl_Interp *interp,		/* Interpreter in which to process file. */
-    const char *fileName)	/* Name of file to process. Tilde-substitution
-				 * will be performed on this name. */
-{
-    int ret;
-    Tcl_Obj *pathPtr = Tcl_NewStringObj(fileName,-1);
-
-    Tcl_IncrRefCount(pathPtr);
-    ret = Tcl_FSEvalFile(interp, pathPtr);
-    Tcl_DecrRefCount(pathPtr);
-    return ret;
-}
-
 /*
  * Now move on to the basic filesystem implementation.
  */