diff options
author | Steve Bennett <steveb@workware.net.au> | 2023-04-13 08:53:04 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2023-04-13 09:29:51 +1000 |
commit | 7972a7d0b62f7041151db74e6a00a50d67a072f5 (patch) | |
tree | f1d224ce3075c16cb84186aecfad67518f7a8145 /stdlib.tcl | |
parent | d6078771a56b1f38f420d302e1530efcc1b45590 (diff) | |
download | jimtcl-7972a7d0b62f7041151db74e6a00a50d67a072f5.zip jimtcl-7972a7d0b62f7041151db74e6a00a50d67a072f5.tar.gz jimtcl-7972a7d0b62f7041151db74e6a00a50d67a072f5.tar.bz2 |
stacktrace: handle missing cmd in [info frame]
Some stack frames may have no cmd (e.g. with eval).
Ensure that [stacktrace] still handles such frames by setting an
empty proc name in that case.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'stdlib.tcl')
-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 } |