Diff

Differences From Artifact [40729608ac]:

To Artifact [f0bdde86c9]:


    76     76       "return -code $code $res\n"
    77     77   "}\n"
    78     78   #endif
    79     79   "proc tclKitInit {} {\n"
    80     80       "rename tclKitInit {}\n"
    81     81   #ifdef KIT_INCLUDES_MK4TCL
    82     82       "catch { load {} Mk4tcl }\n"
           83  +    "set ::tclkitMkNamespace \"mk\"\n"
    83     84   #else
    84     85   #include "mk4tcl.tcl.h"
           86  +    "set ::tclkitMkNamespace \"readkit\"\n"
    85     87   #endif
    86         -    "mk::file open exe [info nameofexecutable] -readonly\n"
    87         -    "set n [mk::select exe.dirs!0.files name boot.tcl]\n"
           88  +    "${::tclkitMkNamespace}::file open exe [info nameofexecutable] -readonly\n"
           89  +    "set n [${::tclkitMkNamespace}::select exe.dirs!0.files name boot.tcl]\n"
    88     90       "if {$n != \"\"} {\n"
    89         -        "set s [mk::get exe.dirs!0.files!$n contents]\n"
           91  +        "set s [${::tclkitMkNamespace}::get exe.dirs!0.files!$n contents]\n"
    90     92   	"if {![string length $s]} { error \"empty boot.tcl\" }\n"
    91     93           "catch {load {} zlib}\n"
    92         -        "if {[mk::get exe.dirs!0.files!$n size] != [string length $s]} {\n"
           94  +        "if {[${::tclkitMkNamespace}::get exe.dirs!0.files!$n size] != [string length $s]} {\n"
    93     95   	    "set s [zlib decompress $s]\n"
    94     96   	"}\n"
    95     97       "} else {\n"
    96     98           "set f [open setup.tcl]\n"
    97     99           "set s [read $f]\n"
    98    100           "close $f\n"
    99    101       "}\n"