bc: another test repair for raco exe

This commit is contained in:
Matthew Flatt 2020-08-03 16:59:45 -06:00
parent 6683e17fdc
commit 85497fe230

View File

@ -539,7 +539,10 @@
(define ext-base-dir
(build-path (find-system-path 'temp-dir)
"compiled"))
(let ([l (use-compiled-file-paths)])
(if (pair? l)
(car l)
"compiled"))))
(define ext-dir
(build-path ext-base-dir