Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Kawa fixes

This commit is contained in:
retropikzel 2025-07-05 16:07:34 +03:00
parent e6f4543126
commit a74b547711
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libs/data.sld
View File

@ -322,22 +322,14 @@
(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 (apply string-append
`("kawa" `("kawa"
" "
"-J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED"
" "
"-J--add-exports=java.base/jdk.internal.foreign.layout=ALL-UNNAMED"
" "
"-J--add-exports=java.base/jdk.internal.foreign=ALL-UNNAMED"
" "
"-J--enable-native-access=ALL-UNNAMED"
" " " "
,(util-getenv "COMPILE_R7RS_KAWA") ,(util-getenv "COMPILE_R7RS_KAWA")
" " " "
"-Dkawa.import.path=" "-Dkawa.import.path=\""
,@(map (lambda (item) ,@(map (lambda (item)
(string-append item "/*.sld:")) (string-append item "/*.sld:" item ":"))
(append prepend-directories append-directories)) (append prepend-directories append-directories))
" " "\" "
"--r7rs" "--r7rs"
" " " "
,input-file))))) ,input-file)))))