blob: 4dbca21dca406f63c7e09d447b109839cad65efe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
$NetBSD: patch-src_dag.ml,v 1.1 2012/12/16 22:39:47 dholland Exp $
Insert missing semicolons demanded by ocaml4.
--- src/dag.ml~ 2007-09-12 09:58:44.000000000 +0000
+++ src/dag.ml
@@ -48,7 +48,7 @@ value tag_dag d =
})
d
;
-end END;
+end; END;
(* input dag *)
@@ -305,7 +305,7 @@ value print_table conf hts =
end_centered conf;
}
;
-end END;
+end; END;
(*
* Print without HTML table tags: using <pre>
@@ -834,7 +834,7 @@ value print_html_table conf hts =
else print_table conf hts
}
;
-end END;
+end; END;
value make_tree_hts conf base elem_txt vbar_txt invert set spl d =
let no_group = p_getenv conf.env "nogroup" = Some "on" in
@@ -1020,7 +1020,7 @@ value print_dag_page conf base page_titl
Hutil.trailer conf
}
;
-end END;
+end; END;
(* *)
@@ -1269,11 +1269,11 @@ value old_print_slices_menu_or_dag_page
if p_getenv conf.env "slices" = Some "on" then print_slices_menu conf hts
else print_dag_page conf base page_title hts next_txt
;
-end ELSE declare
+end; ELSE declare
value old_print_slices_menu_or_dag_page conf base page_title hts next_txt =
incorrect_request conf
;
-end END;
+end; END;
value print_slices_menu_or_dag_page conf base page_title hts next_txt =
(**)
|
