Browse Source

src/vendormodules/commandstack not checked in before

master
Julian Noble 3 weeks ago
parent
commit
bd0cd2a55d
  1. 9
      src/vendormodules/commandstack-0.4.tm

9
src/vendormodules/commandstack-0.4.tm

@ -167,6 +167,12 @@ namespace eval commandstack {
lassign $arglist command procargs procbody
set command [uplevel 1 [list namespace which $command]]
if {$command eq ""} {
#review
puts stderr "commandstack::rename_command no rename performed for command '$command' by '$renamer'. command '$command' not found in calling context. Ensure command name is fully qualified or that command exists."
#add something to stack?
return [dict create implementation ""]
}
set mungedcommand [string map {:: _ns_} $command]
set mungedrenamer [string map {:: _ns_} $renamer]
variable all_stacks
@ -284,7 +290,8 @@ namespace eval commandstack {
]
if {![dict get $nextinfo do_rename]} {
#review
puts stderr "no rename performed"
puts stderr "commandstack::rename_command no rename performed for command '$command' by '$renamer'"
#add something to stack?
return [dict create implementation ""]
}
catch {rename ::commandstack::temp::testproc ""}

Loading…
Cancel
Save