From 0580b67542ce42ebafdb7ad52eb213465d9a0f14 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 20 Feb 2009 23:30:41 -0600
Subject: [PATCH] Fix textures with zero width and non-zero height (or vice
 versa) by not rendering them

---
 basis/opengl/textures/textures.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/opengl/textures/textures.factor b/basis/opengl/textures/textures.factor
index ee25be1d8c..f65a7ac222 100644
--- 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