Tcl Source Code

Artifact 6915b52c249190be75c4e67a995207f014d2d63e:

Attachment "tcl-unload.patch" to ticket [2414803fff] added by andygoth 2008-12-11 03:47:57.

---

diff -ur tcl8.6a3/generic/tclLoad.c tcl8.6a3.new/generic/tclLoad.c
--- tcl8.6a3/generic/tclLoad.c	2008-10-04 07:54:14.000000000 -0500
+++ tcl8.6a3.new/generic/tclLoad.c	2008-12-10 14:43:06.000000000 -0600
@@ -647,11 +647,11 @@
     }
     if (pkgPtr == NULL) {
 	/*
-	 * The DLL pointed by the provided filename has never been loaded.
+	 * The DLL pointed by the provided filename is not loaded.
 	 */
 
 	Tcl_AppendResult(interp, "file \"", fullFileName,
-		"\" has never been loaded", NULL);
+		"\" is not loaded", NULL);
 	code = TCL_ERROR;
 	goto done;
     }
@@ -674,11 +674,11 @@
     }
     if (code != TCL_OK) {
 	/*
-	 * The package has not been loaded in this interpreter.
+	 * The package is not loaded in this interpreter.
 	 */
 
 	Tcl_AppendResult(interp, "file \"", fullFileName,
-		"\" has never been loaded in this interpreter", NULL);
+		"\" is not loaded in this interpreter", NULL);
 	code = TCL_ERROR;
 	goto done;
     }