diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-26 14:29:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-26 14:29:42 +0000 |
| commit | 01bdaf0d023c2ec91ebc8f525eef9a2855d65814 (patch) | |
| tree | 630a0f41711badff72987ec110580ad835f2364c /src/algebra/array1.spad.pamphlet | |
| parent | 205e00352c8372e5a4bf59cde160dea017295b6e (diff) | |
| download | open-axiom-01bdaf0d023c2ec91ebc8f525eef9a2855d65814.tar.gz | |
* algebra/newpoint.spad.pamphlet (point$Point): Call vector$Vector.
* algebra/array1.spad.pamphlet (fill!$PrimitiveArray): Use builtin
operation.
Diffstat (limited to 'src/algebra/array1.spad.pamphlet')
| -rw-r--r-- | src/algebra/array1.spad.pamphlet | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/algebra/array1.spad.pamphlet b/src/algebra/array1.spad.pamphlet index 03916478..7fe6df24 100644 --- a/src/algebra/array1.spad.pamphlet +++ b/src/algebra/array1.spad.pamphlet @@ -40,9 +40,7 @@ PrimitiveArray(S:Type): OneDimensionalArrayAggregate S == add setSimpleArrayEntry(x,i,s)$Lisp fill!(x, s) == - for i in 0..maxIndexOfSimpleArray(x)$Lisp repeat - setSimpleArrayEntry(x, i, s)$Lisp - x + FILL(x,s)$Foreign(Builtin) @ |