diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-07-05 12:27:13 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-12-02 20:56:50 +1000 |
commit | 768d2c055a10a48ad2b3087475e8a9f1bffbeacf (patch) | |
tree | 13cdec6a280143831c427d7ca00bd7d25d6cefe8 /stdlib.tcl | |
parent | 556b0b9b92fee635597702509c10f4f5ae2d252b (diff) | |
download | jimtcl-768d2c055a10a48ad2b3087475e8a9f1bffbeacf.zip jimtcl-768d2c055a10a48ad2b3087475e8a9f1bffbeacf.tar.gz jimtcl-768d2c055a10a48ad2b3087475e8a9f1bffbeacf.tar.bz2 |
Implement the lassign command in C
For efficiency since it can be heavily used
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'stdlib.tcl')
-rw-r--r-- | stdlib.tcl | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -28,14 +28,6 @@ proc function {value} { return $value } -# 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 -} - # Returns a list of proc filename line ... # with 3 entries for each stack frame (proc), # (deepest level first) |