[MLton-commit] r6938

[Vesa Karvonen]

Made fingerprint asymmetric.

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

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

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

Modified: mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/protocol.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/protocol.sml	2008-10-14 17:45:02 UTC (rev 6937)
+++ mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/detail/protocol.sml	2008-10-15 06:45:21 UTC (rev 6938)
@@ -95,7 +95,7 @@
       val toWord32 = id
       fun make (dom, cod, name) =
           Generic.typeHash dom +
-          Generic.typeHash cod +
+          Generic.typeHash cod * 0w71 +
           Generic.hash String.t name
    end