Error in return type - should have been bool (how did this ever compile???)

diff --git a/diskzip/diskzip.ml b/diskzip/diskzip.ml
index 7e2969a..75fffc6 100644 (file)
--- a/diskzip/diskzip.ml
+++ b/diskzip/diskzip.ml
@@ -39,10 +39,11 @@ let rec main () =
     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. *)