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

Added manifest, started fixing docker tests

This commit is contained in:
retropikzel 2025-02-12 19:20:10 +02:00
parent 7fca3f383a
commit a058d1b0b2
3 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -95,8 +95,8 @@ test-gerbil:
${GERBIL} test.scm ${GERBIL} test.scm
GUILE=guile --r7rs --fresh-auto-compile -L . GUILE=guile --r7rs --fresh-auto-compile -L .
test-guile-podman-amd64: libtest.so test-guile-docker: libtest.so
podman run --arch=amd64 -it -v ${PWD}:/workdir docker.io/schemers/guile bash -c "cd /workdir && ${GUILE} test.scm" ${DOCKER} schemers/guile:head bash -c "cd /workdir && ${GUILE} test.scm"
test-guile: libtest.so test-guile: libtest.so
${GUILE} test.scm ${GUILE} test.scm

6
manifest.scm
View File

@ -2,8 +2,4 @@
;; You can store it in a file that you may then pass to any 'guix' command ;; You can store it in a file that you may then pass to any 'guix' command
;; that accepts a '--manifest' (or '-m') option. ;; that accepts a '--manifest' (or '-m') option.
(concatenate-manifests (specifications->manifest (list "gcc-toolchain"))
(list (specifications->manifest
(list "chibi-scheme" "libffi"))
(package->development-manifest
(specification->package "chibi-scheme"))))

2
retropikzel/r7rs-pffi/guile.scm
View File

@ -70,7 +70,7 @@
(pointer->string pointer))) (pointer->string pointer)))
(define pffi-shared-object-load (define pffi-shared-object-load
(lambda (header path) (lambda (header path . options)
(load-foreign-library path))) (load-foreign-library path)))
(define pffi-pointer-free (define pffi-pointer-free