# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: asynch.tcl,v 1.1 2000-08-14 21:09:51 ijackson Exp $
+# $Id: asynch.tcl,v 1.2 2002-03-27 15:14:51 ijackson Exp $
proc asynch_startcmd {} {
global asynch_sofar
}
}
-if {[llength $argv] && "[lindex $argv 0]" == "-d"} {
+if {[llength $argv] && ![string compare [lindex $argv 0] "-d"]} {
set tcl_traceExec 1
set argv [lreplace $argv 0 0]
-} elseif {[llength $argv] && "[lindex $argv 0]" == "-dd"} {
+} elseif {[llength $argv] && ![string compare [lindex $argv 0] "-dd"]} {
set tcl_traceExec 2
set argv [lreplace $argv 0 0]
}