Posted to tcl by mjanssen at Mon Sep 26 09:13:26 GMT 2022view pretty
namespace eval test { proc init {} { after 2000 interp alias {} ::test::test {} ::test::_test interp alias {} ::test::test2 {} ::test::_test2 } proc _test {} { puts test } proc _test2 {} { puts test2 } interp alias {} ::test::test {} ::test::init interp alias {} ::test::test2 {} ::test::init } test::test test::test test::test2