fix -h text

svn: r5605
This commit is contained in:
Matthew Flatt 2007-02-15 00:03:00 +00:00
parent 3c3d848324
commit bf84c30c55

View File

@ -156,7 +156,7 @@
(if (eq? '3m (system-type 'gc)) " [current default]" "")))] (if (eq? '3m (system-type 'gc)) " [current default]" "")))]
[("--cgc") [("--cgc")
,(lambda (f) (compiler:option:3m #f)) ,(lambda (f) (compiler:option:3m #f))
(,(format "Compile/link for 3m, with -e/-c/-o/--exe/etc.~a" (,(format "Compile/link for CGC, with -e/-c/-o/--exe/etc.~a"
(if (eq? 'cgc (system-type 'gc)) " [current default]" "")))]] (if (eq? 'cgc (system-type 'gc)) " [current default]" "")))]]
[once-each [once-each
[("-m" "--module") [("-m" "--module")