[Maxima-commits] CVS: maxima/src askp.lisp,1.8,1.9

[Barton W. <wil...@us...>]

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

Modified Files:
	askp.lisp 
Log Message:
Applying fix suggested in SF bug # 1122736

Index: askp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/askp.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- askp.lisp	27 Jul 2006 05:37:45 -0000	1.8
+++ askp.lisp	26 Jan 2007 16:43:11 -0000	1.9
@@ -45,7 +45,7 @@
 
 (defmfun ask-integer (x even-odd)
   (setq x (sratsimp (sublis '((z** . 0) (*z* . 0)) x)))
-  (cond ((or (not (free x '$%pi)) (not (free x '$%i)) (ratnump x)) '$no)
+  (cond ((ratnump x) '$no)
 	((eq even-odd '$integer) (ask-integerp x))
 	(t (ask-evod x even-odd))))