From 989cb7d5df00151dba54f912f71017686156723c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sun, 7 Jun 2009 20:12:18 -0400
Subject: [PATCH] better implementation of zero-matrix
---
basis/math/matrices/matrices.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index cfdbe17c06..346da45ad8 100755
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -1,12 +1,12 @@
! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: arrays kernel math math.order math.vectors
+USING: arrays fry kernel math math.order math.vectors
sequences sequences.private accessors columns ;
IN: math.matrices
! Matrices
: zero-matrix ( m n -- matrix )
- [ nip 0 <array> ] curry map ;
+ '[ _ 0 <array> ] replicate ;
: identity-matrix ( n -- matrix )
#! Make a nxn identity matrix.
@@ -60,4 +60,4 @@ PRIVATE>
gram-schmidt [ normalize ] map ;
: cross-zip ( seq1 seq2 -- seq1xseq2 )
- [ [ 2array ] with map ] curry map ;
\ No newline at end of file
+ [ [ 2array ] with map ] curry map ;