From 9243508dc35e49bcea1d5a5bed68fd2ad2c704df Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 21 Aug 2025 20:12:06 +0300 Subject: [PATCH] Meevax fixes --- libs/data.sld | 25 ++++++------------------- 1 file changed, 6 insertions(+), 19 deletions(-) diff --git a/libs/data.sld b/libs/data.sld index 847f599..9c8e143 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -349,10 +349,13 @@ " " ,(util-getenv "COMPILE_R7RS_MEEVAX") " " - ;,@(map (lambda (item) (string-append "--load " item " ")) library-files) - ;,@(map (lambda (item) (string-append " " item " ")) prepend-directories) - ;,@(map (lambda (item) (string-append " " item " ")) append-directories) + ,@(map (lambda (item) + (string-append "-I" " " item " ")) + prepend-directories) " " + ,@(map (lambda (item) + (string-append "-A" " " item " ")) + append-directories) ,input-file))))) (mit-scheme (type . interpreter) @@ -376,22 +379,6 @@ ,input-file " " "--eval \"(exit 0)\""))))) - (meevax - (type . interpreter) - (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) - (apply string-append - `("meevax" - " " - ,(util-getenv "COMPILE_R7RS_MEEVAX") - " " - ,@(map (lambda (item) - (string-append "-I" " " item " ")) - prepend-directories) - " " - ,@(map (lambda (item) - (string-append "-A" " " item " ")) - append-directories) - ,input-file))))) (mosh (type . interpreter) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)