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

Minor fixes

This commit is contained in:
retropikzel 2025-06-03 18:21:01 +03:00
parent 4cdd8c5dc0
commit 7f995f5035
2 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compile-r7rs.scm
View File

@ -171,13 +171,14 @@
(define scheme-type (cdr (assoc 'type (cdr (assoc scheme data)))))
(define scheme-command
(apply (cdr (assoc 'command (cdr (assoc scheme data))))
(list (if input-file input-file "")
(if output-file output-file "")
prepend-directories
append-directories
library-files
r6rs?)))
(string-append (apply (cdr (assoc 'command (cdr (assoc scheme data))))
(list (if input-file input-file "")
(if output-file output-file "")
prepend-directories
append-directories
library-files
r6rs?))
(string #\newline)))
(define scheme-library-command
(lambda (library-file)

12
libs/data.sld
View File

@ -58,6 +58,10 @@
".a")))
(apply string-append `("csc -R r7rs -X r7rs -static -c -J"
" "
,@(map (lambda (item)
(string-append "-I " item " "))
(append append-directories prepend-directories))
" "
"-unit"
" "
,unit
@ -68,9 +72,7 @@
" "
,(util-getenv "COMPILE_R7RS_CHICKEN")
" "
,(search-library-file (append prepend-directories
append-directories)
library-file)
,(search-library-file (append prepend-directories append-directories) library-file)
" "
"&&"
" "
@ -85,6 +87,10 @@
" "
,(util-getenv "COMPILE_R7RS_CHICKEN")
" "
,@(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")