suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

the flag table is never really empty, since -h and -- are always implcitly there

Browse Source 
svn: r1730
This commit is contained in:
Matthew Flatt 2005-12-31 14:01:52 +00:00
parent feeefe5229
commit d19819f305
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/cmdline.ss
View File

@ -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