Diff

Differences From Artifact [55f719fa55]:

To Artifact [87800da22f]:


   106    106   		"}\n"
   107    107   	"}\n"
   108    108   #endif /* KIT_STORAGE_MK4 */
   109    109   #ifdef KIT_STORAGE_ZIP
   110    110   	"set ::tclKitStorage \"zip\"\n"
   111    111   	"catch { load {} vfs }\n"
   112    112   #  include "zipvfs.tcl.h"
   113         -	"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
          113  +	"catch {\n"
          114  +		"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
          115  +	"}\n"
   114    116   	"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
   115         -		"seek $::tclKitStorage_fd $sb(ino)\n"
   116         -		"zip::Data $::tclKitStorage_fd sb s\n"
          117  +		"catch {\n"
          118  +			"seek $::tclKitStorage_fd $sb(ino)\n"
          119  +			"zip::Data $::tclKitStorage_fd sb s\n"
          120  +		"}\n"
   117    121   	"}\n"
   118    122   #endif /* KIT_STORAGE_ZIP */
   119    123   	"if {![info exists s]} {\n"
   120    124   		"set f [open setup.tcl]\n"
   121    125   		"set s [read $f]\n"
   122    126   		"close $f\n"
   123    127   	"}\n"