@@ -76,11 +76,15 @@ "return -code $code $res\n" "}\n" #endif "proc tclKitInit {} {\n" "rename tclKitInit {}\n" +#ifdef KIT_INCLUDES_MK4TCL "catch { load {} Mk4tcl }\n" +#else +#include "mk4tcl.tcl.h" +#endif "mk::file open exe [info nameofexecutable] -readonly\n" "set n [mk::select exe.dirs!0.files name boot.tcl]\n" "if {$n != \"\"} {\n" "set s [mk::get exe.dirs!0.files!$n contents]\n" "if {![string length $s]} { error \"empty boot.tcl\" }\n"