Permalink
Browse files

minor clean-ups

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14642 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 443b7d7 commit 34752cdc5a54da3f5d1d39f6c51633bce6350ff7 Damien Doligez committed Apr 18, 2014
Showing with 4 additions and 4 deletions.
  1. +4 −4 stdlib/arg.ml
View
@@ -112,11 +112,11 @@ let parse_argv_dynamic ?(current=current) argv speclist anonfun errmsg =
| Unknown "-help" -> ()
| Unknown "--help" -> ()
| Unknown s ->
- bprintf b "%s: unknown option `%s'.\n" progname s
+ bprintf b "%s: unknown option '%s'.\n" progname s
| Missing s ->
- bprintf b "%s: option `%s' needs an argument.\n" progname s
+ bprintf b "%s: option '%s' needs an argument.\n" progname s
| Wrong (opt, arg, expected) ->
- bprintf b "%s: wrong argument `%s'; option `%s' expects %s.\n"
+ bprintf b "%s: wrong argument '%s'; option '%s' expects %s.\n"
progname arg opt expected
| Message s ->
bprintf b "%s: %s.\n" progname s
@@ -129,7 +129,7 @@ let parse_argv_dynamic ?(current=current) argv speclist anonfun errmsg =
incr current;
while !current < l do
let s = argv.(!current) in
- if String.length s >= 1 && String.get s 0 = '-' then begin
+ if String.length s >= 1 && s.[0] = '-' then begin
let action =
try assoc3 s !speclist
with Not_found -> stop (Unknown s)

0 comments on commit 34752cd

Please sign in to comment.