remove unnecessary calls to underlying>> from math.blas

diff --git a/basis/math/blas/vectors/vectors.factor b/basis/math/blas/vectors/vectors.factor
index a373ec7c5a413f034dd47bd85577c61beddc0b57..84b5fd9e6f707490ca013ac89a3c997e93a71daa 100755 (executable)
--- a/basis/math/blas/vectors/vectors.factor
+++ b/basis/math/blas/vectors/vectors.factor
@@ -33,7 +33,7 @@ GENERIC: (blas-direct-array) ( blas-vector -- direct-array )
 : shorter-length ( v1 v2 -- length )
     [ length>> ] bi@ min ; inline
 : data-and-inc ( v -- data inc )
-    [ underlying>> ] [ inc>> ] bi ; inline
+    [ ] [ inc>> ] bi ; inline
 : datas-and-incs ( v1 v2 -- v1-data v1-inc v2-data v2-inc )
     [ data-and-inc ] bi@ ; inline