match name with
| "diskzcat" -> false
| "diskzip" -> true
- | name ->
+ | _ ->
eprintf
(f_"diskzip: unknown executable name '%s', assuming 'diskzip'\n")
- name in
+ name;
+ true in
let compressing = ref compressing in
(* Command line argument parsing. *)