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

libpng adjustment

Browse Source 
Keep error if no "libpng" is found.
This commit is contained in:
Matthew Flatt 2013-05-15 20:38:40 -06:00
parent 332c863e78
commit f97a7cf177
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/racket/draw/unsafe/png.rkt
View File

@ -12,10 +12,9 @@
;; variants often have just "libpng", etc. ;; variants often have just "libpng", etc.
(let loop ([alts '(("libpng16" ("16" "")) (let loop ([alts '(("libpng16" ("16" ""))
("libpng15" ("15" "")) ("libpng15" ("15" ""))
("libpng12" ("0" "")) ("libpng12" ("0" "")))])
("libpng"))])
(cond (cond
[(null? alts) #f] [(null? alts) (ffi-lib "libpng")]
[else (apply ffi-lib (car alts) [else (apply ffi-lib (car alts)
#:fail (lambda () #:fail (lambda ()
(loop (cdr alts))))]))] (loop (cdr alts))))]))]