suzanne.soy/compatibility
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

original commit: d19819f3055a5b876ca8fa8fdd3cd3fb498e8e1e
This commit is contained in:
Matthew Flatt 2005-12-31 14:01:52 +00:00
parent 36320cca64
commit 1398263012
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