diff --git a/Dockerfile.test b/Dockerfile.test index e724f31..a8ccfeb 100644 --- a/Dockerfile.test +++ b/Dockerfile.test @@ -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/ diff --git a/retropikzel/ctrf.sld b/retropikzel/ctrf.sld index 5464b76..78137ca 100644 --- a/retropikzel/ctrf.sld +++ b/retropikzel/ctrf.sld @@ -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)))))