--- 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.
].