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

15
libs/implementations.sld
View File

@ -560,7 +560,8 @@
"'#lang r7rs\\n" "'#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" "(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' > " "(include \"" (path->filename library-file) "\")\\n' > "
library-rkt-file)))))) library-rkt-file))
))))
(command . ,(lambda (exec-cmd (command . ,(lambda (exec-cmd
script-file script-file
args args
@ -576,18 +577,14 @@
(change-file-suffix input-file ".rkt")))) (change-file-suffix input-file ".rkt"))))
(apply string-append (apply string-append
`(,exec-cmd `(,exec-cmd
,(if r6rs? " racket "
" plt-r6rs "
" racket ")
,(util-getenv "COMPILE_R7RS_RACKET") ,(util-getenv "COMPILE_R7RS_RACKET")
,(if r6rs? "" " -I r7rs ") ,(if r6rs? " -I scheme/init -l r6rs/run.rkt" " -I r7rs ")
,@(map (lambda (item) ,@(map (lambda (item)
(string-append (string-append " -S " item " "))
(if r6rs? " ++path " " -S ")
item " "))
(append prepend-directories (append prepend-directories
append-directories)) append-directories))
,(if r6rs? "" " --script ") ,(if r6rs? " " " --script ")
,script-file ,script-file
" " " "
,args)))))) ,args))))))