From 5c81f5a89627a71d4e0054730eea47cc99a9cef2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 23 Jun 2010 12:57:00 +0000
Subject: 	* interp/nruncomp.boot (optDeltaEntry): Don't optimize current
 	domain modemap references here. 	* interp/g-opt.boot
 ($VMsideEffectFreeOperators): Include more 	floating point operators. 
 ($simpleVMoperators): Move FUNCALL here. 	(isVMConstantForm): Tidy. 
 * interp/g-util.boot: Expand more floating point insns. 	*
 interp/c-util.boot (replaceSimpleFunctions): Replace more 	constants. 
 * algebra/integer.spad.pamphlet (Integer): More cleanup.  Use 	builtin
 functions. 	* algebra/sf.spad.pamphlet: Likewise.

---
 src/algebra/strap/GCDDOM-.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/algebra/strap/GCDDOM-.lsp')

diff --git a/src/algebra/strap/GCDDOM-.lsp b/src/algebra/strap/GCDDOM-.lsp
index 67277b94..92b58126 100644
--- a/src/algebra/strap/GCDDOM-.lsp
+++ b/src/algebra/strap/GCDDOM-.lsp
@@ -76,7 +76,7 @@
                               (SPADCALL |p1| (|getShellEntry| $ 29))
                               |GCDDOM-;gcdPolynomial;3Sup;4|)
                         (EXIT (COND
-                                ((> |e1| 0)
+                                ((< 0 |e1|)
                                  (SETQ |p1|
                                        (LET
                                         ((#0#
@@ -95,7 +95,7 @@
                               (SPADCALL |p2| (|getShellEntry| $ 29))
                               |GCDDOM-;gcdPolynomial;3Sup;4|)
                         (EXIT (COND
-                                ((> |e2| 0)
+                                ((< 0 |e2|)
                                  (SETQ |p2|
                                        (LET
                                         ((#0#
-- 
cgit v1.2.3