Fixed typo in win makefile and added a variable check in the validate

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4474 9e558909-932a-0410-a563-af77432da1eb

diff --git a/Makefile.vc b/Makefile.vc
index 05d47adc25831665f6a4bd66524091b669ccb357..716fb0b6a06062723361cb186f6bad17147558f8 100644 (file)
--- a/Makefile.vc
+++ b/Makefile.vc
@@ -225,7 +225,7 @@ kitsh.exe: setup tcl mk itcl $(PARTS:vqtcl=) files $(CLIOBJS)
          $(BUILD)\mk4tcl.obj $(BUILD)\mk4too.obj \
          $(BUILD)\lib\vfs1.4\vfs1*.lib \
          $(BUILD)\lib\mk4vc*.lib \
-r        $(BUILD)\lib\itcl3.4\itcl3*.lib \
+         $(BUILD)\lib\itcl3.4\itcl3*.lib \
          $(BUILD)\lib\tcl$V*.lib \
          $(BUILD)\lib\tcldde1*.lib \
          $(BUILD)\lib\tclreg1*.lib $(LIBS)

diff --git a/validate.tcl b/validate.tcl
index b99233c43746a9325c0b90c316d7b567f81e7815..cc34d682f2933185725bdea1c3ebc98ae9cb429d 100644 (file)
--- a/validate.tcl
+++ b/validate.tcl
@@ -20,6 +20,7 @@ foreach pkg $ext {lappend r $pkg [package require $pkg]}
 puts "main  : $r"
 
 # check seeking on vfs file
+if {![info exists ::tcl::kitpath]} {set ::tcl::kitpath [info nameofexecutable]}
 set f [open [file join $::tcl::kitpath  boot.tcl] r]
 list [seek $f 0 end] [tell $f] [close $f]