Fix texture resizing on S3 hardware on Windows. Reported by Kobi Lurie

diff --git a/basis/opengl/textures/textures.factor b/basis/opengl/textures/textures.factor
index 6bed17f7abc81f8fd5c7614afe5fdfabb6b19258..d103e90beec923bac0d4d7de4c1e65dadb26975f 100755 (executable)
--- a/basis/opengl/textures/textures.factor
+++ b/basis/opengl/textures/textures.factor
@@ -45,7 +45,7 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
 
 : adjust-texture-dim ( dim -- dim' )
     non-power-of-2-textures? get [
-        [ next-power-of-2 ] map
+        [ dup 1 = [ next-power-of-2 ] unless ] map
     ] unless ;
 
 : (tex-image) ( image bitmap -- )