diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-20 06:27:51 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-20 06:27:51 +0000 |
| commit | c18e433b18430e31ac9b38fef9fc0a48b4ca77da (patch) | |
| tree | ae5f0d04c7a997eb2263b4821abccc9c27ba8e02 /src/algebra/polycat.spad.pamphlet | |
| parent | 2b21dbe204cbf48aefdf0f2ac591d4f05722c4df (diff) | |
| download | open-axiom-c18e433b18430e31ac9b38fef9fc0a48b4ca77da.tar.gz | |
* algebra/polycat.spad.pamphlet (UnivariatePolynomialCategory)
[divide]: Tidy.
* algebra/Makefile.in (strap-0/%.$(FASLEXT)): Copy generated Lisp
files if keeping intermediate files.
Diffstat (limited to 'src/algebra/polycat.spad.pamphlet')
| -rw-r--r-- | src/algebra/polycat.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/polycat.spad.pamphlet b/src/algebra/polycat.spad.pamphlet index 13e15053..4347438f 100644 --- a/src/algebra/polycat.spad.pamphlet +++ b/src/algebra/polycat.spad.pamphlet @@ -986,7 +986,7 @@ UnivariatePolynomialCategory(R:Ring): Category == degree x divide(x,y) == zero? y => error "division by 0 in Univariate Polynomials" - quot:=0 + quot: % := 0 lc := inv leadingCoefficient y while not zero?(x) and (degree x >= degree y) repeat f:=lc*leadingCoefficient x |