Using "same?" in more places.

[factor.git] / extra / images / atlas / atlas.factor

diff --git a/extra/images/atlas/atlas.factor b/extra/images/atlas/atlas.factor
index db1f0c2cafa5cabdfab6a181b24f619636b85532..8da73585ad4917a71101cabebac22b6e9f7e187b 100644 (file)
--- a/extra/images/atlas/atlas.factor
+++ b/extra/images/atlas/atlas.factor
@@ -51,9 +51,9 @@ ERROR: atlas-image-formats-dont-match images ;
 
 : atlas-image-format ( image-placements -- component-order component-type upside-down? )
     [ image>> ] map dup unclip '[ _
-        [ [ component-order>> ] bi@ = ]
-        [ [ component-type>>  ] bi@ = ]
-        [ [ upside-down?>>    ] bi@ = ] 2tri and and
+        [ [ component-order>> ] same? ]
+        [ [ component-type>>  ] same? ]
+        [ [ upside-down?>>    ] same? ] 2tri and and
     ] all?
     [ first [ component-order>> ] [ component-type>> ] [ upside-down?>> ] tri ]
     [ atlas-image-formats-dont-match ] if ; inline