* lib/targetdb.exp (board_info): Simplify return logic.

diff --git a/ChangeLog b/ChangeLog
index f4277c9..9f8adb0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2016-02-20  Ben Elliston  <bje@gnu.org>
+
+       * lib/targetdb.exp (board_info): Simplify return logic.
+
 2016-02-19  Ben Elliston  <bje@gnu.org>
 
        * configure.ac: Require Tcl version 8.5 at a minimum.

diff --git a/lib/targetdb.exp b/lib/targetdb.exp
index 6e4ec3c..e29886e 100644 (file)
--- a/lib/targetdb.exp
+++ b/lib/targetdb.exp
@@ -31,17 +31,9 @@ proc board_info { machine op args } {
     }
     if { $op == "exists" } {
        if { [llength $args] == 0 } {
-           if {[info exists board_info($machine,name)]} {
-               return 1
-           } else {
-               return 0
-           }
+           return [info exists board_info($machine,name)]
        } else {
-           if {[info exists "board_info($machine,[lindex $args 0])"]} {
-               return 1
-           } else {
-               return 0
-           }
+           return [info exists "board_info($machine,[lindex $args 0])"]
        }
     }
     if { [llength $args] == 0 } {