Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Kawa fixes

This commit is contained in:
retropikzel 2025-11-26 19:16:49 +02:00
parent dfc62511d7
commit 168d749d6d
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libs/data.sld
View File

@ -352,16 +352,8 @@
r6rs? r6rs?
compilation-target) compilation-target)
(apply string-append (apply string-append
`("CLASSPATH=" `(,exec-cmd
,@(map (lambda (item) " 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 -J--enable-preview --full-tailcalls"
(if (char=? (string-ref item 0) #\/)
(string-append item ":")
(string-append pwd "/" item ":")))
(append prepend-directories
append-directories))
" "
,exec-cmd
" 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 -J--enable-preview "
,(util-getenv "COMPILE_R7RS_KAWA") ,(util-getenv "COMPILE_R7RS_KAWA")
" -Dkawa.import.path=" " -Dkawa.import.path="
,@(map (lambda (item) ,@(map (lambda (item)
@ -369,7 +361,8 @@
(string-append item "/*.sld:") (string-append item "/*.sld:")
(string-append pwd "/" item "/*.sld:"))) (string-append pwd "/" item "/*.sld:")))
(append prepend-directories (append prepend-directories
append-directories)) append-directories
(list "/usr/local/share/kawa/lib")))
" -f " " -f "
,script-file ,script-file
" " " "