summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-07-15 12:58:18 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-07-15 12:58:18 (GMT)
commitd23055ab5a73740c064ad7e19c09fd47b1278dd9 (patch)
tree569b673c4c82fdf9f1764c8ba721254de6ab10a9
parent435f37009833610d8e3dea01a0ff383edacd967d (diff)
downloadtcl-d23055ab5a73740c064ad7e19c09fd47b1278dd9.zip
tcl-d23055ab5a73740c064ad7e19c09fd47b1278dd9.tar.gz
tcl-d23055ab5a73740c064ad7e19c09fd47b1278dd9.tar.bz2
Fix error in example. [Bug 2016740]
-rw-r--r--ChangeLog2
-rw-r--r--doc/DictObj.34
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 <dkf@users.sf.net>
+ * 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