// PupDummyGate.bcpl -- Dummy version of PupGateway.bcpl for
//			use in hosts that aren't gateways
// Copyright Xerox Corporation 1979

// This is initialization code -- may be discarded after calling

// Last modified May 26, 1979  6:34 PM by Taft

external
[
//outgoing procedures
InitForwarder; Forwarder; ForwarderCtx

//incoming procedures
ReleasePBI; Dismiss
]

static [ Forwarder; ForwarderCtx ]

//----------------------------------------------------------------------------
let InitForwarder(nil) be
//----------------------------------------------------------------------------
[
Forwarder = ReleasePBI
ForwarderCtx = Dismiss
]