diff options
author | Damien Doligez <damien.doligez-inria.fr> | 1999-11-29 19:04:07 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 1999-11-29 19:04:07 +0000 |
commit | b870e236ebf70f89a46f7577122491b6998a4934 (patch) | |
tree | af53f6cd1e00ba7465308492d9211a63b62dd8e2 /stdlib/arg.ml | |
parent | 532cc5ee4aced2927229695f71bde7ee2d0b4292 (diff) | |
download | ocaml-b870e236ebf70f89a46f7577122491b6998a4934.tar.gz |
pas de code d'erreur si option -help
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2626 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/arg.ml')
-rw-r--r-- | stdlib/arg.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/arg.ml b/stdlib/arg.ml index 1889a04566..48c3343bf8 100644 --- a/stdlib/arg.ml +++ b/stdlib/arg.ml @@ -2,7 +2,7 @@ (* *) (* Objective Caml *) (* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* Damien Doligez, projet Para, INRIA Rocquencourt *) (* *) (* Copyright 1996 Institut National de Recherche en Informatique et *) (* en Automatique. All rights reserved. This file is distributed *) @@ -52,7 +52,7 @@ let parse speclist anonfun errmsg = let progname = if initpos < Array.length Sys.argv then Sys.argv.(initpos) else "(?)" in begin match error with - | Unknown s when s = "-help" -> () + | Unknown "-help" -> () | Unknown s -> eprintf "%s: unknown option `%s'.\n" progname s | Missing s -> @@ -64,7 +64,7 @@ let parse speclist anonfun errmsg = eprintf "%s: %s.\n" progname s end; usage speclist errmsg; - exit 2; + exit (if error = (Unknown "-help") then 0 else 2); in let l = Array.length Sys.argv in incr current; |