From 22845b2e452f922f87571f860bd93ec9a7eafeb7 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 10 Oct 2025 13:25:31 +0300 Subject: [PATCH] Mosh fixes --- libs/data.sld | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/libs/data.sld b/libs/data.sld index 5b4259f..e9b0635 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -420,12 +420,16 @@ (mosh (type . interpreter) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) - (apply string-append - `("mosh " - ,(util-getenv "COMPILE_R7RS_MOSH") - " " - ,@(map (lambda (item) (string-append "--loadpath=" item " ")) - (append append-directories prepend-directories))))))) + (let ((dirs (append append-directories prepend-directories))) + (apply string-append + `(,(if (> (length dirs) 0) + (string-append + "MOSH_LOADPATH=" + (apply string-append + (map (lambda (item) (string-append item ":")) dirs))) + "") + " mosh " + ,(util-getenv "COMPILE_R7RS_MOSH"))))))) (racket (type . interpreter) (library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)