images.loader.cocoa: Fix images on older macOS.

There is probably a better version than 11 to check for.

diff --git a/basis/images/loader/cocoa/cocoa.factor b/basis/images/loader/cocoa/cocoa.factor
index 5d2fac82a13a2b4e01a1d6c36e2513e377be49f9..4307248f8437c006b946998c734840625ac84137 100644 (file)
--- a/basis/images/loader/cocoa/cocoa.factor
+++ b/basis/images/loader/cocoa/cocoa.factor
@@ -5,7 +5,7 @@ cocoa.enumeration cocoa.plists.private core-foundation
 core-foundation.data core-foundation.dictionaries
 core-foundation.strings core-foundation.urls core-graphics
 core-graphics.private core-graphics.types destructors
-images.loader io kernel math sequences system ;
+images.loader io kernel math sequences system system-info ;
 IN: images.loader.cocoa
 
 SINGLETON: ns-image
@@ -29,8 +29,11 @@ FUNCTION: CFDictionaryRef UTTypeCopyDeclaration ( CFStringRef inUTI )
 >>
 
 os macosx? [
-    ! { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" "webp" }
-    supported-ns-image-extensions [ ns-image register-image-class ] each
+    os-version first 11 < [
+        { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" "webp" }
+    ] [
+        supported-ns-image-extensions
+     ] if [ ns-image register-image-class ] each
 ] when
 
 : <CGImage> ( byte-array -- image-rep )