2 lines
69 B
Tcl
2 lines
69 B
Tcl
interp alias {} addone {} ::tcl::mathop::+ 1
|
|
puts [addone 6]; # => 7
|
interp alias {} addone {} ::tcl::mathop::+ 1
|
|
puts [addone 6]; # => 7
|