From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 18 Sep 2001 15:01:08 +0000 (+0000)
Subject: back compat with mk4vfs
X-Git-Tag: vfs-1-2~108
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b5f0fd61568afe2d8e3d4bdc8097d00ce4c6535c;p=tclvfs

back compat with mk4vfs
---

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 820e2ea..85d5f92 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -104,7 +104,7 @@
 namespace eval vfs::mk4 {}
 
 proc vfs::mk4::Mount {what local args} {
-    set db [eval [list ::mk4vfs::mount $what $local] $args]
+    set db [eval [list ::mk4vfs::_mount $what $local] $args]
 
     ::vfs::filesystem mount $what [list ::vfs::mk4::handler $db]
     # Register command to unmount
@@ -112,6 +112,10 @@ proc vfs::mk4::Mount {what local args} {
     return $db
 }
 
+proc mk4vfs::mount {args} {
+    uplevel 1 [list ::vfs::mk4::mount] $args
+}
+
 proc vfs::mk4::Unmount {db local} {
     vfs::filesystem unmount $local
     ::mk4vfs::umount $db
@@ -356,7 +360,7 @@ proc mk4vfs::init {db} {
     }
 }
 
-proc mk4vfs::mount {path file args} {
+proc mk4vfs::_mount {path file args} {
     variable uid
     set db mk4vfs[incr uid]