Differences From Artifact [fcd5a93523]:
- File
kitsh/buildsrc/kitsh-0.0/boot.tcl
— part of check-in
[d5ed5900eb]
at
2011-05-28 23:53:40
on branch trunk
— Updated to only mount VFS once
Updated to always load "vfs" (user: rkeene, size: 5496) [annotate] [blame] [check-ins using] [more...]
To Artifact [cb5b693f08]:
- File kitsh/buildsrc/kitsh-0.0/boot.tcl — part of check-in [e2f0284dd2] at 2011-07-05 17:25:22 on branch trunk — Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly (user: rkeene, size: 5490) [annotate] [blame] [check-ins using]
159 159 } 160 160 161 161 # Now that the initialization is complete, mount the user VFS if needed 162 162 ## Mount the VFS from the Shared Object 163 163 if {[info exists ::TCLKIT_INITVFS] && [info exists ::tclKitFilename]} { 164 164 catch { 165 165 vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER" 166 - 167 - lappend auto_path "/.KITDLL_USER/lib" 168 166 } 169 167 } 168 + lappend auto_path "/.KITDLL_USER/lib" 170 169 171 170 ## Mount the VFS from executable 172 171 if {[info exists ::TCLKIT_INITVFS]} { 173 172 catch { 174 173 vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP" 175 - 176 - lappend auto_path "/.KITDLL_APP/lib" 177 174 } 178 175 } 176 + lappend auto_path "/.KITDLL_APP/lib" 179 177 } 180 178 181 179 # Clean up 182 180 unset -nocomplain ::zip::max_header_seek 183 181 unset -nocomplain ::TCLKIT_TYPE ::TCLKIT_INITVFS 184 182 unset -nocomplain ::TCLKIT_MOUNTPOINT ::TCLKIT_VFSSOURCE ::TCLKIT_MOUNTPOINT_VAR ::TCLKIT_VFSSOURCE_VAR 185 183 unset -nocomplain ::tclKitStorage ::tclKitStorage_fd ::tclKitFilename 186 184 unset -nocomplain ::tclkit_system_encoding 187 185 }