[MLton-commit] r6924

[Vesa Karvonen]

More aggressive staging.

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

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

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

Modified: mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/server.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/server.sml	2008-10-13 08:56:34 UTC (rev 6923)
+++ mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/server.sml	2008-10-13 10:25:46 UTC (rev 6924)
@@ -18,13 +18,14 @@
    val sendExn = send Exn.t
 
    fun define (signature' as (dom, cod, _)) = let
+      val fingerprint = Fingerprint.make signature'
       val recvDom = recv dom
       val sendCod = send cod
       open Reply
    in
       fn f =>
          (push entries)
-          {fingerprint = Fingerprint.make signature',
+          {fingerprint = fingerprint,
            procedure = fn token =>
             recvDom >>= (fn x =>
              try (fn () => f x,