From 31d1628a25895f99ecc2d3ba4dfcba907a0b0e68 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 17 Mar 2020 08:18:19 -0500
Subject: read-image to read-png

---
 imbricate.ros | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/imbricate.ros b/imbricate.ros
index 2693a3b..4683fe2 100755
--- a/imbricate.ros
+++ b/imbricate.ros
@@ -32,7 +32,7 @@ exec ros -Q -- $0 "$@"
 (defvar *bad-images* '())
 
 (defun safe-open-image (path)
-  (handler-case (imago:read-image (format nil "~a" path))
+  (handler-case (imago:read-png (format nil "~a" path))
     (error (c)
       (push path *bad-images*)
       nil)))
-- 
cgit v1.2.3