diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-08 05:50:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-08 05:50:08 +0000 |
commit | e2cd076bbdddb3514a36d9de49a96db77951287d (patch) | |
tree | 5920f6052ea21488e77ce317a6f43e857a519b47 /src/algebra/strap/DFLOAT.lsp | |
parent | 6d93161de89559ad66be655a50d3a5001c208c90 (diff) | |
download | open-axiom-e2cd076bbdddb3514a36d9de49a96db77951287d.tar.gz |
Fix AW/103
* algebra/catdef.spad.pamphlet (exquo$EuclideanDomain): Return 0
if first argument is 0.
* algebra/integer.spad.pamphlet (exquo$Integer): Remove.
* testsuite/interpreter/aw-103.input: New.
Diffstat (limited to 'src/algebra/strap/DFLOAT.lsp')
-rw-r--r-- | src/algebra/strap/DFLOAT.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 97c30162..d3096b93 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -904,7 +904,7 @@ (DEFUN |DoubleFloat| () (PROG () (RETURN - (PROG (#0=#:G1562) + (PROG (#0=#:G1561) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|DoubleFloat|) |