core/basis/extra: using while* in a few places.

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

diff --git a/extra/images/atlas/atlas.factor b/extra/images/atlas/atlas.factor
index 7546ff8db9d4edb666c2db61d8348f74bda7e18b..84e9b90f3c07ed807f81f04cce26ef414b72c174 100644 (file)
--- a/extra/images/atlas/atlas.factor
+++ b/extra/images/atlas/atlas.factor
@@ -47,7 +47,7 @@ ERROR: atlas-image-formats-dont-match images ;
 :: (pack-images) ( images atlas-width sort-quot -- placements )
     images sort-quot inv-sort-with [ f image-placement boa ] map :> image-placements
     0 :> @y!
-    [ image-placements atlas-width @y (pack-stripe) dup ] [ @y + @y! ] while drop
+    [ image-placements atlas-width @y (pack-stripe) ] [ @y + @y! ] while*
     image-placements ; inline
 
 : atlas-image-format ( image-placements -- component-order component-type upside-down? )