Revision
116530
Author
cal@macports.org
Date
2014-01-27 08:52:03 -0800 (Mon, 27 Jan 2014)

Log Message

port/port.tcl: make proc const fold constants again, reverts part of r116514

See https://lists.macosforge.org/pipermail/macports-dev/2014-January/025810.html

Modified Paths

Diff

Modified: trunk/base/src/port/port.tcl (116529 => 116530)


--- trunk/base/src/port/port.tcl	2014-01-27 16:50:42 UTC (rev 116529)
+++ trunk/base/src/port/port.tcl	2014-01-27 16:52:03 UTC (rev 116530)
@@ -142,7 +142,7 @@
 # @param name variable name
 # @param value constant variable value
 proc const {name args} {
-    interp alias {} $name {} _const [expr {$args}]
+    interp alias {} $name {} _const [expr $args]
 }
 
 ##