From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 14 Aug 2001 14:56:42 +0000 (+0000)
Subject: fix to typo
X-Git-Tag: vfs-1-2~126
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=70c5312f8edafc65b2836cc096cf888a0e7387fb;p=tclvfs

fix to typo
---

diff --git a/library/tclprocvfs.tcl b/library/tclprocvfs.tcl
index abc8a70..54455a6 100644
--- a/library/tclprocvfs.tcl
+++ b/library/tclprocvfs.tcl
@@ -15,7 +15,7 @@ proc vfs::tclproc::Mount {ns local} {
     }
     puts "tclproc $ns mounted at $local"
     vfs::filesystem mount $local [list vfs::tclproc::handler $ns]
-    vfs::RegisterMount $local [list vfs::tclproc::handler]
+    vfs::RegisterMount $local [list vfs::tclproc::Unmount]
 }
 
 proc vfs::tclproc::Unmount {local} {
diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index bc7a1d0..1ded361 100644
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -22,7 +22,7 @@ proc vfs::zip::Mount {zipfile local} {
     return $fd
 }
 
-proc vfs::zip::Unmount {fd} {
+proc vfs::zip::Unmount {fd local} {
     vfs::filesystem unmount $local
     ::zip::_close $fd
 }