accept unknown options

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3969 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

tools/ocamlmklib.mlp

@@ -107,7 +107,7 @@ let parse_arguments argv =
     else if s = "-v" || s = "-verbose" then
       verbose := true
     else if starts_with s "-" then
-      raise (Bad_argument("Unknown option " ^ s))
+      prerr_endline ("Unknown option " ^ s)
     else
       raise (Bad_argument("Don't know what to do with " ^ s));
     incr i
@@ -137,9 +137,9 @@ Options are:
   -rpath <dir>   Same as -dllpath <dir>
   -R<dir>        Same as -rpath
   -verbose       Print commands before executing them
-  -Wl,-rpath,<dir>    Same as -dllpath <dir>
-  -Wl,-rpath -Wl<dir> Same as -dllpath <dir>
-  -Wl,-R<dir>         Same as -dllpath <dir>
+  -Wl,-rpath,<dir>     Same as -dllpath <dir>
+  -Wl,-rpath -Wl,<dir> Same as -dllpath <dir>
+  -Wl,-R<dir>          Same as -dllpath <dir>
 "
 
 let command cmd =