[r2005-03-22 17:30:40 by afrisch] Empty log message

Original author: afrisch
Date: 2005-03-22 17:30:40+00:00

runtime/serial.ml

@@ -7,7 +7,7 @@ module P = struct
 
   let init () = pms:=[]; nb_pms:=(-1)
   let mk () = 
-    let pms = Array.of_list !pms in
+    let pms = Array.of_list (List.rev !pms) in
     Serialize.Put.run T.serialize pms
 
   let pm t = pms:=t::!pms; incr nb_pms; !nb_pms