Diff

Differences From Artifact [943ad6fb25]:

To Artifact [14eb71a613]:


    74     74       "info script $old\n"
    75     75       "if {$code == 2} { set code 0 }\n"
    76     76       "return -code $code $res\n"
    77     77   "}\n"
    78     78   #endif
    79     79   "proc tclKitInit {} {\n"
    80     80       "rename tclKitInit {}\n"
           81  +#ifdef KIT_INCLUDES_MK4TCL
    81     82       "catch { load {} Mk4tcl }\n"
           83  +#else
           84  +#include "mk4tcl.tcl.h"
           85  +#endif
    82     86       "mk::file open exe [info nameofexecutable] -readonly\n"
    83     87       "set n [mk::select exe.dirs!0.files name boot.tcl]\n"
    84     88       "if {$n != \"\"} {\n"
    85     89           "set s [mk::get exe.dirs!0.files!$n contents]\n"
    86     90   	"if {![string length $s]} { error \"empty boot.tcl\" }\n"
    87     91           "catch {load {} zlib}\n"
    88     92           "if {[mk::get exe.dirs!0.files!$n size] != [string length $s]} {\n"