summaryrefslogtreecommitdiff
path: root/itcl/itcl/generic/itcl_obsolete.c
diff options
context:
space:
mode:
Diffstat (limited to 'itcl/itcl/generic/itcl_obsolete.c')
-rw-r--r--itcl/itcl/generic/itcl_obsolete.c10
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);