libpng adjustment

Keep error if no "libpng" is found.
2013-05-15 20:38:40 -06:00 · 2013-05-15 20:38:40 -06:00 · f97a7cf177
commit f97a7cf177
parent 332c863e78
1 changed files with 2 additions and 3 deletions
--- a/collects/racket/draw/unsafe/png.rkt
+++ b/collects/racket/draw/unsafe/png.rkt
@ -12,10 +12,9 @@
   ;; variants often have just "libpng", etc.
   (let loop ([alts '(("libpng16" ("16" ""))
                      ("libpng15" ("15" ""))
-                      ("libpng12" ("0" ""))
-                      ("libpng"))])
+                      ("libpng12" ("0" "")))])
     (cond
-      [(null? alts) #f]
+      [(null? alts) (ffi-lib "libpng")]
      [else (apply ffi-lib (car alts)
                   #:fail (lambda ()
                            (loop (cdr alts))))]))]