this is broken
This commit is contained in:
parent
003f901f38
commit
0595915427
1
procs/_index
Normal file
1
procs/_index
Normal file
@ -0,0 +1 @@
|
|||||||
|
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
|
@ -6228,11 +6228,7 @@ 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 {
|
||||||
|
0
vars/_index
Normal file
0
vars/_index
Normal file
Loading…
x
Reference in New Issue
Block a user