Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cml/cml-lib/SMLNJ-Util/cml-atom-new.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/cml-lib/SMLNJ-Util/cml-atom-new.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1769, Fri Feb 25 23:46:14 2005 UTC revision 1770, Tue Mar 1 05:43:28 2005 UTC
# Line 11  Line 11 
11    
12      open Atom                   (* from $/smlnj-lib.cm *)      open Atom                   (* from $/smlnj-lib.cm *)
13    
14      local val l: unit Mailbox.mbox = Mailbox.mailbox ()      local val l = SyncVar.mVarInit ()
15      in      in
16      fun atomically f arg = (Mailbox.send (l, ()); f arg before Mailbox.recv l)      fun atomically f a = (SyncVar.mTake l; f a before SyncVar.mPut (l, ()))
17      end      end
18    
19      val atom = atomically atom      val atom = atomically atom

Legend:
Removed from v.1769  
changed lines
  Added in v.1770

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0