summaryrefslogtreecommitdiff
path: root/databases/geneweb/patches/patch-src_relation.ml
diff options
context:
space:
mode:
Diffstat (limited to 'databases/geneweb/patches/patch-src_relation.ml')
-rw-r--r--databases/geneweb/patches/patch-src_relation.ml20
1 files changed, 20 insertions, 0 deletions
diff --git a/databases/geneweb/patches/patch-src_relation.ml b/databases/geneweb/patches/patch-src_relation.ml
new file mode 100644
index 00000000000..f6b32a815ec
--- /dev/null
+++ b/databases/geneweb/patches/patch-src_relation.ml
@@ -0,0 +1,20 @@
+$NetBSD: patch-src_relation.ml,v 1.1 2012/12/16 22:39:47 dholland Exp $
+
+Insert missing semicolons demanded by ocaml4.
+
+--- src/relation.ml~ 2007-09-12 09:58:44.000000000 +0000
++++ src/relation.ml
+@@ -194,11 +194,11 @@ value old_print_relationship_dag conf ba
+ let hts = Dag.make_tree_hts conf base elem_txt vbar_txt invert set [] d in
+ Dag.print_slices_menu_or_dag_page conf base page_title hts next_txt
+ ;
+-end ELSE declare
++end; ELSE declare
+ value old_print_relationship_dag conf base elem_txt vbar_txt path next_txt =
+ incorrect_request conf
+ ;
+-end END;
++end; END;
+
+ value add_common_parent base ip1 ip2 set =
+ let a1 = poi base ip1 in