Utils/recall_precision_curve: added assert

lib/utils.ml

@@ -36,6 +36,7 @@ let%pworkflow fasta_cappend fa1 fa2 =
 let%pworkflow recall_precision_curve ~labels ~oracle ~results : pdf file =
   let open Codepitk in
   let n = Array.length labels in
+  assert (n = List.length results) ;
   let colors = Array.sub [|"blue";"green";"red";"tan1";"royalblue4";"darkorchid"|] ~pos:0 ~len:n in
   let labels = [%param labels] in
   let load_results fn =