Dockerfile.test

@@ -8,9 +8,9 @@ WORKDIR /build
 RUN wget https://gitlab.com/-/project/6808260/uploads/094ce726ce3c6cf8c14560f1e31aaea0/akku-1.1.0.amd64-linux.tar.xz \
     && tar -xf akku-1.1.0.amd64-linux.tar.xz \
     && mv akku-1.1.0.amd64-linux akku
-RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=2
+RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1
 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=4
+RUN git clone https://github.com/srfi-explorations/r7rs-srfi.git --branch=retropikzel-fixes --depth=2
 WORKDIR /build/chibi-scheme
 RUN make
 RUN make install
@@ -39,12 +39,8 @@ ENV PATH=/root/.local/bin:${PATH}
 RUN akku update
 WORKDIR /workdir
 RUN snow-chibi install --impls=${SCHEME} --always-yes "(srfi 64)"
-RUN snow-chibi update
-WORKDIR /build/r7rs-srfi
-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/
 

retropikzel/ctrf.sld

@@ -41,6 +41,11 @@
       (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)))))