[MLton-commit] r6921

[Vesa Karvonen]

Fixed bug in pickler which had an insufficient amount of eta-expansion
resulting in undesired sharing.

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

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2008-10-11 19:06:32 UTC (rev 6920)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2008-10-13 01:09:19 UTC (rev 6921)
@@ -528,8 +528,8 @@
 
       fun pickler aT =
           case wr (getT aT)
-           of aW => fn a =>
-              O.run (ref 0, HashMap.new {eq = Dyn.eq, hash = Dyn.hash}) aW a
+           of aW => fn a => fn b => fn c =>
+              O.run (ref 0, HashMap.new {eq = Dyn.eq, hash = Dyn.hash}) aW a b c
       fun unpickler aT =
           case rd (getT aT)
            of aR => fn cR => fn s => I.run (ResizableArray.new ()) aR cR s