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

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

diff --git a/Makefile b/Makefile
index 4ce12d8..a1753e9 100644
--- a/Makefile
+++ b/Makefile
@@ -6,11 +6,16 @@ VERSION=$(shell awk '/version:/{ print $$2 }' README.md )
 TEST=primitives
 SCHEME=chibi
 TMPDIR=tmp/${SCHEME}
-DOCKERIMG=${SCHEME}:head
+DOCKERIMG=${SCHEME}
 ifeq "${SCHEME}" "chicken"
 DOCKERIMG="chicken:5"
 endif
 
+INCDIRS=-I . -I /usr/local/share/kawa/lib 
+ifeq "${SCHEME}" "ypsilon"
+INCDIRS=-I .
+endif
+
 all: build ${TMPDIR}
 
 build:
@@ -58,7 +63,7 @@ test: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.
 		COMPILE_R7RS_CHICKEN="-L -ltest -I. -L." \
 		COMPILE_R7RS_KAWA="-J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED -J--add-exports=java.base/jdk.internal.foreign.layout=ALL-UNNAMED -J--add-exports=java.base/jdk.internal.foreign=ALL-UNNAMED -J--enable-native-access=ALL-UNNAMED -J--enable-preview" \
 		COMPILE_R7RS=${SCHEME} \
-		compile-r7rs -I . -I /usr/local/share/kawa/lib -o ${TEST} ${TEST}.scm
+		compile-r7rs ${INCDIRS} -o ${TEST} ${TEST}.scm
 	cd ${TMPDIR}/test && \
 		LD_LIBRARY_PATH=. \
 		GUILE_AUTO_COMPILE=0 \
diff --git a/tests/primitives.scm b/tests/primitives.scm
index 9b258c1..8e5f88e 100644
--- a/tests/primitives.scm
+++ b/tests/primitives.scm
@@ -1,6 +1,6 @@
 (import (scheme base)
         (scheme write)
-	(scheme read)
+        (scheme read)
         (scheme char)
         (scheme file)
         (scheme process-context)
@@ -342,7 +342,7 @@
 (assert equal? (= closed-status 0) #t)
 (assert equal? (file-exists? "testfile.test") #t)
 (define file-content (with-input-from-file "testfile.test"
-					       (lambda () (read-line))))
+                                           (lambda () (read-line))))
 (assert equal? (string=? file-content "Hello world 1") #t)
 
 (exit)