prog

editor/genericSerializer.ml

@@ -82,7 +82,7 @@ let float_buff b pos =
   p, ((float_of_int f) /. 100.)
 
 
-let check f =
+(*let check f =
   let t = Buffer.create 10 in
   buff_float t f;
   let str = (Bytes.to_string @@ Buffer.to_bytes t) in
@@ -107,7 +107,7 @@ let _ =
     let p1,i1= int_buff str !pos in
     pos := p1;
     print_endline (string_of_int i1);
-  done
+  done*)
 
 let buff_string b str =
   let n = String.length str in