From c6d515cd4fd37b5f9926c8d468f28b081de8c0ad Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 19 Jul 2025 19:46:05 +0300
Subject: [PATCH] Bring things to new compile-r7rs

---
 Makefile             | 4 ++--
 tests/primitives.scm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index a1753e9..5338f44 100644
--- a/Makefile
+++ b/Makefile
@@ -11,7 +11,7 @@ ifeq "${SCHEME}" "chicken"
 DOCKERIMG="chicken:5"
 endif
 
-INCDIRS=-I . -I /usr/local/share/kawa/lib 
+INCDIRS=-I . -I /usr/local/share/kawa/lib
 ifeq "${SCHEME}" "ypsilon"
 INCDIRS=-I .
 endif
@@ -68,7 +68,7 @@ test: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.
 		LD_LIBRARY_PATH=. \
 		GUILE_AUTO_COMPILE=0 \
 		timeout 60 \
-		./${TEST}
+		printf "\n" | ./${TEST}
 
 test-compile-r7rs-snow: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.a
 	cp tests/*.scm ${TMPDIR}/test/
diff --git a/tests/primitives.scm b/tests/primitives.scm
index 8e5f88e..b59baf7 100644
--- a/tests/primitives.scm
+++ b/tests/primitives.scm
@@ -345,4 +345,4 @@
                                            (lambda () (read-line))))
 (assert equal? (string=? file-content "Hello world 1") #t)
 
-(exit)
+(exit 0)