use log-error to report missing ico conversions

Merge to v6.2
This commit is contained in:
Matthew Flatt 2015-04-27 17:23:51 -06:00
parent d48840f23b
commit f43d38914b

View File

@ -247,7 +247,7 @@
(mask->alpha (cvt image) mask))
mask
#t)))))))))])
(unless ico-ico (printf "no! ~a\n" (ico-desc exe-ico)))
(unless ico-ico (log-error "no icon conversion available to ~a" (ico-desc exe-ico)))
(when ico-ico
(file-position p (car (ico-data exe-ico)))
(display (cdr (ico-data ico-ico)) p)))))