From b26dc929f4f86e708758571ed105caebc736ff20 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 24 May 2025 10:29:04 +0300
Subject: [PATCH] Fix bug on Loko output file handlign

---
 libs/data.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libs/data.sld b/libs/data.sld
index f9c320f..5be69f3 100644
--- a/libs/data.sld
+++ b/libs/data.sld
@@ -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)