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

Racket fixes

This commit is contained in:
retropikzel 2025-06-07 19:41:15 +03:00
parent 95dc3e9053
commit da0bce61a9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libs/data.sld
View File

@ -438,8 +438,8 @@
" "
,(util-getenv "COMPILE_R7RS_MOSH")
" "
,@(map (lambda (item) (string-append "--loadpath=" item " ")) prepend-directories)
,@(map (lambda (item) (string-append "--loadpath=" item " ")) append-directories)
,@(map (lambda (item) (string-append "--loadpath=" item " "))
(append append-directories prepend-directories))
" "
,input-file)))))
(picrin
@ -460,7 +460,11 @@
(racket
(type . interpreter)
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
(let ((library-rkt-file (change-file-suffix library-file ".rkt")))
(let* ((full-path (search-library-file (append append-directories
prepend-directories)
library-file))
(library-rkt-file (change-file-suffix full-path ".rkt"))
)
(apply string-append
`("printf"
" "