From b8152cf5b834ba76e2a640f4add15c0eb1755e20 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Thu, 16 Jul 2026 10:18:07 +0300
Subject: [PATCH] file-append cleanup. Improve tests

---
 Makefile                        | 4 ++--
 retropikzel/file-append.scm     | 1 -
 retropikzel/file-append/VERSION | 2 +-
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/Makefile b/Makefile
index 21d58a8..889f72b 100644
--- a/Makefile
+++ b/Makefile
@@ -81,8 +81,8 @@ test-docker: testfiles
 		DOCKER_TAG=${DOCKER_TAG} \
 		COMPILE_R7RS=${SCHEME} \
 		CSC_OPTIONS="${CSC_OPTIONS}" \
-		SNOW_PACKAGES="srfi.64 ${PKG}" \
-		AKKU_PACKAGES="akku-r7rs" \
+		SNOW_PACKAGES="srfi.64 foreign.c ${PKG}" \
+		AKKU_PACKAGES="akku-r7rs '(foreign c)' '(retropikzel ${LIBRARY})'" \
 		APT_PACKAGES="${APT_PACKAGES}" \
 		PASS_ENV_VARS="CSC_OPTIONS" \
 		test-r7rs ${LIB_PATHS} -o test-program test.${SFX}
diff --git a/retropikzel/file-append.scm b/retropikzel/file-append.scm
index 247b2e9..379146d 100644
--- a/retropikzel/file-append.scm
+++ b/retropikzel/file-append.scm
@@ -1,7 +1,6 @@
 (define-c-library libc '("stdio.h") #f ())
 
 (define-c-procedure c-fopen libc 'fopen 'pointer '(pointer pointer))
-;(define-c-procedure c-fputs libc 'fputs 'int '(pointer pointer))
 (define-c-procedure c-fputc libc 'fputc 'int '(int pointer))
 (define-c-procedure c-fclose libc 'fclose 'int '(pointer))
 
diff --git a/retropikzel/file-append/VERSION b/retropikzel/file-append/VERSION
index 0ea3a94..0c62199 100644
--- a/retropikzel/file-append/VERSION
+++ b/retropikzel/file-append/VERSION
@@ -1 +1 @@
-0.2.0
+0.2.1