Permalink
Browse files

gwpublic1: restore Consang.check_noloop call.

  • Loading branch information...
sagotch committed Nov 28, 2018
1 parent 3a71d68 commit bb62017f2dbe1a8e83bf84ea74361a84f40a663a
Showing with 8 additions and 0 deletions.
  1. +8 −0 bin/contrib/gwpublic/gwpublic1.ml
@@ -143,6 +143,14 @@ let public_all ~mem bname treshold =
load_ascends_array base ;
load_couples_array base ;
end ;
Consang.check_noloop base
(function
OwnAncestor p ->
Printf.printf "I cannot deal this database.\n";
Printf.printf "%s is his own ancestors\n" (Gutil.designation base p);
flush stdout;
exit 2
| _ -> assert false);
let nb = nb_of_persons base in
let old = Array.make nb false in
let scanned = Array.make nb (-1) in

0 comments on commit bb62017

Please sign in to comment.