Diff

Differences From Artifact [5ee0d76582]:

To Artifact [d3bbfc6849]:


21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
21
22
23
24
25
26
27



28
29
30
31
32
33
34







-
-
-







{
     if (objc == 1) {
	Tcl_SetObjResult(interp, TclGetLibraryPath());
     } else {
	Tcl_Obj *path=Tcl_DuplicateObj(objv[1]);
	TclSetLibraryPath(Tcl_NewListObj(1,&path));
	TclpSetInitialEncodings();
	Tcl_FindExecutable(Tcl_GetVar(interp, "argv0", TCL_GLOBAL_ONLY));
  	/* Hack to get around Tcl bug 1224888 */
 	SetExecName(interp);
     }
     return TCL_OK;
}

/*
 * Public Entrypoint
 */