diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-12-05 14:27:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-12-05 14:27:35 (GMT) |
| commit | ce2d0cb7086d505a6a8bab25315b986de0c0250f (patch) | |
| tree | d44346c2b3d010032608138d792f67b0d4f13c6d /generic/tclLoad.c | |
| parent | a59513000fb2307fa6951642beb7bed484cd06ca (diff) | |
| download | tcl-ce2d0cb7086d505a6a8bab25315b986de0c0250f.zip tcl-ce2d0cb7086d505a6a8bab25315b986de0c0250f.tar.gz tcl-ce2d0cb7086d505a6a8bab25315b986de0c0250f.tar.bz2 | |
Implement TIP#307.
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; } |