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