try to fix this
This commit is contained in:
parent
4a70c00991
commit
2cf20fd24d
@ -6228,7 +6228,11 @@ proc inspect args {
|
|||||||
if {[llength [info commands [escape_glob $proc]]] == 1} {
|
if {[llength [info commands [escape_glob $proc]]] == 1} {
|
||||||
src $proc
|
src $proc
|
||||||
} elseif {[llength $procs] == 0} {
|
} elseif {[llength $procs] == 0} {
|
||||||
|
if [llength [set handler [apply unknown:handler_for $args]]] {
|
||||||
|
src [lindex $handler 0]
|
||||||
|
} else {
|
||||||
error "\"$proc\" isn't a procedure"
|
error "\"$proc\" isn't a procedure"
|
||||||
|
}
|
||||||
} elseif {[llength $procs] == 1} {
|
} elseif {[llength $procs] == 1} {
|
||||||
src [first $procs]
|
src [first $procs]
|
||||||
} else {
|
} else {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user