Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Meevax fixes

This commit is contained in:
retropikzel 2025-08-21 20:12:06 +03:00
parent f1a3cebe4f
commit 9243508dc3
1 changed files with 6 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
libs/data.sld
View File

@ -349,10 +349,13 @@
" " " "
,(util-getenv "COMPILE_R7RS_MEEVAX") ,(util-getenv "COMPILE_R7RS_MEEVAX")
" " " "
;,@(map (lambda (item) (string-append "--load " item " ")) library-files) ,@(map (lambda (item)
;,@(map (lambda (item) (string-append " " item " ")) prepend-directories) (string-append "-I" " " item " "))
;,@(map (lambda (item) (string-append " " item " ")) append-directories) prepend-directories)
" " " "
,@(map (lambda (item)
(string-append "-A" " " item " "))
append-directories)
,input-file))))) ,input-file)))))
(mit-scheme (mit-scheme
(type . interpreter) (type . interpreter)
@ -376,22 +379,6 @@
,input-file ,input-file
" " " "
"--eval \"(exit 0)\""))))) "--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 (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?)