Posted to tcl by apw at Tue Jul 24 12:22:41 GMT 2007view pretty

namespace eval ::cl1 {
  proc m1 {str}{
    puts "::cl1::m1 called with str: $str!"
  }
}

interp alias {} ::cl1::m2 {} m1

namespace eval ::cl1 {
  m2 "Hello World"
}