fixed typo (compile time error)
authorStefano Zacchiroli <zack@debian.org>
Sat, 9 Jul 2005 17:26:42 +0000 (17:26 +0000)
committerStefano Zacchiroli <zack@debian.org>
Sat, 9 Jul 2005 17:26:42 +0000 (17:26 +0000)
ocaml-md5sums.ml.in

index 83a2796b20aeb276433d8e227b2b17e7a5ad33bf..184e2b0d0e36ab3790436bf100ef65461c636fb6 100644 (file)
@@ -271,7 +271,7 @@ let update () =
   with End_of_file ->
     Unix.closedir dir;
     close_out registry;
-    if is_empty registry_file Sys.remove registry_file
+    if is_empty registry_file then Sys.remove registry_file
 
 (** {2 Main} *)