back compat with mk4vfs

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 820e2eaa66c3ad5d090d0ed5b5d389f710a52f31..85d5f9204bba0e719bdfbebe05975186093fa4e6 100644 (file)
--- 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]