From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 7 Sep 2001 21:46:10 +0000 (+0000)
Subject: mk fixes
X-Git-Tag: vfs-1-2~110
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=b121d54c9d451c014e9b4465f3887d4faf7bf326;p=tclvfs

mk fixes
---

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 41f02ca..820e2ea 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -104,17 +104,17 @@
 namespace eval vfs::mk4 {}
 
 proc vfs::mk4::Mount {what local args} {
-    set dd [eval [list ::mk4vfs::mount $what $local] $args]
+    set db [eval [list ::mk4vfs::mount $what $local] $args]
 
-    ::vfs::filesystem mount $path [list ::vfs::mk4::handler $db]
+    ::vfs::filesystem mount $what [list ::vfs::mk4::handler $db]
     # Register command to unmount
-    vfs::RegisterMount $local [list ::vfs::mk4::Unmount $db]
-    return $dd
+    ::vfs::RegisterMount $local [list ::vfs::mk4::Unmount $db]
+    return $db
 }
 
 proc vfs::mk4::Unmount {db local} {
     vfs::filesystem unmount $local
-    ::mk4tcl::umount $db
+    ::mk4vfs::umount $db
 }
 
 proc vfs::mk4::handler {db cmd root relative actualpath args} {