Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix testing

This commit is contained in:
retropikzel 2025-12-11 20:46:11 +02:00
parent 9090ae2fa2
commit 74f3584c4b
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Dockerfile.test
View File

@ -10,7 +10,7 @@ RUN wget https://gitlab.com/-/project/6808260/uploads/094ce726ce3c6cf8c14560f1e3
&& mv akku-1.1.0.amd64-linux akku
RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=2
RUN git clone https://codeberg.org/retropikzel/compile-scheme.git --depth=2
RUN git clone https://github.com/srfi-explorations/r7rs-srfi.git --branch=retropikzel-fixes --depth=3
RUN git clone https://github.com/srfi-explorations/r7rs-srfi.git --branch=retropikzel-fixes --depth=4
WORKDIR /build/chibi-scheme
RUN make
RUN make install
@ -45,8 +45,6 @@ RUN make SCHEME=${SCHEME} SRFI=60 build install
RUN make SCHEME=${SCHEME} SRFI=145 build install
RUN make SCHEME=${SCHEME} SRFI=180 build install
WORKDIR /workdir
#RUN snow-chibi install --impls=${SCHEME} --always-yes "(srfi 180)"
RUN mkdir -p srfi
COPY Makefile .
COPY retropikzel retropikzel/

5
retropikzel/ctrf.sld
View File

@ -41,11 +41,6 @@
(begin
(define (time-ms)
(time-second (current-time)))))
(guile
(import (srfi 19))
(begin
(define (time-ms)
(time-second (current-time)))))
(else
(begin
(define (time-ms) (/ (/ (current-jiffy) (jiffies-per-second)) 1000)))))