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 '()])
(if (null? libs*)
(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)
(loop (cdr libs*) (cons e exceptions)))])
(ffi-lib lib))))))
;; Warning! This interface was written for libWand 6.0.1
;; No guarantees are made about future compatibility
;; (define libwand (ffi-lib "libWand" "6.0.1"))
(define libwand (ffi-try-libs "libWand" "libMagickWand"))
(ffi-lib lib version))))))
(define libwand (ffi-try-libs '("libWand" "6.0.1" "6")
'("libMagickWand" "1")))
;; ===== Main Objects =========================================================