Diff

Differences From Artifact [512beccb11]:

To Artifact [55f719fa55]:


    86     86   	"info script $old\n"
    87     87   	"if {$code == 2} { set code 0 }\n"
    88     88   	"return -code $code $res\n"
    89     89   "}\n"
    90     90   #endif /* _WIN32_WCE */
    91     91   "proc tclKitInit {} {\n"
    92     92   	"rename tclKitInit {}\n"
           93  +#ifdef KIT_INCLUDES_MK4TCL
           94  +	"catch { load {} Mk4tcl }\n"
           95  +#endif
    93     96   #ifdef KIT_STORAGE_MK4
    94     97   	"set ::tclKitStorage \"mk4\"\n"
    95         -	"catch { load {} Mk4tcl }\n"
    96     98   	"mk::file open exe [info nameofexecutable] -readonly\n"
    97     99   	"set n [mk::select exe.dirs!0.files name boot.tcl]\n"
    98    100   	"if {$n != \"\"} {\n"
    99    101   		"set s [mk::get exe.dirs!0.files!$n contents]\n"
   100    102   		"if {![string length $s]} { error \"empty boot.tcl\" }\n"
   101    103   		"catch {load {} zlib}\n"
   102    104   		"if {[mk::get exe.dirs!0.files!$n size] != [string length $s]} {\n"