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

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)

replace_by_mpexpr.tcl

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