Mercurial > hg > egg-tcls
changeset 80:3eb07f55bf86
calc: Rename a variable (finnish vs. english)
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 11 Sep 2011 18:37:10 +0300 |
parents | fccfbcbb06e4 |
children | 17e542b7985a |
files | calc.tcl |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/calc.tcl Sun Sep 11 18:36:55 2011 +0300 +++ b/calc.tcl Sun Sep 11 18:37:10 2011 +0300 @@ -39,13 +39,13 @@ global calc_reps # This is something rather perverse - set lasku [join [join [string map $calc_reps $args] ""] ""] + set equ [join [join [string map $calc_reps $args] ""] ""] # Use 'expr' to calculate the result, but catch any exceptions / errors - if {[catch { set res [expr $lasku] } errmsg]} { + if {[catch { set res [expr $equ] } errmsg]} { return $errmsg } else { - return "$lasku = $res" + return "$equ = $res" } }