25 lines
705 B
OCaml
25 lines
705 B
OCaml
$NetBSD: patch-src_mutil.ml,v 1.1 2012/12/16 22:39:47 dholland Exp $
|
|
|
|
Insert missing semicolons demanded by ocaml4.
|
|
|
|
--- src/mutil.ml~ 2007-08-04 07:22:30.000000000 +0000
|
|
+++ src/mutil.ml
|
|
@@ -95,7 +95,7 @@ value decline case s =
|
|
| '>' -> String.sub s ibeg (i + 1 - ibeg) ^ loop (i + 1) (i + 1)
|
|
| _ -> loop ibeg (i + 1) ]
|
|
;
|
|
-end ELSE declare
|
|
+end; ELSE declare
|
|
(* [decline] has been deprecated since version 5.00
|
|
compatibility code: *)
|
|
value colon_to_at_word s ibeg iend =
|
|
@@ -158,7 +158,7 @@ value decline case s =
|
|
(if not (String.contains s ':') then s else colon_to_at s)
|
|
;
|
|
(* end compatibility code *)
|
|
-end END;
|
|
+end; END;
|
|
|
|
value nominative s =
|
|
match rindex s ':' with
|