From 1398263012f0888c8a1a735f47c7bc524d917b18 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 31 Dec 2005 14:01:52 +0000
Subject: [PATCH] the flag table is never really empty, since -h and -- are
 always implcitly there

svn: r1730

original commit: d19819f3055a5b876ca8fa8fdd3cd3fb498e8e1e
---
 collects/mzlib/cmdline.ss | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.ss
index 2ea93be..c4e1d13 100644
--- a/collects/mzlib/cmdline.ss
+++ b/collects/mzlib/cmdline.ss
@@ -337,10 +337,7 @@
 		(list #f (list "--help" "-h")
 		      (lambda (f)
 			(let* ([sp (open-output-string)])
-			  (fprintf sp "~a~a" program
-				   (if (null? table)
-				       ""
-				       " [ <flag> ... ]"))
+			  (fprintf sp "~a [ <flag> ... ]" program)
 			  (print-args sp finish-help finish)
 			  (fprintf sp "~n where <flag> is one of~n")
 			  (for-each