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

Compare commits

base: Retropikzel:982d23ef38033ffdc88868953513555f441237fc
Branches Tags
Retropikzel:main
..
compare: Retropikzel:74f3584c4bdefa7473469d584244e9da2883b00c
Branches Tags
Retropikzel:main

4 Commits
982d23ef38 ... 74f3584c4b

Author SHA1 Message Date
retropikzel 74f3584c4b Fix testing 2025-12-11 20:46:11 +02:00
retropikzel 9090ae2fa2 Fix testing 2025-12-11 20:37:10 +02:00
retropikzel 0a1a8cec7a Fix testing 2025-12-11 20:32:30 +02:00
retropikzel 7747d71ec9 Fix testing 2025-12-11 20:17:44 +02:00
2 changed files with 8 additions and 9 deletions
Show Stats Expand all files Collapse all files

12
Dockerfile.test
View File

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

5
retropikzel/ctrf.sld
View File

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