diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-18 06:14:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-18 06:14:27 +0000 |
| commit | 979b28507f84eff5c739879f4b15e595eeab00f9 (patch) | |
| tree | 4fb4f1ee6472e1ef7290264c83dde41d21031b67 /src/algebra/vector.spad.pamphlet | |
| parent | a6ba684e87ea28ea0a5ad8746a15d3575eb5c8f9 (diff) | |
| download | open-axiom-979b28507f84eff5c739879f4b15e595eeab00f9.tar.gz | |
Define members, not parts
Diffstat (limited to 'src/algebra/vector.spad.pamphlet')
| -rw-r--r-- | src/algebra/vector.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/vector.spad.pamphlet b/src/algebra/vector.spad.pamphlet index fafce6ca..ea83ba12 100644 --- a/src/algebra/vector.spad.pamphlet +++ b/src/algebra/vector.spad.pamphlet @@ -135,7 +135,7 @@ Vector(R:Type): Exports == Implementation where if R has ConvertibleTo InputForm then convert(x:%):InputForm == convert [convert('vector)@InputForm, - convert(parts x)@InputForm] + convert(members x)@InputForm] @ @@ -305,7 +305,7 @@ DirectProduct(dim:NonNegativeInteger, R:Type): coerce(z:%):Vector(R) == copy rep z coerce(r:R):% == per new(dim, r)$Vector(R) - parts x == VEC2LIST(x)$Lisp + members x == VEC2LIST(x)$Lisp directProduct z == #z = dim => per copy z |