From 08c2373576c0baeb3a4f13f8ff36d8e65f43137f Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 21 Feb 2010 16:49:58 -0800 Subject: [PATCH] math.blas: update string c-types --- basis/math/blas/matrices/matrices.factor | 8 ++++---- basis/math/blas/vectors/vectors.factor | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/basis/math/blas/matrices/matrices.factor b/basis/math/blas/matrices/matrices.factor index 0a6fc147ad..22c649c544 100644 --- a/basis/math/blas/matrices/matrices.factor +++ b/basis/math/blas/matrices/matrices.factor @@ -305,10 +305,10 @@ M: MATRIX pprint-delims : define-complex-blas-matrix ( TYPE T -- ) "U" "C" (define-blas-matrix) ; -"float" "S" define-real-blas-matrix -"double" "D" define-real-blas-matrix -"complex-float" "C" define-complex-blas-matrix -"complex-double" "Z" define-complex-blas-matrix +float "S" define-real-blas-matrix +double "D" define-real-blas-matrix +complex-float "C" define-complex-blas-matrix +complex-double "Z" define-complex-blas-matrix >> diff --git a/basis/math/blas/vectors/vectors.factor b/basis/math/blas/vectors/vectors.factor index 083400224e..caf0984aa4 100644 --- a/basis/math/blas/vectors/vectors.factor +++ b/basis/math/blas/vectors/vectors.factor @@ -238,10 +238,10 @@ M: VECTOR Vasum [ drop (define-blas-vector) ] [ (define-complex-blas-vector) ] 3bi ; -"float" "S" define-real-blas-vector -"double" "D" define-real-blas-vector -"complex-float" "C" "S" define-complex-blas-vector -"complex-double" "Z" "D" define-complex-blas-vector +float "S" define-real-blas-vector +double "D" define-real-blas-vector +complex-float "C" "S" define-complex-blas-vector +complex-double "Z" "D" define-complex-blas-vector >>