Fix mit scheme

This commit is contained in:
retropikzel 2025-07-15 20:26:31 +03:00
parent 7c16e623a7
commit 430aafe647
1 changed files with 10 additions and 7 deletions

View File

@ -241,10 +241,8 @@
" "
,@(map (lambda (item)
(string-append "-L" " " item " "))
prepend-directories)
,@(map (lambda (item)
(string-append "-L" " " item " "))
append-directories)
(append prepend-directories
append-directories))
" "
,input-file)))))
(husk
@ -390,9 +388,14 @@
" "
,(util-getenv "COMPILE_R7RS_MIT_SCHEME")
" "
,@(map (lambda (item)
(string-append "--load " item " "))
library-files)
,@(map
(lambda (item)
(string-append "--load "
(search-library-file (append append-directories
prepend-directories)
item)
" "))
library-files)
" "
"--load"
" "