[Maxima-commits] CVS: maxima/src hyp.lisp,1.39,1.40

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3128/src

Modified Files:
	hyp.lisp 
Log Message:
In LEGEN, use CHECKSIGNTM instead of LESSP.


Index: hyp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/hyp.lisp,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- hyp.lisp	1 Jan 2005 15:49:41 -0000	1.39
+++ hyp.lisp	1 Jan 2005 21:36:44 -0000	1.40
@@ -1490,7 +1490,7 @@
   ;; extended to any expression?  We'll have to ask the user for the
   ;; sign if we can' figure it out ourselves.  Should we?)
   (let ((n (if (and (mnump n)
-		    (lessp n 0))
+		    (eq (checksigntm n) '$negative))
 	       (mul -1 (add 1 n))
 	       n)))
     (cond ((equal m 0)