diff options
author | dgp <dgp@users.sourceforge.net> | 2004-11-20 00:17:28 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-11-20 00:17:28 (GMT) |
commit | ff53303dbf5fc75eea7bb3d9bc569267adb1d49b (patch) | |
tree | 37544eb5529a0eb1f2f1a0f46ad94a43354cc96b /doc/exit.n | |
parent | 2c96347f634403dffaf0ecf177118cd8202af841 (diff) | |
download | tcl-ff53303dbf5fc75eea7bb3d9bc569267adb1d49b.zip tcl-ff53303dbf5fc75eea7bb3d9bc569267adb1d49b.tar.gz tcl-ff53303dbf5fc75eea7bb3d9bc569267adb1d49b.tar.bz2 |
* doc/AddErrInfo.3: Docs for Tcl_(Get|Set)ReturnOptions. [TIP 227]
* doc/AddErrInfo.3:
* doc/Async.3: Documentation updates to replace references
* doc/BackgdErr.3: to global variable ::errorInfo and ::errorCode
* doc/SaveResult.3: and to the ::bgerror command with references
* doc/after.n: to their preferred replacements, the
* doc/bgerror.n: -errorinfo and -errorcode return options,
* doc/error.n: the Tcl_*InterpState routines, and the
* doc/exec.n: [interp bgerror] command.
* doc/exit.n:
* doc/fileevent.n:
* doc/interp.n:
* doc/return.n:
* doc/tclvars.n:
* doc/update.n:
Diffstat (limited to 'doc/exit.n')
-rw-r--r-- | doc/exit.n | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: exit.n,v 1.5 2004/10/27 09:36:58 dkf Exp $ +'\" RCS: @(#) $Id: exit.n,v 1.6 2004/11/20 00:17:32 dgp Exp $ '\" .so man.macros .TH exit n "" Tcl "Tcl Built-In Commands" @@ -33,11 +33,11 @@ proc main {} { # ... put the real main code in here ... } -if {[catch {main} msg]} { +if {[catch {main} msg options]} { puts stderr "unexpected script error: $msg" if {[info exist env(DEBUG)]} { puts stderr "---- BEGIN TRACE ----" - puts stderr $errorInfo + puts stderr [dict get $options -errorinfo] puts stderr "---- END TRACE ----" } @@ -47,7 +47,7 @@ if {[catch {main} msg]} { .CE .SH "SEE ALSO" -exec(n), tclvars(n) +exec(n) .SH KEYWORDS exit, process |