diff options
Diffstat (limited to 'tclcompat.tcl')
| -rw-r--r-- | tclcompat.tcl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index c632103..398a916 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -36,14 +36,6 @@ proc read {{-nonewline {}} chan} { } -# Tcl 8.5 lassign -proc lassign {list args} { - # in case the list is empty... - lappend list {} - uplevel 1 [list foreach $args $list break] - lrange $list [llength $args] end-1 -} - # case var ?in? pattern action ?pattern action ...? proc case {var args} { # Skip dummy parameter @@ -109,20 +101,6 @@ proc parray {arrayname {pattern *} {puts puts}} { } } -# Sort of replacement for $::errorInfo -# Usage: errorInfo error ?stacktrace? -proc errorInfo {error {stacktrace ""}} { - if {$stacktrace eq ""} { - set stacktrace [info stacktrace] - } - lassign $stacktrace p f l - if {$f ne ""} { - set result "$f:$l " - } - append result "Runtime Error: $error\n" - append result [stackdump $stacktrace] -} - proc {info nameofexecutable} {} { if {[info exists ::jim_argv0]} { if {[string first "/" $::jim_argv0] >= 0} { |