diff options
Diffstat (limited to 'itcl/itcl/generic/itcl_obsolete.c')
-rw-r--r-- | itcl/itcl/generic/itcl_obsolete.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/itcl/itcl/generic/itcl_obsolete.c b/itcl/itcl/generic/itcl_obsolete.c index 6d7b2dcf1e9..9aa20552ebf 100644 --- a/itcl/itcl/generic/itcl_obsolete.c +++ b/itcl/itcl/generic/itcl_obsolete.c @@ -479,14 +479,8 @@ ItclOldClassCmd(clientData, interp, objc, objv) /* isProcCallFrame */ 0); if (result == TCL_OK) { - /* CYGNUS LOCAL - Fix for Tcl8.1 */ -#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 - result = Tcl_EvalObj(interp, objv[2], 0); -#else - result = Tcl_EvalObj(interp, objv[2]); -#endif - /* END CYGNUS LOCAL */ - Tcl_PopCallFrame(interp); + result = Tcl_EvalObj(interp, objv[2]); + Tcl_PopCallFrame(interp); } Itcl_PopStack(&info->cdefnStack); |