From acdd8a090f7199c255043204b9e492ffd58230c7 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sun, 28 Apr 2024 11:57:27 +0300 Subject: [PATCH] Additional paths no longer optional argument on auto load --- retropikzel/pffi/v0.1.0/main.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/retropikzel/pffi/v0.1.0/main.scm b/retropikzel/pffi/v0.1.0/main.scm index f636a76..af872e0 100644 --- a/retropikzel/pffi/v0.1.0/main.scm +++ b/retropikzel/pffi/v0.1.0/main.scm @@ -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