fix `raco make --no-deps'

This commit is contained in:
Matthew Flatt 2011-12-13 06:13:02 -07:00
parent b99eb54f16
commit b87a7c0ec9
2 changed files with 30 additions and 1 deletions

View File

@ -47,7 +47,6 @@
,(if (assume-primitives)
'(void)
'(namespace-require/copy 'scheme))
(require compiler/cffi)
,@(map (lambda (s) `(load ,s)) (prefixes))
(void))])
((compile-zos prefix #:verbose? (verbose))

View File

@ -0,0 +1,30 @@
#lang racket
(require setup/dirs)
(define src (collection-file-path "old-make-zo.rkt" "tests" "racket"))
(define (exe s)
(if (eq? (system-type) 'windows)
(string-append s ".exe")
s))
(define (check auto-dir? v)
(unless v (error "failed"))
(let ([src (if auto-dir?
(let-values ([(base name dir?) (split-path src)])
(build-path base "compiled" name))
src)])
(delete-file (path-add-suffix src #".zo"))))
(check
#f
(system* (build-path (find-console-bin-dir) (exe "mzc"))
"-z"
(path->string src)))
(check
#t
(system* (build-path (find-console-bin-dir) (exe "raco"))
"make"
"--no-deps"
(path->string src)))