test repair for non-default "compiled" directory
This commit is contained in:
parent
8777d89eaf
commit
593be62896
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user