Updating code for make and fry changes

[factor.git] / extra / math / blas / vectors / vectors.factor

diff --git a/extra/math/blas/vectors/vectors.factor b/extra/math/blas/vectors/vectors.factor
index 87bc6437c31713c1fca027701dc8ceef32159ec9..a135f08f28d3136961c2af375cac3d90e1e6e640 100755 (executable)
--- a/extra/math/blas/vectors/vectors.factor
+++ b/extra/math/blas/vectors/vectors.factor
@@ -62,7 +62,7 @@ METHOD: (blas-vector-like) { object object object double-complex-blas-vector }
     1 ;
 
 MACRO: (do-copy) ( copy make-vector -- )
-    '[ over 6 npick , 2dip 1 @ ] ;
+    '[ over 6 npick _ 2dip 1 @ ] ;
 
 : (prepare-swap) ( v1 v2 -- length v1-data v1-inc v2-data v2-inc v1 v2 )
     [
@@ -105,7 +105,7 @@ MACRO: (do-copy) ( copy make-vector -- )
 MACRO: (complex-nth) ( nth-quot -- )
     '[ 
         [ 2 * dup 1+ ] dip
-        , curry bi@ rect>
+        _ curry bi@ rect>
     ] ;
 
 : (c-complex-nth) ( n alien -- complex )
@@ -120,7 +120,7 @@ MACRO: (set-complex-nth) ( set-nth-quot -- )
             [ 2 * dup 1+ ] bi*
             swapd
         ] dip
-        , curry 2bi@ 
+        _ curry 2bi@ 
     ] ;
 
 : (set-c-complex-nth) ( complex n alien -- )