Diff

Differences From Artifact [8c1638de2d]:

To Artifact [139f21791e]:


151
152
153
154
155
156
157

158
159

160
161
162
163
164
165
166
	# Perform expected initialization
	uplevel #0 [list source [file join $tcl_library init.tcl]]
  
	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
	set auto_path $tcl_libPath

	# Update Tcl Module system as well

	tcl::tm::path remove {*}[tcl::tm::path list]
	tcl::tm::roots [file join $::starkit::tclkitroot lib]


	if {$::TCLKIT_TYPE == "kitdll"} {
		# Set a maximum seek to avoid reading the entire file looking for a
		# zip header
		catch { 
			package require vfs::zip
			set ::zip::max_header_seek 8192







>
|
|
>







151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
	# Perform expected initialization
	uplevel #0 [list source [file join $tcl_library init.tcl]]
  
	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
	set auto_path $tcl_libPath

	# Update Tcl Module system as well
	if {[info command ::tcl::tm::path] ne ""} {
		tcl::tm::path remove {*}[tcl::tm::path list]
		tcl::tm::roots [file join $::starkit::tclkitroot lib]
	}

	if {$::TCLKIT_TYPE == "kitdll"} {
		# Set a maximum seek to avoid reading the entire file looking for a
		# zip header
		catch { 
			package require vfs::zip
			set ::zip::max_header_seek 8192