From dcd3938d0d7871e82a2f4f5f49db1b59b56b9faf Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 14 Mar 2014 09:17:13 -0700
Subject: [PATCH] images.loader: simplify registrations.

---
 basis/images/loader/cocoa/cocoa.factor     | 10 ++--------
 basis/images/loader/gdiplus/gdiplus.factor | 10 ++--------
 basis/images/loader/gtk/gtk.factor         | 10 ++--------
 3 files changed, 6 insertions(+), 24 deletions(-)

diff --git a/basis/images/loader/cocoa/cocoa.factor b/basis/images/loader/cocoa/cocoa.factor
index 31c2574acc..8a83cdcd77 100644
--- 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 5ef2bd05ca..26dab0d58d 100644
--- 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
 
 os windows? [
-    "png" gdi+-image register-image-class
-    "tif" gdi+-image register-image-class
-    "tiff" gdi+-image register-image-class
-    "gif" gdi+-image register-image-class
-    "jpg" gdi+-image register-image-class
-    "jpeg" gdi+-image register-image-class
-    "bmp" gdi+-image register-image-class
-    "ico" gdi+-image register-image-class
+    { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
+    [ gdi+-image register-image-class ] each
 ] when
 
 <PRIVATE
diff --git a/basis/images/loader/gtk/gtk.factor b/basis/images/loader/gtk/gtk.factor
index e9d95f9107..80cff3331c 100644
--- 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