Fix to work with pffi-define-library

2025-03-22 19:25:09 +02:00
parent 603e6e1a50
commit 9f9974e09e
3 changed files with 5 additions and 3 deletions
@@ -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
@@ -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
@@ -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