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} {
|
||||
src $proc
|
||||
} elseif {[llength $procs] == 0} {
|
||||
if [llength [set handler [apply unknown:handler_for $args]]] {
|
||||
src [lindex $handler 0]
|
||||
} else {
|
||||
error "\"$proc\" isn't a procedure"
|
||||
}
|
||||
} elseif {[llength $procs] == 1} {
|
||||
src [first $procs]
|
||||
} else {
|
||||
|
0
vars/_index
Normal file
0
vars/_index
Normal file
Loading…
x
Reference in New Issue
Block a user