Fix textures with zero width and non-zero height (or vice versa) by not rendering...

diff --git a/basis/opengl/textures/textures.factor b/basis/opengl/textures/textures.factor
index ee25be1d8ce60a0961e40037e7d8cbe65dd80575..f65a7ac22280fd490f2b24355cd6a72682b1bbd0 100644 (file)
--- a/basis/opengl/textures/textures.factor
+++ b/basis/opengl/textures/textures.factor
@@ -96,7 +96,7 @@ PRIVATE>
     texture new swap >>loc
     swap
     [ dim>> >>dim ] keep
-    [ dim>> { 0 0 } = ] keep '[
+    [ dim>> product 0 = ] keep '[
         _
         [ dim>> texture-coords >>texture-coords ]
         [ power-of-2-image make-texture >>texture ] bi