"*
 * $Header$
 * startup configuration for host specific stuff -
 * looks for a host specific init file and loads it.
 *"

|host s|

host := OperatingSystem getHostName.
host notNil ifTrue:[
    "if there is a corresponding file ..."
    ('reading host setup h_' , host , '.rc ...') printNewline.
    s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
    s notNil ifTrue:[
        s fileIn.
        s close.
    ]
].
!