Fix to work with pffi-define-library

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

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

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