# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1687544519 -10800
# Node ID abd05400481d39856a134af011a9233cd82c743f
# Parent  bd7f06c8a515dd43d56158345b57bbc867004f33
calc: Rename proc.

diff -r bd7f06c8a515 -r abd05400481d calc.tcl
--- a/calc.tcl	Fri Jun 23 18:48:38 2023 +0300
+++ b/calc.tcl	Fri Jun 23 21:21:59 2023 +0300
@@ -31,9 +31,8 @@
   putserv "$calc_preferredmsg $udest :$umsg"
 }
 
-
 # ------------------------------------------------------------------------
-proc calc_do {args} {
+proc calc_exec {args} {
 
   # This is something rather perverse
   set equ [join [join $args ""] ""]
@@ -55,7 +54,7 @@
     return 1
   }
 
-  set result [calc_do $args]
+  set result [calc_exec $args]
   calc_smsg $chan "${nick}, ${result}"
   return 1
 }
@@ -69,7 +68,7 @@
     return 1
   }
 
-  set result [calc_do $args]
+  set result [calc_exec $args]
   calc_smsg $nick "$result"
   return 1
 }