From afcbcc111f4803b680af235070e2543a75893478 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Sat, 18 Apr 2009 19:08:41 +0000 Subject: [PATCH] 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 --- Makefile.vc | 2 +- validate.tcl | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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] -- 2.23.0