% $Id: RThreadTest.oz,v 1.1 2010/04/02 03:14:12 leavens Exp $ \insert 'TestingNoStop.oz' \insert 'RThread.oz' % Execution that will keep both cores busy declare fun {Fibo N} if N<2 then 1 else {Fibo N-1}+{Fibo N-2} end end local F1 F2 in {RThread proc {$} F1={Fibo 20} end} % Remote thread thread F2={Fibo 20} end % Local thread {Test F1#F2 '==' 10946#10946} end