# -- try.tcl | |
# | |
# Wrapper of the core [try] command | |
# | |
# $Id$ | |
# | |
namespace eval ::rivet { | |
proc try {script args} { | |
uplevel [list ::try $script trap {RIVET ABORTPAGE} {} { | |
return -errorcode {RIVET ABORTPAGE} -code error | |
} trap {RIVET THREAD_EXIT} {} { | |
return -errorcode {RIVET THREAD_EXIT} -code error | |
} {*}$args] | |
} | |
} |