diff options
-rw-r--r-- | stdlib.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -42,7 +42,7 @@ proc stacktrace {{skip 0}} { incr skip 2 loop level $skip [info level]+1 { set frame [info frame -$level] - lappend trace [lindex [dict get $frame cmd] 0] [dict get $frame file] [dict get $frame line] + lappend trace [lindex [dict getdef $frame cmd {}] 0] [dict get $frame file] [dict get $frame line] } return $trace } |