Mercurial > hg > egg-tcls
changeset 695:abd05400481d
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 }