diff options
Diffstat (limited to 'src/algebra/fr.spad.pamphlet')
| -rw-r--r-- | src/algebra/fr.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/fr.spad.pamphlet b/src/algebra/fr.spad.pamphlet index de6755c7..a77e5370 100644 --- a/src/algebra/fr.spad.pamphlet +++ b/src/algebra/fr.spad.pamphlet @@ -444,7 +444,7 @@ which causes wrong results as soon as units are involved, for example in v1 := u * reciprocal v goodQuotient:Boolean := true while (goodQuotient and (not empty? x1)) repeat - if x1.first.xpnt < 0 + if negative? x1.first.xpnt then goodQuotient := false else x1 := rest x1 goodQuotient => v1 @@ -457,7 +457,7 @@ which causes wrong results as soon as units are involved, for example in for x in factorList u repeat ucar := unitNormal(x.fctr) e := abs(x.xpnt)::NonNegativeInteger - if x.xpnt < 0 + if negative? x.xpnt then -- associate is recip of unit un := un * (ucar.associate ** e) as := as * (ucar.unit ** e) |