Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bring things to new compile-r7rs

This commit is contained in:
retropikzel 2025-07-19 19:46:05 +03:00
parent 254cb2a318
commit c6d515cd4f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -11,7 +11,7 @@ ifeq "${SCHEME}" "chicken"
DOCKERIMG="chicken:5" DOCKERIMG="chicken:5"
endif endif
INCDIRS=-I . -I /usr/local/share/kawa/lib INCDIRS=-I . -I /usr/local/share/kawa/lib
ifeq "${SCHEME}" "ypsilon" ifeq "${SCHEME}" "ypsilon"
INCDIRS=-I . INCDIRS=-I .
endif endif
@ -68,7 +68,7 @@ test: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.
LD_LIBRARY_PATH=. \ LD_LIBRARY_PATH=. \
GUILE_AUTO_COMPILE=0 \ GUILE_AUTO_COMPILE=0 \
timeout 60 \ timeout 60 \
./${TEST} printf "\n" | ./${TEST}
test-compile-r7rs-snow: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.a test-compile-r7rs-snow: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.a
cp tests/*.scm ${TMPDIR}/test/ cp tests/*.scm ${TMPDIR}/test/

2
tests/primitives.scm
View File

@ -345,4 +345,4 @@
(lambda () (read-line)))) (lambda () (read-line))))
(assert equal? (string=? file-content "Hello world 1") #t) (assert equal? (string=? file-content "Hello world 1") #t)
(exit) (exit 0)