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

Cyclone fixes

This commit is contained in:
retropikzel 2025-07-31 14:53:10 +03:00
parent d71e116ef9
commit 041e152237
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -2,7 +2,7 @@ PREFIX=/usr/local
SCHEME=chibi
R6RSTMP=tmp/${SCHEME}-r6rs
R7RSTMP=tmp/${SCHEME}-r7rs
DOCKERIMG=${SCHEME}
DOCKERIMG=${SCHEME}:head
ifeq "${SCHEME}" "chicken"
DOCKERIMG="chicken:5"
endif

20
libs/data.sld
View File

@ -68,9 +68,7 @@
(string-append "-I " item " "))
(append append-directories
prepend-directories))
" "
"-unit"
" "
"-unit "
,unit
" "
"&&"
@ -92,7 +90,6 @@
,@(map (lambda (item)
(string-append "-I " item " "))
(append append-directories prepend-directories))
" "
,@(map (lambda (library-file)
(string-append "-uses "
(if (string-starts-with? library-file "srfi")
@ -119,17 +116,18 @@
,library-file))))
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`("cyclone"
" "
`("cyclone "
,(util-getenv "COMPILE_R7RS_CYCLONE")
" "
"-o"
" "
,output-file
" "
,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories)
,@(map (lambda (item) (string-append "-A " item " ")) append-directories)
,input-file)))))
,input-file
" && "
"mv "
,(string-cut-from-end input-file 4)
" "
,output-file
)))))
(foment
(type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)