diff options
| author | dkf <dkf@noemail.net> | 2008-12-05 14:27:35 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2008-12-05 14:27:35 (GMT) |
| commit | 2f6304d6bad03cfc4ae158216bbd1e5d7b081a68 (patch) | |
| tree | d44346c2b3d010032608138d792f67b0d4f13c6d /generic/tclLoad.c | |
| parent | 4602437fe747f2dd758f4cacc22f4fb7dfa404ff (diff) | |
| download | tcl-2f6304d6bad03cfc4ae158216bbd1e5d7b081a68.zip tcl-2f6304d6bad03cfc4ae158216bbd1e5d7b081a68.tar.gz tcl-2f6304d6bad03cfc4ae158216bbd1e5d7b081a68.tar.bz2 | |
Implement TIP#307.
FossilOrigin-Name: 78cbddf83845a359715485e954e72b95a7bdfdc8
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 c2a677b..0f64137 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoad.c,v 1.21 2008/11/13 22:34:33 nijtmans Exp $ + * RCS: @(#) $Id: tclLoad.c,v 1.22 2008/12/05 14:27:36 dkf Exp $ */ #include "tclInt.h" @@ -460,7 +460,7 @@ Tcl_LoadObjCmd( ipPtr->nextPtr = ipFirstPtr; Tcl_SetAssocData(target, "tclLoad", LoadCleanupProc, ipPtr); } else { - TclTransferResult(target, code, interp); + Tcl_TransferResult(target, code, interp); } done: @@ -736,7 +736,7 @@ Tcl_UnloadObjCmd( } code = unloadProc(target, code); if (code != TCL_OK) { - TclTransferResult(target, code, interp); + Tcl_TransferResult(target, code, interp); goto done; } |