remove debugs

4 files changed, 0 insertions, 17 deletions

diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 86f1cda..e7e929f 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -865,13 +865,11 @@ EncodingDirsObjCmd(
 	return TCL_ERROR;
     }
     if (objc == 1) {
-fprintf(stdout, "ED GET CALLER\n"); fflush(stdout);
 	Tcl_SetObjResult(interp, Tcl_GetEncodingSearchPath());
 	return TCL_OK;
     }
 
     dirListObj = objv[1];
-fprintf(stdout, "ED SET CALLER\n"); fflush(stdout);
     if (Tcl_SetEncodingSearchPath(dirListObj) == TCL_ERROR) {
 	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
 		"expected directory list but got \"%s\"",
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index ff73904..1d87622 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -439,7 +439,6 @@ FillEncodingFileMap(void)
     Tcl_Size i, numDirs = 0;
     Tcl_Obj *map, *searchPath;
 
-fprintf(stdout, "FEFM CALLER\n"); fflush(stdout);
     searchPath = Tcl_GetEncodingSearchPath();
     Tcl_IncrRefCount(searchPath);
     TclListObjLengthM(NULL, searchPath, &numDirs);
@@ -723,7 +722,6 @@ Tcl_GetDefaultEncodingDir(void)
 {
     int numDirs;
     Tcl_Obj *first, *searchPath = Tcl_GetEncodingSearchPath();
-fprintf(stdout, "GDE CALLER\n"); fflush(stdout);
 
     TclListObjLengthM(NULL, searchPath, &numDirs);
     if (numDirs == 0) {
@@ -760,7 +758,6 @@ Tcl_SetDefaultEncodingDir(
 
     searchPath = Tcl_DuplicateObj(searchPath);
     Tcl_ListObjReplace(NULL, searchPath, 0, 0, 1, &directory);
-fprintf(stdout, "SDE CALLER\n"); fflush(stdout);
     Tcl_SetEncodingSearchPath(searchPath);
 }
 #endif
@@ -1775,7 +1772,6 @@ OpenEncodingFileChannel(
     Tcl_Obj **dir, *path, *directory = NULL;
     Tcl_Channel chan = NULL;
     Tcl_Size i, numDirs;
-fprintf(stdout, "OEFC CALLER\n"); fflush(stdout);
 
     TclListObjGetElementsM(NULL, searchPath, &numDirs, &dir);
     Tcl_IncrRefCount(nameObj);
@@ -4317,8 +4313,6 @@ InitializeEncodingSearchPath(
     Tcl_Size i, numDirs, numBytes;
     Tcl_Obj *libPathObj, *encodingObj, *searchPathObj;
 
-fprintf(stdout, "IESP\n"); fflush(stdout);
-
     TclNewLiteralStringObj(encodingObj, "encoding");
     TclNewObj(searchPathObj);
     Tcl_IncrRefCount(encodingObj);
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 0325091..b023615 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -393,25 +393,19 @@ Tcl_Init(
 "    rename tclInit {}\n"
 "    if {[info exists tcl_library]} {\n"
 "	set scripts {{set tcl_library}}\n"
-"puts A-SCRIPTS:$scripts\n"
 "    } else {\n"
 "	set scripts {}\n"
 "	if {[info exists env(TCL_LIBRARY)] && ($env(TCL_LIBRARY) ne {})} {\n"
 "	    lappend scripts {set env(TCL_LIBRARY)}\n"
-"puts B-SCRIPTS:$scripts\n"
 "	    lappend scripts {\n"
 "if {[regexp ^tcl(.*)$ [file tail $env(TCL_LIBRARY)] -> tail] == 0} continue\n"
 "if {$tail eq [info tclversion]} continue\n"
 "file join [file dirname $env(TCL_LIBRARY)] tcl[info tclversion]}\n"
-"puts C-SCRIPTS:$scripts\n"
 "	}\n"
-"puts D-SCRIPTS:$scripts\n"
 "	if {[info exists tclDefaultLibrary]} {\n"
 "	    lappend scripts {set tclDefaultLibrary}\n"
-"puts E-SCRIPTS:$scripts\n"
 "	} else {\n"
 "	    lappend scripts {::tcl::pkgconfig get scriptdir,runtime}\n"
-"puts F-SCRIPTS:$scripts\n"
 "	}\n"
 "	lappend scripts {\n"
 "set parentDir [file dirname [file dirname [info nameofexecutable]]]\n"
@@ -430,14 +424,12 @@ Tcl_Init(
 "		lappend scripts [list lindex \\$tcl_libPath $i]\n"
 "	    }\n"
 "	}\n"
-"puts G-SCRIPTS:$scripts\n"
 "    }\n"
 "    set dirs {}\n"
 "    set errors {}\n"
 "    foreach script $scripts {\n"
 "	lappend dirs [eval $script]\n"
 "	set tcl_library [lindex $dirs end]\n"
-"puts TRIAL:$tcl_library\n"
 "	set tclfile [file join $tcl_library init.tcl]\n"
 "	if {[file exists $tclfile]} {\n"
 "	    if {[catch {uplevel #0 [list source $tclfile]} msg opts]} {\n"
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index 5400f92..adabcda 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -4272,7 +4272,6 @@ ScriptLibrarySetup(
 	    Tcl_FSJoinToPath(libDirObj, 1, &subDirObj));
     Tcl_DecrRefCount(subDirObj);
     Tcl_IncrRefCount(searchPathObj);
-fprintf(stdout, "AH CALLER\n"); fflush(stdout);
     Tcl_SetEncodingSearchPath(searchPathObj);
     Tcl_DecrRefCount(searchPathObj);
     return libDirObj;