diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-06 11:02:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-06 11:02:58 (GMT) |
| commit | 644a7974114cc665bed9522e48d1219e5572bbd2 (patch) | |
| tree | 3a3b39e78d06096ed740dcb04508ccc8823e8d07 /generic/tclTest.c | |
| parent | 684b9f01af31b898f57e7f05934043893186afc2 (diff) | |
| parent | c6799de46b6357be28e9de7cf3bcb0e78b1d1735 (diff) | |
| download | tcl-644a7974114cc665bed9522e48d1219e5572bbd2.zip tcl-644a7974114cc665bed9522e48d1219e5572bbd2.tar.gz tcl-644a7974114cc665bed9522e48d1219e5572bbd2.tar.bz2 | |
Merge tip-597
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 3835698..9e4ec57 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4220,7 +4220,7 @@ TestsetplatformCmd( * TeststaticpkgCmd -- * * This procedure implements the "teststaticpkg" command. - * It is used to test the procedure Tcl_StaticPackage. + * It is used to test the procedure Tcl_StaticLibrary. * * Results: * A standard Tcl result. @@ -4252,7 +4252,7 @@ TeststaticpkgCmd( if (Tcl_GetInt(interp, argv[3], &loaded) != TCL_OK) { return TCL_ERROR; } - Tcl_StaticPackage((loaded) ? interp : NULL, argv[1], + Tcl_StaticLibrary((loaded) ? interp : NULL, argv[1], StaticInitProc, (safe) ? StaticInitProc : NULL); return TCL_OK; } |