Commit 971dc658 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2005-03-22 17:30:40+00:00
parent 44bf9263
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment