Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Mosh fixes

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libs/data.sld
View File

@ -420,12 +420,16 @@
(mosh (mosh
(type . interpreter) (type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(let ((dirs (append append-directories prepend-directories)))
(apply string-append (apply string-append
`("mosh " `(,(if (> (length dirs) 0)
,(util-getenv "COMPILE_R7RS_MOSH") (string-append
" " "MOSH_LOADPATH="
,@(map (lambda (item) (string-append "--loadpath=" item " ")) (apply string-append
(append append-directories prepend-directories))))))) (map (lambda (item) (string-append item ":")) dirs)))
"")
" mosh "
,(util-getenv "COMPILE_R7RS_MOSH")))))))
(racket (racket
(type . interpreter) (type . interpreter)
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?) (library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)