diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-13 09:03:31 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-13 09:03:31 (GMT) |
| commit | c6ea70b1e92398f2b2ae232cf46a3f4ee196b714 (patch) | |
| tree | 7d872fa5186b327990fa96d969a3b092780f38d2 /generic/tclTestProcBodyObj.c | |
| parent | cadf432b7e556166c8adc427bda549a8d7f8fdcb (diff) | |
| download | tcl-c6ea70b1e92398f2b2ae232cf46a3f4ee196b714.zip tcl-c6ea70b1e92398f2b2ae232cf46a3f4ee196b714.tar.gz tcl-c6ea70b1e92398f2b2ae232cf46a3f4ee196b714.tar.bz2 | |
NRE implementation [Patch 2017110]
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index db390a1..d346d59 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.6 2008/04/27 22:21:32 dkf Exp $ + * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.7 2008/07/13 09:03:35 msofer Exp $ */ #include "tclInt.h" @@ -255,10 +255,10 @@ ProcBodyTestProcObjCmd( /* * check that this is a procedure and not a builtin command: - * If a procedure, cmdPtr->objProc is TclObjInterpProc. + * If a procedure, cmdPtr->objClientData is TclIsProc(cmdPtr). */ - if (cmdPtr->objProc != TclGetObjInterpProc()) { + if (cmdPtr->objClientData != TclIsProc(cmdPtr)) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "command \"", fullName, "\" is not a Tcl procedure", NULL); return TCL_ERROR; |