Retropikzel
/
compile-scheme
1
0
Fork 0
Code Issues

Fix Racket r6rs

This commit is contained in:
retropikzel 2025-12-26 16:32:46 +02:00
parent 38087f7ee8
commit 4cdf740096
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libs/implementations.sld
View File

@ -560,7 +560,8 @@
"'#lang r7rs\\n"
"(import (except (scheme base) let let-values let*-values string-copy string-copy! string-for-each string-map string-fill! string->list))\\n"
"(include \"" (path->filename library-file) "\")\\n' > "
library-rkt-file))))))
library-rkt-file))
))))
(command . ,(lambda (exec-cmd
script-file
args
@ -576,15 +577,11 @@
(change-file-suffix input-file ".rkt"))))
(apply string-append
`(,exec-cmd
,(if r6rs?
" plt-r6rs "
" racket ")
" racket "
,(util-getenv "COMPILE_R7RS_RACKET")
,(if r6rs? "" " -I r7rs ")
,(if r6rs? " -I scheme/init -l r6rs/run.rkt" " -I r7rs ")
,@(map (lambda (item)
(string-append
(if r6rs? " ++path " " -S ")
item " "))
(string-append " -S " item " "))
(append prepend-directories
append-directories))
,(if r6rs? " " " --script ")