fix `raco make --no-deps'
This commit is contained in:
parent
b99eb54f16
commit
b87a7c0ec9
|
@ -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))
|
||||
|
|
30
collects/tests/racket/old-make-zo.rkt
Normal file
30
collects/tests/racket/old-make-zo.rkt
Normal 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)))
|
Loading…
Reference in New Issue
Block a user