From 77c56e55a3d3c1d0c7e3d1cb9f6db20d6961df44 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 23 Apr 2009 03:57:05 -0500
Subject: [PATCH] Oops

---
 basis/math/matrices/matrices.factor | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 4c2c641c84..cfdbe17c06 100755
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -25,19 +25,9 @@ IN: math.matrices
 : m*   ( m m -- m ) [ v* ] 2map ;
 : m/   ( m m -- m ) [ v/ ] 2map ;
 
-TUPLE: flipped { seq read-only } ;
-
-M: flipped length seq>> first length ;
-
-M: flipped nth-unsafe seq>> swap <column> ;
-
-INSTANCE: flipped sequence
-
-C: <flipped> flipped
-
-: v.m ( v m -- v ) <flipped> [ v. ] with map ;
-: m.v ( m v -- v ) [ v. ] curry map ; inline
-: m.  ( m m -- m ) <flipped> [ swap m.v ] curry map ;
+: v.m ( v m -- v ) flip [ v. ] with map ;
+: m.v ( m v -- v ) [ v. ] curry map ;
+: m.  ( m m -- m ) flip [ swap m.v ] curry map ;
 
 : mmin ( m -- n ) [ 1/0. ] dip [ [ min ] each ] each ;
 : mmax ( m -- n ) [ -1/0. ] dip [ [ max ] each ] each ;