From 9f9974e09ee7589433249f55b04ffa76a0c72d34 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 22 Mar 2025 19:25:09 +0200 Subject: [PATCH] Fix to work with pffi-define-library --- README.md | 3 +++ retropikzel/pffi.sld | 3 +-- retropikzel/pffi/ypsilon.scm | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index e216cfe..6912bac 100644 --- a/README.md +++ b/README.md @@ -303,8 +303,11 @@ Example: (additiona-paths (".")))))) #### Notes + - Do not cond-expand inside the arguments, that might lead to problems on some implementations. +- Do not store options in variables, that might lead to problems on some +implementations. - Do pass the headers using quote - As '(... and not (list... - Do pass the options using quote diff --git a/retropikzel/pffi.sld b/retropikzel/pffi.sld index 03ec776..8987ef8 100644 --- a/retropikzel/pffi.sld +++ b/retropikzel/pffi.sld @@ -504,8 +504,7 @@ pffi-size-of pffi-type? pffi-align-of - pffi-shared-object-auto-load - pffi-shared-object-load + pffi-define-library pffi-pointer-null pffi-pointer-null? pffi-pointer-allocate diff --git a/retropikzel/pffi/ypsilon.scm b/retropikzel/pffi/ypsilon.scm index 0f28fd7..5b135d6 100644 --- a/retropikzel/pffi/ypsilon.scm +++ b/retropikzel/pffi/ypsilon.scm @@ -115,7 +115,7 @@ ((equal? type 'pointer) (bytevector-c-void*-ref bv 0)))))) (define pffi-shared-object-load - (lambda (headers path . options) + (lambda (headers path options) (load-shared-object path))) (define pffi-type->native-type