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

16
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?)
(apply string-append (let ((dirs (append append-directories prepend-directories)))
`("mosh " (apply string-append
,(util-getenv "COMPILE_R7RS_MOSH") `(,(if (> (length dirs) 0)
" " (string-append
,@(map (lambda (item) (string-append "--loadpath=" item " ")) "MOSH_LOADPATH="
(append append-directories prepend-directories))))))) (apply string-append
(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?)