[103219] trunk/base/src/port1.0/portconfigure.tcl

[larryv at macports.org]

Revision: 103219
          https://trac.macports.org/changeset/103219
Author:   larryv at macports.org
Date:     2013-02-18 19:29:44 -0800 (Mon, 18 Feb 2013)
Log Message:
-----------
portconfigure.tcl: Use boolean returns for arch_flag_supported and compiler_is_port.

As per https://lists.macosforge.org/pipermail/macports-dev/2013-February/022066.html and replies.

Modified Paths:
--------------
    trunk/base/src/port1.0/portconfigure.tcl

Modified: trunk/base/src/port1.0/portconfigure.tcl
===================================================================
--- trunk/base/src/port1.0/portconfigure.tcl	2013-02-19 03:26:34 UTC (rev 103218)
+++ trunk/base/src/port1.0/portconfigure.tcl	2013-02-19 03:29:44 UTC (rev 103219)
@@ -358,12 +358,8 @@
 
 # internal proc to determine if the compiler supports -arch
 proc portconfigure::arch_flag_supported {compiler} {
-    if {[string first "macports-gcc" $compiler] == 0 ||
-        [string first "macports-dragonegg-" $compiler] == 0} {
-        return no
-    } else {
-        return yes
-    }
+    return [expr {[string first "macports-gcc-" $compiler] != 0 &&
+                  [string first "macports-dragonegg-" $compiler] != 0}]
 }
 
 # maps compiler names to the port that provides them
@@ -407,11 +403,7 @@
 }
 
 proc portconfigure::compiler_is_port {compiler} {
-    if {[portconfigure::compiler_port_name ${compiler}] == ""} {
-        return no
-    } else {
-        return yes
-    }
+    return [expr {[portconfigure::compiler_port_name ${compiler}] != ""}]
 }
 
 # internal function to determine the default compiler
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130218/85c97a12/attachment.html>