[116514] trunk/base/src

[Joshua Root]

> Modified: trunk/base/src/port/port.tcl
> ===================================================================
> --- trunk/base/src/port/port.tcl	2014-01-27 15:18:28 UTC (rev 116513)
> +++ trunk/base/src/port/port.tcl	2014-01-27 15:23:40 UTC (rev 116514)
> @@ -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}]
>  }

This doesn't look right. I would think the purpose of the expr here is
to do constant folding, so if you do

const FOO 2+2

then [FOO] would return 4. But with the added braces it returns "2+2".

- Josh