diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-01-19 23:15:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-01-19 23:15:07 (GMT) |
| commit | 1077ec6723f685a6fecb9ed00bdcbbabdcb0e1b4 (patch) | |
| tree | 0263ef643a8c8f6da633b1b0951e465627bf87e0 /generic/tclBasic.c | |
| parent | ef78ca64ce6ba6a8786f083318fe536f2bd52925 (diff) | |
| download | tcl-1077ec6723f685a6fecb9ed00bdcbbabdcb0e1b4.zip tcl-1077ec6723f685a6fecb9ed00bdcbbabdcb0e1b4.tar.gz tcl-1077ec6723f685a6fecb9ed00bdcbbabdcb0e1b4.tar.bz2 | |
TIP#235 implementation (rename functions, add to stubs table, document)
Ensembles now have a C API. :^)
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 45a3c4b..22ce3c6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.137 2004/12/15 20:44:34 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.138 2005/01/19 23:15:14 dkf Exp $ */ #include "tclInt.h" @@ -3047,7 +3047,7 @@ TclEvalObjvInternal(interp, objc, objv, command, length, flags) } if (!(flags & TCL_EVAL_INVOKE) && (iPtr->ensembleRewrite.sourceObjs != NULL) && - !TclIsEnsemble(cmdPtr)) { + !Tcl_IsEnsemble((Tcl_Command) cmdPtr)) { iPtr->ensembleRewrite.sourceObjs = NULL; } code = (*cmdPtr->objProc)(cmdPtr->objClientData, interp, objc, objv); |