remove unnecessary calls to underlying>> from math.blas

db4
Joe Groff 2009-02-09 17:22:43 -06:00
parent 4325f5a7a9
commit bfc2af7ea1
1 changed files with 1 additions and 1 deletions

View File

@ -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