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

allow only one of --3m and --cgc

Browse Source 
svn: r5344
This commit is contained in:
Matthew Flatt 2007-01-13 00:02:54 +00:00
parent 9711964d4f
commit 27e5516214
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/compiler/start.ss
View File

@ -149,16 +149,19 @@
,(lambda (f name) (plt-output name) 'plt) ,(lambda (f name) (plt-output name) 'plt)
(,(format "Create .plt <archive> containing relative files/dirs") (,(format "Create .plt <archive> containing relative files/dirs")
"archive")]] "archive")]]
[once-any
[("--3m")
,(lambda (f) (compiler:option:3m #t))
(,(format "Compile/link for 3m, with -e/-c/-o/--exe/etc.~a"
(if (eq? '3m (system-type 'gc)) " [current default]" "")))]
[("--cgc")
,(lambda (f) (compiler:option:3m #f))
(,(format "Compile/link for 3m, with -e/-c/-o/--exe/etc.~a"
(if (eq? 'cgc (system-type 'gc)) " [current default]" "")))]]
[once-each [once-each
[("-m" "--module") [("-m" "--module")
,(lambda (f) (module-mode #t)) ,(lambda (f) (module-mode #t))
("Skip eval of top-level syntax, etc. for -e/-c/-o/-z")] ("Skip eval of top-level syntax, etc. for -e/-c/-o/-z")]
[("--3m")
,(lambda (f) (compiler:option:3m #t))
("Compile/link for 3m, with -e/-c/-o/--exe/etc.")]
[("--cgc")
,(lambda (f) (compiler:option:3m #f))
("Compile/link for CGC, with -e/-c/-o/--exe/etc.")]
[("--embedded") [("--embedded")
,(lambda (f) (compiler:option:compile-for-embedded #t)) ,(lambda (f) (compiler:option:compile-for-embedded #t))
("Compile for embedded run-time engine, with -c/-o/-g")] ("Compile for embedded run-time engine, with -c/-o/-g")]