"*

 * $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.

    ]

].

!