[MLton-commit] r5424

[Vesa Karvonen]

Minor simplification.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/ipc/unstable/detail/raw-mem.sml

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

Modified: mltonlib/trunk/com/ssh/ipc/unstable/detail/raw-mem.sml
===================================================================
--- mltonlib/trunk/com/ssh/ipc/unstable/detail/raw-mem.sml	2007-03-12 13:56:21 UTC (rev 5423)
+++ mltonlib/trunk/com/ssh/ipc/unstable/detail/raw-mem.sml	2007-03-12 14:14:05 UTC (rev 5424)
@@ -103,7 +103,7 @@
       in
          I {sz = d+bS, al = Word.max (aA, bA),
             rd = fn p => aR p & bR (Ptr.+ (p, d)),
-            wr = fn p => fn a & b => (aW p a ; bW (Ptr.+ (p, d)) b)}
+            wr = fn p => Product.app (aW p, bW (Ptr.+ (p, d)))}
       end
 
       datatype 'a s =