From 74f3584c4bdefa7473469d584244e9da2883b00c Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 11 Dec 2025 20:46:11 +0200 Subject: [PATCH] Fix testing --- Dockerfile.test | 4 +--- retropikzel/ctrf.sld | 5 ----- 2 files changed, 1 insertion(+), 8 deletions(-) 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)))))