From b121d54c9d451c014e9b4465f3887d4faf7bf326 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Fri, 7 Sep 2001 21:46:10 +0000 Subject: [PATCH] mk fixes --- library/mk4vfs.tcl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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} { -- 2.23.0