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

Additional paths no longer optional argument on auto load

This commit is contained in:
retropikzel 2024-04-28 11:57:27 +03:00
parent b59d1f272b
commit acdd8a090f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
retropikzel/pffi/v0.1.0/main.scm
View File

@ -204,11 +204,13 @@
(cond-expand (sagittarius (open-shared-library path)))))
(define pffi-shared-object-auto-load
(lambda (object-name . additional-paths)
(lambda (object-name additional-paths)
(let* ((paths (append auto-load-paths additional-paths))
(shared-object #f))
(for-each
(lambda (path)
(write path)
(newline)
(if (not shared-object)
(let ((object-path (string-append path
"/"
@ -239,7 +241,7 @@
(set! shared-object (pffi-shared-object-load object-version-lib-path)))))))
paths)
(if (not shared-object)
(error (string-append "Could not load shared object: " object-name))
(error "Could not load shared object" object-name)
shared-object))))
(define pffi-pointer-free