From da0bce61a990bce843d2d7e651e52c648c101dca Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 7 Jun 2025 19:41:15 +0300
Subject: [PATCH] Racket fixes

---
 libs/data.sld | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/libs/data.sld b/libs/data.sld
index 5a90307..315e6b4 100644
--- a/libs/data.sld
+++ b/libs/data.sld
@@ -438,8 +438,8 @@
                              " "
                              ,(util-getenv "COMPILE_R7RS_MOSH")
                              " "
-                             ,@(map (lambda (item) (string-append "--loadpath=" item " ")) prepend-directories)
-                             ,@(map (lambda (item) (string-append "--loadpath=" item " ")) append-directories)
+                             ,@(map (lambda (item) (string-append "--loadpath=" item " "))
+                                    (append append-directories prepend-directories))
                              " "
                              ,input-file)))))
     (picrin
@@ -460,7 +460,11 @@
     (racket
       (type . interpreter)
       (library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
-                            (let ((library-rkt-file (change-file-suffix library-file ".rkt")))
+                            (let* ((full-path (search-library-file (append append-directories
+                                                                          prepend-directories)
+                                                                  library-file))
+                                   (library-rkt-file (change-file-suffix full-path ".rkt"))
+                                  )
                               (apply string-append
                                      `("printf"
                                        " "