% $Id: NewPortObject.oz,v 1.1 2007/11/13 22:39:33 leavens Exp leavens $ % compare to the version in section 5.2.1 of CTM declare fun {NewPortObject Init Fun} Sin in thread _={FoldL Sin Fun Init} end {NewPort Sin} end