summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-09-02 21:49:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-09-02 21:49:42 (GMT)
commit4987b1d19342fec6bd46b4b7f7dffd75c48e056a (patch)
tree3f5468de64864c036d6708bb58266aba1b0ecfef
parent939fc495ba9d67066a354099307650390209b7ca (diff)
downloadtcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.zip
tcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.tar.gz
tcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.tar.bz2
Corrected typo and broken example.
-rw-r--r--doc/catch.n4
-rw-r--r--doc/return.n6
2 files changed, 5 insertions, 5 deletions
diff --git a/doc/catch.n b/doc/catch.n
index 043c3d8..d69670d 100644
--- a/doc/catch.n
+++ b/doc/catch.n
@@ -6,7 +6,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: catch.n,v 1.7 2003/09/02 18:51:31 dgp Exp $
+'\" RCS: @(#) $Id: catch.n,v 1.8 2003/09/02 21:49:42 dgp Exp $
'\"
.so man.macros
.TH catch n "8.5" Tcl "Tcl Built-In Commands"
@@ -53,7 +53,7 @@ the return code from evaluation of \fIscript\fR is not TCL_RETURN,
the value of the \fB-level\fR entry will be 0, and the value
of the \fB-code\fR entry will be the same as the return code.
Only when the return code is TCL_RETURN will the values of
-the \fB\level\fR and \fB-code\fR entries be something else, as
+the \fB-level\fR and \fB-code\fR entries be something else, as
further described in the documentation for the \fBreturn\fR command.
.PP
When the return code from evaluation of \fIscript\fR is TCL_ERROR,
diff --git a/doc/return.n b/doc/return.n
index 7afe66c..bd9592f 100644
--- a/doc/return.n
+++ b/doc/return.n
@@ -6,7 +6,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: return.n,v 1.6 2003/09/02 18:51:31 dgp Exp $
+'\" RCS: @(#) $Id: return.n,v 1.7 2003/09/02 21:49:42 dgp Exp $
'\"
.so man.macros
.TH return n 8.5 Tcl "Tcl Built-In Commands"
@@ -289,8 +289,8 @@ proc myReturn {args} {
set result [lindex $args end]
set args [lrange $args 0 end-1]
}
- set options [dict create -level 1]
- eval [list dict replace $options] $args
+ set options [eval \\
+ [list dict create -level 1] $args]
dict incr options -level
return -options $options $result
}