Index: xotcl/library/lib/make.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/lib/make.xotcl	(.../make.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/lib/make.xotcl	(.../make.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: make.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $ 
+# $Id: make.xotcl,v 1.2 2006/09/14 06:36:02 neumann Exp $ 
 ### inEachDir changes now to each directory
 ### install clears tgarget directory before installing
 ### Object file added (for better -n processing)
@@ -35,7 +35,7 @@
   #puts stderr "[pwd]: call so=<$so>"
   set fls [concat $fls $so]
   
-  if {$fls != ""} {
+  if {$fls ne ""} {
     if {[file exists pkgIndex.tcl]} {
       file delete -force pkgIndex.tcl
     }
@@ -109,7 +109,7 @@
 ### minus n option
 Class make::-n
 foreach f [file info commands] {
-  if {$f == "unknown" || $f == "next" || $f == "self"} continue
+  if {$f eq "unknown" || $f eq "next" || $f eq "self"} continue
   if {![file exists destructive($f)] || [file set destructive($f)]} {
     #puts stderr destruct=$f
     make::-n instproc $f args {
@@ -126,16 +126,16 @@
 }
 
 ### command line parameters
-if {![info exists argv] || $argv == ""} {set argv -all}
-if {$argv == "-n"} {set argv "-n -all"}
+if {![info exists argv] || $argv eq ""} {set argv -all}
+if {$argv eq "-n"} {set argv "-n -all"}
 
 Class Script
 Script proc create args {
   eval lappend args $::argv
   eval next $args
 }
 Script instproc unknown args {
-  puts stderr "$::argv0: Unknown option �-$args� provided"
+  puts stderr "$::argv0: Unknown option ´-$args´ provided"
 }
 
 Script instproc n {} {file mixin make::-n}
@@ -151,6 +151,6 @@
 Script create main
 
 #puts stderr "+++ make.xotcl finished."
-#if {[set ::tcl_platform(platform)] == "windows"} {
+#if {[set ::tcl_platform(platform)] eq "windows"} {
 #  exit
 #}