From 7972a7d0b62f7041151db74e6a00a50d67a072f5 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Thu, 13 Apr 2023 08:53:04 +1000 Subject: 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 --- stdlib.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stdlib.tcl') diff --git a/stdlib.tcl b/stdlib.tcl index 01d73c0..cd82419 100644 --- a/stdlib.tcl +++ b/stdlib.tcl @@ -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 } -- cgit v1.1