Tcl Source Code

The following script should result in an error to the effect that the routine doesn't exist. Instead, it returns the full path of the deleted routine with the empty string in place of the tail of the deleted routine.

#! /usr/bin/env tclsh


proc traced {oldname newname op} {
	set origin [namespace origin $oldname]
	puts [list origin 1 $origin]
	rename $origin {}
	set origin [namespace origin $oldname]
	puts [list origin 2 $origin]

}

namespace export *

namespace eval ns1 {
	namespace ensemble create
}

namespace eval ns2 {
	namespace import ::ns1
	trace add command ns1 delete traced
}

rename ns1 {}