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 SCHEME=chibi
R6RSTMP=tmp/${SCHEME}-r6rs R6RSTMP=tmp/${SCHEME}-r6rs
R7RSTMP=tmp/${SCHEME}-r7rs R7RSTMP=tmp/${SCHEME}-r7rs
DOCKERIMG=${SCHEME} DOCKERIMG=${SCHEME}:head
ifeq "${SCHEME}" "chicken" ifeq "${SCHEME}" "chicken"
DOCKERIMG="chicken:5" DOCKERIMG="chicken:5"
endif endif

20
libs/data.sld
View File

@ -68,9 +68,7 @@
(string-append "-I " item " ")) (string-append "-I " item " "))
(append append-directories (append append-directories
prepend-directories)) prepend-directories))
" " "-unit "
"-unit"
" "
,unit ,unit
" " " "
"&&" "&&"
@ -92,7 +90,6 @@
,@(map (lambda (item) ,@(map (lambda (item)
(string-append "-I " item " ")) (string-append "-I " item " "))
(append append-directories prepend-directories)) (append append-directories prepend-directories))
" "
,@(map (lambda (library-file) ,@(map (lambda (library-file)
(string-append "-uses " (string-append "-uses "
(if (string-starts-with? library-file "srfi") (if (string-starts-with? library-file "srfi")
@ -119,17 +116,18 @@
,library-file)))) ,library-file))))
(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
`("cyclone" `("cyclone "
" "
,(util-getenv "COMPILE_R7RS_CYCLONE") ,(util-getenv "COMPILE_R7RS_CYCLONE")
" " " "
"-o"
" "
,output-file
" "
,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories) ,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories)
,@(map (lambda (item) (string-append "-A " item " ")) append-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 (foment
(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?)