CVS: sml-dist/src/cml/cml-lib/SMLNJ-Util cml-atom-new.sml,1.1,1.2

Update of /cvsroot/smlnj/sml-dist/src/cml/cml-lib/SMLNJ-Util
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31616/src/cml/cml-lib/SMLNJ-Util

Modified Files:
	cml-atom-new.sml 
Log Message:
fixed silly bug in CML:Atom

Index: cml-atom-new.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cml/cml-lib/SMLNJ-Util/cml-atom-new.sml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** cml-atom-new.sml	24 Feb 2005 22:46:30 -0000	1.1
--- cml-atom-new.sml	1 Mar 2005 05:43:28 -0000	1.2
***************
*** 12,18 ****
      open Atom			(* from $/smlnj-lib.cm *)
  
!     local val l: unit Mailbox.mbox = Mailbox.mailbox ()
      in
!     fun atomically f arg = (Mailbox.send (l, ()); f arg before Mailbox.recv l)
      end
  
--- 12,18 ----
      open Atom			(* from $/smlnj-lib.cm *)
  
!     local val l = SyncVar.mVarInit ()
      in
!     fun atomically f a = (SyncVar.mTake l; f a before SyncVar.mPut (l, ()))
      end
  



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click