From d23055ab5a73740c064ad7e19c09fd47b1278dd9 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 15 Jul 2008 12:58:18 +0000 Subject: Fix error in example. [Bug 2016740] --- ChangeLog | 2 ++ doc/DictObj.3 | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5484e06..369f675 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2008-07-15 Donal K. Fellows + * doc/DictObj.3: Fix error in example. [Bug 2016740] + * generic/tclNamesp.c (EnsembleUnknownCallback): Factor out some of the more complex parts of the ensemble code to make it easier to understand and hence to permit tighter compilation of code on the diff --git a/doc/DictObj.3 b/doc/DictObj.3 index 1010cbd..45e57b9 100644 --- a/doc/DictObj.3 +++ b/doc/DictObj.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: DictObj.3,v 1.11 2007/12/13 15:22:31 dgp Exp $ +'\" RCS: @(#) $Id: DictObj.3,v 1.12 2008/07/15 12:58:19 dkf Exp $ '\" .so man.macros .TH Tcl_DictObj 3 8.5 Tcl "Tcl Library Procedures" @@ -216,7 +216,7 @@ if (\fBTcl_DictObjFirst\fR(interp, objPtr, &search, &key, &value, &done) != TCL_OK) { return TCL_ERROR; } -for (; done ; \fBTcl_DictObjNext\fR(&search, &key, &value, &done)) { +for (; !done ; \fBTcl_DictObjNext\fR(&search, &key, &value, &done)) { /* * Note that strcmp() is not a good way of comparing * objects and is just used here for demonstration -- cgit v0.12