diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-07-15 13:01:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-07-15 13:01:01 (GMT) |
| commit | 1b5339323d5019362fce5d4438be34421f337dc8 (patch) | |
| tree | 70c799d06e74298071adbe1e18d968d0ee724e78 /doc/DictObj.3 | |
| parent | d88ab4d4e3fee06039e0467e46b7805dafdf9140 (diff) | |
| download | tcl-1b5339323d5019362fce5d4438be34421f337dc8.zip tcl-1b5339323d5019362fce5d4438be34421f337dc8.tar.gz tcl-1b5339323d5019362fce5d4438be34421f337dc8.tar.bz2 | |
Fix error in example. [Bug 2016740]
Diffstat (limited to 'doc/DictObj.3')
| -rw-r--r-- | doc/DictObj.3 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |