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

flip mzc flag from --prim to --no-prim

Browse Source 
svn: r10123
This commit is contained in:
Matthew Flatt 2008-06-04 12:35:56 +00:00
parent 6aa847ca67
commit 8484b1e578
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/compiler/main.ss
View File

@ -338,9 +338,9 @@
(error 'bad))
v))))
("Set the maximum inlining size" "size")]
[("--prim")
,(lambda (f) (compiler:option:assume-primitives #t))
("Assume primitive bindings at top level")]
[("--no-prim")
,(lambda (f) (compiler:option:assume-primitives #f))
("Do not assume `scheme' bindings at top level")]
[("--stupid")
,(lambda (f) (compiler:option:stupid #t))
("Compile despite obvious non-syntactic errors")]
@ -376,16 +376,16 @@
(error 'mzc "prefix files are not useful in ~a mode" mode))
(if (module-mode)
(begin
(when (compiler:option:assume-primitives)
(error 'mzc "--prim is not useful with -m or --module"))
(unless (compiler:option:assume-primitives)
(error 'mzc "--no-prim is not useful with -m or --module"))
(unless (null? prefixes)
(error 'mzc "prefix files not allowed with -m or --module"))
#f)
`(begin
(require scheme)
,(if (compiler:option:assume-primitives)
'(void)
'(namespace-require/copy 'scheme))
'(void)
'(namespace-require/copy 'scheme))
(require compiler/cffi)
,@(map (lambda (s) `(load ,s)) prefixes)
(void)))))))

2
collects/compiler/option-unit.ss
View File

@ -9,7 +9,7 @@
(define-unit compiler:option@ (import) (export compiler:option^)
(define propagate-constants (make-parameter #t))
(define assume-primitives (make-parameter #f))
(define assume-primitives (make-parameter #t))
(define stupid (make-parameter #f))
(define vehicles (make-parameter 'vehicles:automatic))