From 4987b1d19342fec6bd46b4b7f7dffd75c48e056a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 2 Sep 2003 21:49:42 +0000
Subject: Corrected typo and broken example.

---
 doc/catch.n  | 4 ++--
 doc/return.n | 6 +++---
 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
 }
-- 
cgit v0.12