From e410b4f8bb671c49d0b46add881b028f47e93439 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 13 May 2013 01:01:50 +0000
Subject: 	* algebra/carten.spad.pamphlet (CartesianTensor): Use 
 PrimitiveArray in lieu of 0-based IndexedVector.

---
 src/algebra/carten.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra')

diff --git a/src/algebra/carten.spad.pamphlet b/src/algebra/carten.spad.pamphlet
index 7cc2fbbb..1f2a5df9 100644
--- a/src/algebra/carten.spad.pamphlet
+++ b/src/algebra/carten.spad.pamphlet
@@ -238,7 +238,7 @@ CartesianTensor(minix, dim, R): Exports == Implementation where
         -- Use row-major order:
         --   x[h,i,j] <-> x[(h-minix)*dim**2+(i-minix)*dim+(j-minix)]
 
-        Rep := IndexedVector(R,0)
+        Rep := PrimitiveArray R
 
         n:     Integer
 
-- 
cgit v1.2.3