equal
deleted
inserted
replaced
120 s notNil ifTrue:[ |
120 s notNil ifTrue:[ |
121 ('reading host setup h_' , sysType , '.rc...') infoPrintCR. |
121 ('reading host setup h_' , sysType , '.rc...') infoPrintCR. |
122 s fileIn. |
122 s fileIn. |
123 s close. |
123 s close. |
124 ]. |
124 ]. |
125 Smalltalk at:#'_ImageOSTypeName' put:host. |
125 Smalltalk at:#'_ImageOSTypeName' put:sysType. |
126 ]. |
126 ]. |
127 |
127 |
128 "/ |
128 "/ |
129 "/ try host-specific setup |
129 "/ try host-specific setup |
130 "/ h_<hostname>.rc |
130 "/ h_<hostname>.rc |