diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2005-01-19 23:15:07 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2005-01-19 23:15:07 (GMT) |
| commit | 005d6efec8ef40c51aefa8b62f40cfa52573d518 (patch) | |
| tree | 0263ef643a8c8f6da633b1b0951e465627bf87e0 /generic/tclBasic.c | |
| parent | 220cdf3af55e55798f718b4874e2f98ced93a66d (diff) | |
| download | tcl-005d6efec8ef40c51aefa8b62f40cfa52573d518.zip tcl-005d6efec8ef40c51aefa8b62f40cfa52573d518.tar.gz tcl-005d6efec8ef40c51aefa8b62f40cfa52573d518.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); |