[MLton-commit] r6928

[Vesa Karvonen]

Help with type inference for SML/NJ.

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

U   mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/client.sml

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

Modified: mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/client.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/client.sml	2008-10-13 22:41:38 UTC (rev 6927)
+++ mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/client.sml	2008-10-13 22:42:04 UTC (rev 6928)
@@ -63,7 +63,7 @@
          fun lp i =
              if i < ResizableArray.length live
              then case ResizableArray.sub (live, i)
-                   of handler as {token, ...} =>
+                   of handler as {token, setExn=_, recvCod=_} =>
                       if token = token'
                       then (ResizableArray.update
                              (live,