images.loader: simplify registrations.

diff --git a/basis/images/loader/cocoa/cocoa.factor b/basis/images/loader/cocoa/cocoa.factor
index 31c2574acc4c9ec544f102a6112a786ca7752678..8a83cdcd7716960c6baf40f38733f82b31f6925d 100644 (file)
--- a/basis/images/loader/cocoa/cocoa.factor
+++ b/basis/images/loader/cocoa/cocoa.factor
@@ -10,14 +10,8 @@ IN: images.loader.cocoa
 SINGLETON: ns-image
 
 os macosx? [
-    "png" ns-image register-image-class
-    "tif" ns-image register-image-class
-    "tiff" ns-image register-image-class
-    "gif" ns-image register-image-class
-    "jpg" ns-image register-image-class
-    "jpeg" ns-image register-image-class
-    "bmp" ns-image register-image-class
-    "ico" ns-image register-image-class
+    { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
+    [ ns-image register-image-class ] each
 ] when
 
 : <CGImage> ( byte-array -- image-rep )

diff --git a/basis/images/loader/gdiplus/gdiplus.factor b/basis/images/loader/gdiplus/gdiplus.factor
index 5ef2bd05ca1608e3c0ef224593c1baa2facadb0b..26dab0d58d2df4c7ff1e6aef32e3a040892cfb94 100644 (file)
--- a/basis/images/loader/gdiplus/gdiplus.factor
+++ b/basis/images/loader/gdiplus/gdiplus.factor
@@ -9,14 +9,8 @@ IN: images.loader.gdiplus
 SINGLETON: gdi+-image\r
 \r
 os windows? [\r
-    "png" gdi+-image register-image-class\r
-    "tif" gdi+-image register-image-class\r
-    "tiff" gdi+-image register-image-class\r
-    "gif" gdi+-image register-image-class\r
-    "jpg" gdi+-image register-image-class\r
-    "jpeg" gdi+-image register-image-class\r
-    "bmp" gdi+-image register-image-class\r
-    "ico" gdi+-image register-image-class\r
+    { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }\r
+    [ gdi+-image register-image-class ] each\r
 ] when\r
 \r
 <PRIVATE\r

diff --git a/basis/images/loader/gtk/gtk.factor b/basis/images/loader/gtk/gtk.factor
index e9d95f9107dcbb0b812b797715530951e14ddbcb..80cff3331cff2f297e345fbeea958e34af6445cc 100644 (file)
--- a/basis/images/loader/gtk/gtk.factor
+++ b/basis/images/loader/gtk/gtk.factor
@@ -13,14 +13,8 @@ SINGLETON: gtk-image
 os linux? [
     ! Explicit type initialization needed for glib < 2.36.
     g_type_init
-    "png"  gtk-image register-image-class
-    "tif"  gtk-image register-image-class
-    "tiff" gtk-image register-image-class
-    "gif"  gtk-image register-image-class
-    "jpg"  gtk-image register-image-class
-    "jpeg" gtk-image register-image-class
-    "bmp"  gtk-image register-image-class
-    "ico"  gtk-image register-image-class
+    { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
+    [ gtk-image register-image-class ] each
 ] when
 
 <PRIVATE