# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315755430 -10800
# Node ID 3eb07f55bf86ac8f9dad1341cb91c405421945d0
# Parent  fccfbcbb06e40fdd64e2a9b500036b5cd6d08070
calc: Rename a variable (finnish vs. english)

diff -r fccfbcbb06e4 -r 3eb07f55bf86 calc.tcl
--- 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"
   }
 }