Mercurial > hg > egg-tcls
diff calc.tcl @ 695:abd05400481d
calc: Rename proc.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 23 Jun 2023 21:21:59 +0300 |
parents | 92aefade4466 |
children |
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 }