% $Id: NewPortObject2.oz,v 1.1 2007/11/14 01:24:15 leavens Exp leavens $ % For stateless port objects, from Section 5.2.1 of CTM declare fun {NewPortObject2 Proc} Sin in thread for Msg in Sin do {Proc Msg} end end {NewPort Sin} end