diff options
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index e3c95bd..108ea72 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.56 2004/10/21 15:19:46 dgp Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.57 2004/11/13 00:19:07 dgp Exp $ */ #include "tclInt.h" @@ -269,7 +269,7 @@ Tcl_CatchObjCmd(dummy, interp, objc, objv) } } if (objc == 4) { - Tcl_Obj *options = TclGetReturnOptions(interp, result); + Tcl_Obj *options = Tcl_GetReturnOptions(interp, result); if (NULL == Tcl_ObjSetVar2(interp, optionVarNamePtr, NULL, options, 0)) { Tcl_DecrRefCount(options); @@ -577,7 +577,7 @@ Tcl_ErrorObjCmd(dummy, interp, objc, objv) } Tcl_SetObjResult(interp, objv[1]); - return TclSetReturnOptions(interp, options); + return Tcl_SetReturnOptions(interp, options); } /* |