Working on test-r7rs

This commit is contained in:
retropikzel 2025-09-29 20:13:38 +03:00
parent 96aede2365
commit 8d99e06cb3
1 changed files with 7 additions and 6 deletions

View File

@ -208,12 +208,13 @@
":5") ":5")
(use-docker-head? ":head") (use-docker-head? ":head")
(else ""))) (else "")))
"RUN mkdir -p ${HOME}/.snow && echo '()' > ${HOME}/.snow/config.scm" ,(string-append "RUN apt-get update && apt-get install -y tree " apt-pkgs)
"COPY --from=retropikzel1/compile-r7rs /opt/compile-r7rs /opt/compile-r7rs" "RUN mkdir -p ${HOME}/.snow && echo '()' > ${HOME}/.snow/config.scm"
"ENV PATH=/opt/compile-r7rs:${PATH}" "COPY --from=retropikzel1/compile-r7rs /opt/compile-r7rs /opt/compile-r7rs"
,(string-append "RUN /opt/compile-r7rs/snow-chibi install --always-yes --impls=" scheme " " snow-pkgs) "ENV PATH=/opt/compile-r7rs:${PATH}"
,(string-append "ENV COMPILE_R7RS=" scheme) ,(string-append "RUN /opt/compile-r7rs/snow-chibi install --always-yes --impls=" scheme " " snow-pkgs)
"WORKDIR /workdir")))) ,(string-append "ENV COMPILE_R7RS=" scheme)
"WORKDIR /workdir"))))
dockerfile-path)) dockerfile-path))
(define (docker-run-cmd tag cmd) (define (docker-run-cmd tag cmd)