diff options
Diffstat (limited to 'generic/tclHistory.c')
| -rw-r--r-- | generic/tclHistory.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclHistory.c b/generic/tclHistory.c index a23e102..48739ad 100644 --- a/generic/tclHistory.c +++ b/generic/tclHistory.c @@ -11,6 +11,8 @@ * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclHistory.c,v 1.13 2008/10/26 18:34:04 dkf Exp $ */ #include "tclInt.h" @@ -37,7 +39,7 @@ int Tcl_RecordAndEval( Tcl_Interp *interp, /* Token for interpreter in which command will * be executed. */ - CONST char *cmd, /* Command to record. */ + const char *cmd, /* Command to record. */ int flags) /* Additional flags. TCL_NO_EVAL means only * record: don't execute command. * TCL_EVAL_GLOBAL means use Tcl_GlobalEval @@ -121,8 +123,8 @@ Tcl_RecordAndEvalObj( result = Tcl_GetCommandInfo(interp, "history", &info); - if (result && (info.objProc == TclObjInterpProc)) { - Proc *procPtr = (Proc *)(info.objClientData); + if (result && (info.deleteProc == TclProcDeleteProc)) { + Proc *procPtr = (Proc *) info.objClientData; call = (procPtr->cmdPtr->compileProc != TclCompileNoOp); } |