diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-10-15 15:21:57 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 15:41:22 +1000 |
commit | edbdba1bc2920611f44153605456ea7aedc166b9 (patch) | |
tree | a7784fc49ea06625c8ac48f6e9bc8813fc5f9907 /stdlib.tcl | |
parent | a0515f27955d5e7ee169b0951976107846e50651 (diff) | |
download | jimtcl-edbdba1bc2920611f44153605456ea7aedc166b9.zip jimtcl-edbdba1bc2920611f44153605456ea7aedc166b9.tar.gz jimtcl-edbdba1bc2920611f44153605456ea7aedc166b9.tar.bz2 |
Only indicate 'Runtime Error' from a script
This makes for cleaner output from a console session
and is compatible with earlier versions of Jim.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'stdlib.tcl')
-rw-r--r-- | stdlib.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -88,9 +88,9 @@ proc errorInfo {msg {stacktrace ""}} { } lassign $stacktrace p f l if {$f ne ""} { - set result "$f:$l " + set result "Runtime Error: $f:$l: " } - append result "Runtime Error: $msg\n" + append result "$msg\n" append result [stackdump $stacktrace] # Remove the trailing newline |