aboutsummaryrefslogtreecommitdiff
path: root/stdlib.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-10-15 15:21:57 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 15:41:22 +1000
commitedbdba1bc2920611f44153605456ea7aedc166b9 (patch)
treea7784fc49ea06625c8ac48f6e9bc8813fc5f9907 /stdlib.tcl
parenta0515f27955d5e7ee169b0951976107846e50651 (diff)
downloadjimtcl-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.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib.tcl b/stdlib.tcl
index 3f3a6e5..9727eb2 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -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