diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-07-01 14:49:43 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-07-01 14:49:43 (GMT) |
| commit | 4157542c246e381cb81ca70553a628d70381a3b2 (patch) | |
| tree | 8121f9b50e495083749dd7a054c9bd8f7b499172 /generic/tclCmdIL.c | |
| parent | ac3a9b43fdb9eab96727dbf392aa04f2b81ebd51 (diff) | |
| download | tcl-4157542c246e381cb81ca70553a628d70381a3b2.zip tcl-4157542c246e381cb81ca70553a628d70381a3b2.tar.gz tcl-4157542c246e381cb81ca70553a628d70381a3b2.tar.bz2 | |
fix typo ... donal broke the build
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 69f8a67..a501105 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.120 2007/06/30 14:07:50 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.121 2007/07/01 14:49:43 msofer Exp $ */ #include "tclInt.h" @@ -4011,7 +4011,7 @@ Tcl_LsortObjCmd( if (Tcl_ListObjAppendElement(interp, newCommandPtr, newObjPtr) != TCL_OK) { TclDecrRefCount(newCommandPtr); - TclDecrRefCount(listObj) + TclDecrRefCount(listObj); Tcl_IncrRefCount(newObjPtr); TclDecrRefCount(newObjPtr); if (sortInfo.indexc > 1) { |