[gdb/testsuite, tclint] Fix lib/gdb-guile.exp
diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index a9c3f1a..143c6b8 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -44,7 +44,6 @@
"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 776dbc6..9205312 100644
--- a/gdb/testsuite/lib/gdb-guile.exp
+++ b/gdb/testsuite/lib/gdb-guile.exp
@@ -37,7 +37,7 @@
-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 @@
# The result is the same as for runto_main.
proc gdb_guile_runto_main { } {
- if ![runto_main] {
+ if {![runto_main]} {
return 0
}
