-- Transport mechanism:  module to prevent return to Alto executive!

-- [Indigo]<Grapevine>MS>Sponge.mesa

-- Andrew Birrell 29-Dec-81 13:41:10

-- Starting this module causes the process that does the starting to WAIT
-- forever.  Otherwise, Mesa.image would cause us to return to the Alto
-- executive.

Sponge: MONITOR =

{ c: CONDITION ← [timeout:0]; P: ENTRY PROC = { DO WAIT c ENDLOOP }; P[] }.