From 66abccfdfb6a2264f4dffd68faaf51d5a92b1af0 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 8 Oct 2014 13:00:25 +0200
Subject: [PATCH] Bug in bitlist order corrected

---
 ocaml/Bitlist.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml/Bitlist.ml b/ocaml/Bitlist.ml
index c333485a..e5c8e4b7 100644
--- a/ocaml/Bitlist.ml
+++ b/ocaml/Bitlist.ml
@@ -92,7 +92,7 @@ let to_int64_list l =
   in
   let l = do_work [] [] 1 l
   in
-  List.map to_int64 l
+  List.rev_map to_int64 l
 ;;
 
 (* Create a bit list from a list of MO indices *)