From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 3 Dec 2008 02:16:19 +0000 (+0000)
Subject: remove unused lassign defn
X-Git-Tag: vfs-1-4~10
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=97d2bae1b3da1f00d0ca1cb69b3c5f08a90edbe5;p=tclvfs

remove unused lassign defn
---

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index aa59bff..8e7bbcf 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -26,17 +26,6 @@ if {[info exists env(VFS_DEBUG)] && [info commands history] == ""} {
     proc history {args} {}
 }
 
-# things that can no longer really be left out (but this is the wrong spot!)
-# be as non-invasive as possible, using these definitions as last resort
-
-if {![info exists auto_index(lassign)] && [info commands lassign] == ""} {
-    set auto_index(lassign) {
-	proc lassign {l args} {
-	    foreach v $l a $args { uplevel 1 [list set $a $v] }
-	}
-    }
-}
-
 namespace eval vfs::mk4 {
     proc Mount {mkfile local args} {
         # 2005-10-19 switch to MK Compatible Lite driver if there is no Mk4tcl