[gdb/testsuite, tclint] Fix lib/gdb-guile.exp

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index a9c3f1aa3774326a61e385e84325ea13afda6ecb..143c6b87a3cdc16b62ecd274058dfcb14c80de44 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -44,7 +44,6 @@ exclude = [
 "gdb/testsuite/lib/fortran.exp",
 "gdb/testsuite/lib/future.exp",
 "gdb/testsuite/lib/gdb.exp",
-"gdb/testsuite/lib/gdb-guile.exp",
 "gdb/testsuite/lib/gdbreplay-support.exp",
 "gdb/testsuite/lib/gdbserver-support.exp",
 "gdb/testsuite/lib/gdb-utils.exp",

diff --git a/gdb/testsuite/lib/gdb-guile.exp b/gdb/testsuite/lib/gdb-guile.exp
index 776dbc675bd4670bafb0c1d77bebd9d9f3bf7c20..9205312cf913b5017cf63646db46ae09ae80f74d 100644 (file)
--- a/gdb/testsuite/lib/gdb-guile.exp
+++ b/gdb/testsuite/lib/gdb-guile.exp
@@ -37,7 +37,7 @@ proc gdb_scm_test_silent_cmd { cmd name {report_pass 1} } {
        -re "Backtrace.*$gdb_prompt $" { fail $name }
        -re "ERROR.*$gdb_prompt $"     { fail $name }
        -re "Undefined command: .*$gdb_prompt $" { fail $name }
-       -re "$gdb_prompt $"            { if $report_pass { pass $name } }
+       -re "$gdb_prompt $"            { if {$report_pass} { pass $name } }
     }
 }
 
@@ -85,7 +85,7 @@ proc gdb_install_guile_module { } {
 # The result is the same as for runto_main.
 
 proc gdb_guile_runto_main { } {
-    if ![runto_main] {
+    if {![runto_main]} {
        return 0
     }