diff --git a/procs/_index b/procs/_index new file mode 100644 index 0000000..36b2770 --- /dev/null +++ b/procs/_index @@ -0,0 +1 @@ +testo444 b97b92d30ce8f6c872670f177fa384e61df3b004 diff --git a/stolen-treasure.tcl b/stolen-treasure.tcl index a113c6f..9b6b317 100644 --- a/stolen-treasure.tcl +++ b/stolen-treasure.tcl @@ -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 { diff --git a/vars/_index b/vars/_index new file mode 100644 index 0000000..e69de29