[RFA] syntax error in interface.tcl

[John R. Moore]

This only fixes the syntax, I didn't follow what the syntax does:

John

2001-07-05  John R. Moore  <jmoore@cygnus.com>
        * interface.tcl (gdbtk_locate_main): Correct syntax.

Index: gdb/gdbtk/library/interface.tcl
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.13
diff -p -u -r1.13 interface.tcl
--- gdb/gdbtk/library/interface.tcl	2001/06/14 21:03:25	1.13
+++ gdb/gdbtk/library/interface.tcl	2001/07/06 00:25:10
@@ -787,7 +787,7 @@ proc gdbtk_locate_main {} {
       return $linespec
     }
   }
-  if {![catch gdb_entry_point entry_point]
+  if {![catch {gdb_entry_point entry_point}] \
       && ![catch {gdb_loc "*$entry_point"} linespec]} {
     return $linespec
   }