Retropikzel/compile-scheme
1
0
Fork 0
Code Issues Activity

Chicken and Gambit fixes

Browse Source
This commit is contained in:
Retropikzel
2025-07-17 18:23:07 +03:00
parent cb2092c134
commit 9343f86afd
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libs/data.sld
+13
View File
@@ -105,6 +105,15 @@
,input-file)))))
(cyclone
(type . compiler)
#;(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
(apply string-append
`("cyclone"
" "
,(util-getenv "COMPILE_R7RS_CYCLONE")
" "
,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories)
,@(map (lambda (item) (string-append "-A " item " ")) append-directories)
,library-file))))
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`("cyclone"
@@ -138,6 +147,10 @@
(type . compiler)
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
(apply string-append `("gsc -obj "
,@(map (lambda (item)
(string-append item "/ "))
(append prepend-directories
append-directories))
,(search-library-file (append append-directories
prepend-directories)
library-file)))))