From 52060e625396b4ce6b98cba6779044ad09813144 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Sat, 4 Apr 2009 22:45:02 -0500
Subject: [PATCH] Oops dead code

---
 basis/opengl/textures/textures.factor | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/basis/opengl/textures/textures.factor b/basis/opengl/textures/textures.factor
index bb22b4351c..bb232affa4 100755
--- a/basis/opengl/textures/textures.factor
+++ b/basis/opengl/textures/textures.factor
@@ -81,17 +81,13 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
     ] with-texturing ;
 
 : texture-coords ( texture -- coords )
+    [ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
     [
-        [ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
-        [
-            image>> upside-down?>>
-            { { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
-            { { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
-        ] bi
-        [ v* ] with map
-    ] keep
-    drop ! image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when
-    float-array{ } join ;
+        image>> upside-down?>>
+        { { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
+        { { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
+    ] bi
+    [ v* ] with map float-array{ } join ;
 
 : make-texture-display-list ( texture -- dlist )
     GL_COMPILE [ [ dim>> ] keep draw-textured-rect ] make-dlist ;