Artifact 9bc241b32b73d173d072554828e3f96958ee71b5:

• File packages/routine/lib/main.tcl — part of check-in [d9b27c9ee4] at 2020-01-04 02:25:58 on branch trunk — routine new package (user: pooryorick size: 692)

#! /usr/bin/env tclsh

package require {ycl proc}
[yclprefix] proc alias [yclprefix]::proc::alias

namespace import [yclprefix]::proc::stub
alias [yclprefix]::proc::stub 

variable doc::name {
	description {
		determine the name of the current routine
	}
}
proc name {} {
	uplevel 1 {::lindex [::info level 0] 0}
}


variable doc::rename {
	description

		like ::rename

			but only resolves the routine in the current namespace
}

stub rename {name args} {
	package require {ycl ns}
	alias [yclprefix]::ns
} {
	if {![string match ::* $name]} {
		set name [ns normalize $name[set name {}] [
			uplevel 1 {namespace current}]]
		set found [namespace which $name]
	}
	::rename $name {*}$args
}