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

(limited to 'src/algebra/strap/NNI.lsp')

diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp
index 184b8ab6..eba910e6 100644
--- a/src/algebra/strap/NNI.lsp
+++ b/src/algebra/strap/NNI.lsp
@@ -33,7 +33,7 @@
 (DEFUN |NNI;subtractIfCan;2$U;3| (|x| |y| $)
   (LET ((|c| (- |x| |y|)))
     (COND
-      ((< |c| 0) (CONS 1 "failed"))
+      ((MINUSP |c|) (CONS 1 "failed"))
       ('T
        (CONS 0
              (|check-subtype| (>= |c| 0) '(|NonNegativeInteger|) |c|)))))) 
-- 
cgit v1.2.3