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

file-append cleanup. Improve tests

This commit is contained in:
retropikzel 2026-07-16 10:18:07 +03:00
parent 62ab966b7b
commit b8152cf5b8
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -81,8 +81,8 @@ test-docker: testfiles
DOCKER_TAG=${DOCKER_TAG} \ DOCKER_TAG=${DOCKER_TAG} \
COMPILE_R7RS=${SCHEME} \ COMPILE_R7RS=${SCHEME} \
CSC_OPTIONS="${CSC_OPTIONS}" \ CSC_OPTIONS="${CSC_OPTIONS}" \
SNOW_PACKAGES="srfi.64 ${PKG}" \ SNOW_PACKAGES="srfi.64 foreign.c ${PKG}" \
AKKU_PACKAGES="akku-r7rs" \ AKKU_PACKAGES="akku-r7rs '(foreign c)' '(retropikzel ${LIBRARY})'" \
APT_PACKAGES="${APT_PACKAGES}" \ APT_PACKAGES="${APT_PACKAGES}" \
PASS_ENV_VARS="CSC_OPTIONS" \ PASS_ENV_VARS="CSC_OPTIONS" \
test-r7rs ${LIB_PATHS} -o test-program test.${SFX} test-r7rs ${LIB_PATHS} -o test-program test.${SFX}

1
retropikzel/file-append.scm
View File

@ -1,7 +1,6 @@
(define-c-library libc '("stdio.h") #f ()) (define-c-library libc '("stdio.h") #f ())
(define-c-procedure c-fopen libc 'fopen 'pointer '(pointer pointer)) (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-fputc libc 'fputc 'int '(int pointer))
(define-c-procedure c-fclose libc 'fclose 'int '(pointer)) (define-c-procedure c-fclose libc 'fclose 'int '(pointer))

2
retropikzel/file-append/VERSION
View File

@ -1 +1 @@
0.2.0 0.2.1