host.rc
changeset 1295 b7f03a0eba28
parent 1287 c51280cc91d1
child 1306 2581c10f1fff
--- a/host.rc	Fri Feb 01 12:24:28 2013 +0100
+++ b/host.rc	Fri Feb 01 12:26:07 2013 +0100
@@ -208,14 +208,11 @@
 "/
 (Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
     ('host.rc [info]: ') infoPrint.
-    (Smalltalk getSystemFileName:('h_' , sysType , '.rc')) isNil ifTrue:[
-	"/ ('trying host setup h_' , sysType , '.rc...') infoPrintCR.
-    ] ifFalse:[
-	('reading host setup h_' , sysType , '.rc...') infoPrintCR.
-    ].
 
+    "/ ('trying host setup h_' , sysType , '.rc...') infoPrintCR.
     s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
     s notNil ifTrue:[
+	('reading host setup h_' , sysType , '.rc...') infoPrintCR.
 	s fileIn.
 	s close.
     ].
@@ -232,10 +229,11 @@
     "if there is a corresponding file ..."
 
     (Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
-	('host.rc [info]: trying host setup h_' , host , '.rc...') infoPrintCR.
+	"/ ('host.rc [info]: trying host setup h_' , host , '.rc...') infoPrintCR.
 
 	s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
 	s notNil ifTrue:[
+	    ('host.rc [info]: reading host setup h_' , host , '.rc...') infoPrintCR.
 	    s fileIn.
 	    s close.
 	].