diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-31 09:23:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-31 09:23:59 (GMT) |
| commit | 30fd8c842c97d0977b8ef7a4f4ee8528d260f6f2 (patch) | |
| tree | 162ffad549156a8b60835cf468b7a52159e5aa1a /generic/tclLoad.c | |
| parent | 213447740b2103263aec6b22da904e038cb915e9 (diff) | |
| parent | 749efa7f8436be1e60c3424b86fff5e76a01f8ec (diff) | |
| download | tcl-30fd8c842c97d0977b8ef7a4f4ee8528d260f6f2.zip tcl-30fd8c842c97d0977b8ef7a4f4ee8528d260f6f2.tar.gz tcl-30fd8c842c97d0977b8ef7a4f4ee8528d260f6f2.tar.bz2 | |
Implement TIP #581: Master/Slave
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index dfa657e..062f007 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -198,7 +198,7 @@ Tcl_LoadObjCmd( if (objc == 4) { const char *slaveIntName = Tcl_GetString(objv[3]); - target = Tcl_GetSlave(interp, slaveIntName); + target = Tcl_GetChild(interp, slaveIntName); if (target == NULL) { code = TCL_ERROR; goto done; @@ -621,7 +621,7 @@ Tcl_UnloadObjCmd( if (objc - i == 3) { const char *slaveIntName = Tcl_GetString(objv[i + 2]); - target = Tcl_GetSlave(interp, slaveIntName); + target = Tcl_GetChild(interp, slaveIntName); if (target == NULL) { return TCL_ERROR; } @@ -1068,7 +1068,7 @@ TclGetLoadedPackages( * interpreter. */ - target = Tcl_GetSlave(interp, targetName); + target = Tcl_GetChild(interp, targetName); if (target == NULL) { return TCL_ERROR; } |