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") ,(util-getenv "COMPILE_R7RS_MOSH")
" " " "
,@(map (lambda (item) (string-append "--loadpath=" item " ")) prepend-directories) ,@(map (lambda (item) (string-append "--loadpath=" item " "))
,@(map (lambda (item) (string-append "--loadpath=" item " ")) append-directories) (append append-directories prepend-directories))
" " " "
,input-file))))) ,input-file)))))
(picrin (picrin
@ -460,7 +460,11 @@
(racket (racket
(type . interpreter) (type . interpreter)
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?) (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 (apply string-append
`("printf" `("printf"
" " " "