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 Makefile .
COPY compile-r7rs.scm . COPY compile-r7rs.scm .
COPY libs/ libs/ COPY libs/ libs/
#RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1 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 cd chibi-scheme && make -j 32 && make -j 32 install 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 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 (apply string-append
`("printf" `("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) ,(path->filename library-file)
"\")\\n" "\")\\n"
"'" "'"
@ -444,21 +446,17 @@
(lambda () (lambda ()
(display "#lang r7rs") (display "#lang r7rs")
(newline) (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) (newline)
(display "(include \"") (display "(include \"")
(display (path->filename input-file)) (display (path->filename input-file))
(display "\")") (display "\")")
(newline))))) (newline)))))
(apply string-append (apply string-append
`("racket" `("racket "
" "
,(util-getenv "COMPILE_R7RS_RACKET") ,(util-getenv "COMPILE_R7RS_RACKET")
" " " "
"-I" ;"-I " ,(if r6rs? "r6rs " "r7rs ")
" "
,(if r6rs? "r6rs" "r7rs")
" "
,@(map (lambda (item) ,@(map (lambda (item)
(string-append "-S " item " ")) (string-append "-S " item " "))
(append prepend-directories (append prepend-directories