From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sat, 18 Apr 2009 19:08:41 +0000 (+0000)
Subject: Fixed typo in win makefile and added a variable check in the validate
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=afcbcc111f4803b680af235070e2543a75893478;p=kitgen

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 05d47ad..716fb0b 100644
--- 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 b99233c..cc34d68 100644
--- 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]