yyamasak
7/5/2018 - 5:33 AM

Replace expr command by mpexpr (this works in tclsh but not in wish because of command history hooks)

Replace expr command by mpexpr (this works in tclsh but not in wish because of command history hooks)

package require Mpexpr
if {[info commands tclexpr] eq {}} {
  rename expr tclexpr
  proc expr {args} {uplevel mpexpr $args}
}
# set PI [expr {4*atan(1)}]; #=> 3.14159265358979324