From f97a7cf1778b74e9f38d97db61e91956565180c3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 15 May 2013 20:38:40 -0600 Subject: [PATCH] libpng adjustment Keep error if no "libpng" is found. --- collects/racket/draw/unsafe/png.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/racket/draw/unsafe/png.rkt b/collects/racket/draw/unsafe/png.rkt index a6b028d996..f57de38567 100644 --- 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))))]))]