From 97d2bae1b3da1f00d0ca1cb69b3c5f08a90edbe5 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Wed, 3 Dec 2008 02:16:19 +0000 Subject: [PATCH] remove unused lassign defn --- library/mk4vfs.tcl | 11 ----------- 1 file changed, 11 deletions(-) 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 -- 2.23.0