Mercurial > hg > egg-tcls

changeset 695:abd05400481d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
calc: Rename proc.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 23 Jun 2023 21:21:59 +0300
parents bd7f06c8a515
children d82cadd5b4ff
files calc.tcl
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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
 }