Evaluated proc depends_list name { if {[info proc $name] != ""} { catch {[lweed [regexp -all -inline {\[(.+?)( |])} [inspect $name]] 1]} cum; set out [list]; foreach item $ok { if {[info proc $item] != ""} {lappend out $item} }; . $out}}