From 27e55162144c92ef728e6858d9ad48c22f0a48d6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Jan 2007 00:02:54 +0000 Subject: [PATCH] allow only one of --3m and --cgc svn: r5344 --- collects/compiler/start.ss | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/compiler/start.ss b/collects/compiler/start.ss index cf02b65d3d..2324136ffb 100644 --- a/collects/compiler/start.ss +++ b/collects/compiler/start.ss @@ -149,16 +149,19 @@ ,(lambda (f name) (plt-output name) 'plt) (,(format "Create .plt containing relative files/dirs") "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 [("-m" "--module") ,(lambda (f) (module-mode #t)) ("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") ,(lambda (f) (compiler:option:compile-for-embedded #t)) ("Compile for embedded run-time engine, with -c/-o/-g")]