test repair for non-default "compiled" directory

This commit is contained in:
Matthew Flatt 2019-01-08 15:07:53 -07:00
parent 8777d89eaf
commit 593be62896

View File

@ -1053,7 +1053,7 @@
(define temp-dir (find-system-path 'temp-dir))
(define dir (build-path temp-dir (car (use-compiled-file-paths))))
(define dir-existed? (directory-exists? dir))
(unless dir-existed? (make-directory dir))
(unless dir-existed? (make-directory* dir))
(define (go a-s)
(parameterize ([current-namespace (make-base-namespace)]