summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--doc/DictObj.34
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index b391741..fb60d1f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-15 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * doc/DictObj.3: Fix error in example. [Bug 2016740]
+
2008-07-08 Don Porter <dgp@users.sourceforge.net>
* generic/tclGet.c: Corrected out of date comments.
diff --git a/doc/DictObj.3 b/doc/DictObj.3
index 1010cbd..db254ee 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.11.2.1 2008/07/15 13:01:04 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