-- XTransportImpl.mesa

DIRECTORY
  XTransport,
  XTransportTCP;
  
XTransportImpl:PROGRAM IMPORTS XTransportTCP EXPORTS XTRANSPORT =
  BEGIN
  
  Init:PUBLIC PROCEDURE =
    BEGIN
    [] ← FORK XTransportTCP.Listener[];
    END;
    
  END.