suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ffi: put version back in for libraries

Browse Source 
svn: r15401
This commit is contained in:
Jon Rafkind 2009-07-07 21:54:39 +00:00
parent 6af1ab8050
commit 0a0fd6fe44
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/ffi/magick.ss
View File

@ -7,15 +7,14 @@
[exceptions '()]) [exceptions '()])
(if (null? libs*) (if (null? libs*)
(error 'ffi-try-libs "Could not load any of the libraries in ~a\n~a\n" libs exceptions) (error 'ffi-try-libs "Could not load any of the libraries in ~a\n~a\n" libs exceptions)
(let ([lib (car libs*)]) (let ([lib (caar libs*)]
[version (cdar libs*)])
(with-handlers ([exn:fail:filesystem? (lambda (e) (with-handlers ([exn:fail:filesystem? (lambda (e)
(loop (cdr libs*) (cons e exceptions)))]) (loop (cdr libs*) (cons e exceptions)))])
(ffi-lib lib)))))) (ffi-lib lib version))))))
;; Warning! This interface was written for libWand 6.0.1 (define libwand (ffi-try-libs '("libWand" "6.0.1" "6")
;; No guarantees are made about future compatibility '("libMagickWand" "1")))
;; (define libwand (ffi-lib "libWand" "6.0.1"))
(define libwand (ffi-try-libs "libWand" "libMagickWand"))
;; ===== Main Objects ========================================================= ;; ===== Main Objects =========================================================