[kernel] r5131 - dists/trunk/scripts

[Sven Luther]

Author: luther
Date: Thu Dec 29 14:18:26 2005
New Revision: 5131

Modified:
   dists/trunk/scripts/kconfig.ml
Log:
Fixed empty string usage message.


Modified: dists/trunk/scripts/kconfig.ml
==============================================================================
--- dists/trunk/scripts/kconfig.ml	(original)
+++ dists/trunk/scripts/kconfig.ml	Thu Dec 29 14:18:26 2005
@@ -7,6 +7,9 @@
   (function s -> config_name := s) 
   "./kconfig.ml <config_file>"
 
+let usage () = Arg.usage
+  [ ]
+  "./kconfig.ml <config_file>"
 
 type options =
   | Config_Yes of string
@@ -66,7 +69,7 @@
   with End_of_file -> ()
   
 let () =
-  if !config_name != "" then
+  if !config_name = "" then usage () else
   try
     let config = open_in !config_name in
     parse_config config