Mercurial > hg > egg-tcls

changeset 80:3eb07f55bf86

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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"
   }
 }