blob: ccf16e8d11f401a84937a135bd63e9a25076a0c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
$NetBSD: patch-common_ubase_uarg.ml,v 1.1 2021/08/15 06:38:38 dholland Exp $
Silence warning about archaic syntax.
--- common/ubase/uarg.ml~ 2007-03-26 13:07:39.000000000 +0000
+++ common/ubase/uarg.ml
@@ -66,7 +66,7 @@ let parse speclist anonfun errmsg =
incr current;
while !current < l do
let ss = Sys.argv.(!current) in
- if String.length ss >= 1 & String.get ss 0 = '-' then begin
+ if String.length ss >= 1 && String.get ss 0 = '-' then begin
let args = Util.splitIntoWords ss '=' in
let s = Safelist.nth args 0 in
let arg conv mesg =
|
