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

Racket fixes

This commit is contained in:
retropikzel 2025-08-24 10:28:36 +03:00
parent c717aeadde
commit 39df72eeaa
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Dockerfile
View File

@ -17,8 +17,7 @@ WORKDIR /builddir
COPY Makefile .
COPY compile-r7rs.scm .
COPY libs/ libs/
#RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1
RUN git clone https://github.com/Retropikzel/chibi-scheme.git --depth=1 --branch=snow-chibi-chicken-static
RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1
RUN cd chibi-scheme && make -j 32 && make -j 32 install
RUN make PREFIX=/opt/compile-r7rs build-chicken-static && make PREFIX=/opt/compile-r7rs install

14
libs/data.sld
View File

@ -423,7 +423,9 @@
(apply string-append
`("printf"
" "
"'#lang r7rs\\n(import (only (scheme base) include))\\n(include \""
"'#lang r7rs\\n"
"(import (except (scheme base) let string-copy string-copy! string-for-each string-map string-fill! string->list))\\n"
"(include \""
,(path->filename library-file)
"\")\\n"
"'"
@ -444,21 +446,17 @@
(lambda ()
(display "#lang r7rs")
(newline)
(display "(import (scheme base))")
(display "(import (except (scheme base) let string-copy string-copy! string-for-each string-map string-fill! string->list))")
(newline)
(display "(include \"")
(display (path->filename input-file))
(display "\")")
(newline)))))
(apply string-append
`("racket"
" "
`("racket "
,(util-getenv "COMPILE_R7RS_RACKET")
" "
"-I"
" "
,(if r6rs? "r6rs" "r7rs")
" "
;"-I " ,(if r6rs? "r6rs " "r7rs ")
,@(map (lambda (item)
(string-append "-S " item " "))
(append prepend-directories