Posted to tcl by apn at Sun Feb 19 17:06:14 GMT 2017view raw

  1. namespace eval foo {
  2. proc bar {} {puts "bar called!"}
  3. proc baz arg {puts "baz called with $arg"}
  4. }
  5. interp alias {} foo {} namespace eval foo
  6. foo {bar; baz quux}
  7.