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

View File

@ -322,22 +322,14 @@
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`("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")
" "
"-Dkawa.import.path="
"-Dkawa.import.path=\""
,@(map (lambda (item)
(string-append item "/*.sld:"))
(string-append item "/*.sld:" item ":"))
(append prepend-directories append-directories))
" "
"\" "
"--r7rs"
" "
,input-file)))))