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/POLYCAT-.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp
index ca4bdc5f..46d17c73 100644
--- a/src/algebra/strap/POLYCAT-.lsp
+++ b/src/algebra/strap/POLYCAT-.lsp
@@ -936,7 +936,7 @@
                          |POLYCAT-;charthRootlv|)
                    (LOOP
                      (COND
-                       ((NOT (> |d| 0)) (RETURN NIL))
+                       ((NOT (< 0 |d|)) (RETURN NIL))
                        (T (SEQ (LETT |dd|
                                      (SPADCALL |d| |ch|
                                       (|getShellEntry| $ 173))
-- 
cgit v1.2.3