stackdump: truncate command at first newline

Often the command in a stack trace will be a long script.
This makes it hard to read the stacktrace, so in this case
truncate at the first newline and add ...

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 4 insertions, 0 deletions

diff --git a/stdlib.tcl b/stdlib.tcl
index 289acbf..cf97d3c 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -48,6 +48,10 @@ proc stackdump {stacktrace} {
 		if {$line ne ""} {
 			lappend lines $line
 			if {$cmd ne ""} {
+				set nl [string first \n $cmd 1]
+				if {$nl >= 0} {
+					set cmd [string range $cmd 0 $nl-1]...
+				}
 				lappend lines "    $cmd"
 			}
 		}