From ca1d8afc2cf45b6fd42204a7ed0e295991666205 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sat, 1 Nov 2008 00:04:26 +0000
Subject: remove unused variable

---
 generic/tclOOBasic.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c
index 394ea60..b52f90c 100644
--- a/generic/tclOOBasic.c
+++ b/generic/tclOOBasic.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclOOBasic.c,v 1.14 2008/10/31 22:08:32 dkf Exp $
+ * RCS: @(#) $Id: tclOOBasic.c,v 1.15 2008/11/01 00:04:26 dkf Exp $
  */
 
 #ifdef HAVE_CONFIG_H
@@ -1028,7 +1028,6 @@ TclOONRUpcatch(
 {
     Interp *iPtr = (Interp *) interp;
     CallFrame *savedFramePtr = iPtr->varFramePtr;
-    Tcl_Obj *scriptObj;
 
     if (objc != 2) {
 	Tcl_WrongNumArgs(interp, 1, objv, "script");
-- 
cgit v0.12