diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-03 04:23:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-03 04:23:42 +0000 |
commit | 001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532 (patch) | |
tree | da9e2fe5d81ff4cd7709d12e44b8c3e348b8a8e3 /src/algebra/asp.spad.pamphlet | |
parent | a7bab9a6c2070d05e2dbd256ce455079c8ced385 (diff) | |
download | open-axiom-001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532.tar.gz |
Replace `^=' with `~='.
Diffstat (limited to 'src/algebra/asp.spad.pamphlet')
-rw-r--r-- | src/algebra/asp.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/asp.spad.pamphlet b/src/algebra/asp.spad.pamphlet index 7899fb39..7eb29854 100644 --- a/src/algebra/asp.spad.pamphlet +++ b/src/algebra/asp.spad.pamphlet @@ -3279,7 +3279,7 @@ Asp73(name): Exports == Implementation where assign(u,(v::EXPR MachineFloat)$FEXPR)$FortranCode coerce(u:VEC FEXPR):$ == - maxIndex(u) ^= 7 => error "Vector is not of dimension 7" + maxIndex(u) ~= 7 => error "Vector is not of dimension 7" [localAssign(ALPHA@Symbol,elt(u,1)),_ localAssign(BETA@Symbol,elt(u,2)),_ localAssign(GAMMA@Symbol,elt(u,3)),_ @@ -3447,7 +3447,7 @@ Asp74(name): Exports == Implementation where localAssign(u:Symbol,v:FEXPR):FC == assign(u,(v::EXPR MFLOAT)$FEXPR)$FC coerce(u:MAT FEXPR):$ == - (nrows(u) ^= 4 or ncols(u) ^= 3) => error "Not a 4X3 matrix" + (nrows(u) ~= 4 or ncols(u) ~= 3) => error "Not a 4X3 matrix" flag:U := [IBND@Symbol::EXPR INT]$U pt0:U := [0::EXPR INT]$U pt1:U := [1::EXPR INT]$U |