Fix bug on Loko output file handlign

This commit is contained in:
retropikzel 2025-05-24 10:29:04 +03:00
parent 5427fdc5e3
commit b26dc929f4
1 changed files with 1 additions and 1 deletions

View File

@ -368,7 +368,7 @@
(loko
(type . compiler)
(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
`("LOKO_LIBRARY_PATH="
,@(map (lambda (item)