Fix bug on Loko output file handlign
This commit is contained in:
parent
5427fdc5e3
commit
b26dc929f4
|
@ -368,7 +368,7 @@
|
||||||
(loko
|
(loko
|
||||||
(type . compiler)
|
(type . compiler)
|
||||||
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
|
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
|
||||||
(let ((out (string-cut-from-end output-file 4)))
|
(let ((out (string-cut-from-end input-file 4)))
|
||||||
(apply string-append
|
(apply string-append
|
||||||
`("LOKO_LIBRARY_PATH="
|
`("LOKO_LIBRARY_PATH="
|
||||||
,@(map (lambda (item)
|
,@(map (lambda (item)
|
||||||
|
|
Loading…
Reference in New Issue