[MLton-commit] r5714

Vesa Karvonen vesak at mlton.org
Mon Jul 2 04:00:03 PDT 2007


Remove extra parens.  Could also be written in pointless style.

----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/toys/cheap-concurrency/async/cheap-concurrency.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/org/mlton/vesak/toys/cheap-concurrency/async/cheap-concurrency.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/toys/cheap-concurrency/async/cheap-concurrency.sml	2007-07-02 10:56:35 UTC (rev 5713)
+++ mltonlib/trunk/org/mlton/vesak/toys/cheap-concurrency/async/cheap-concurrency.sml	2007-07-02 11:00:02 UTC (rev 5714)
@@ -19,7 +19,7 @@
 fun handler im = let
    val om = MVar.new ()
 in
-   every (MVar.take im) (fn x => (MVar.fill om (x+1)))
+   every (MVar.take im) (fn x => MVar.fill om (x+1))
  ; om
 end
 




More information about the MLton-commit mailing list