[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