Retropikzel/compile-scheme
1
0
Fork 0
Code Issues Activity

Mosh fixes

Browse Source
This commit is contained in:
Retropikzel
2025-10-10 13:25:31 +03:00
parent 70a8194c2b
commit 22845b2e45
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libs/data.sld
+10 -6
View File
@@ -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?)