[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el

[Jay Belanger]

Index: emacs/lisp/calc/calcalg2.el
diff -u emacs/lisp/calc/calcalg2.el:1.22 emacs/lisp/calc/calcalg2.el:1.23
--- emacs/lisp/calc/calcalg2.el:1.22    Sun Feb  5 16:29:45 2006
+++ emacs/lisp/calc/calcalg2.el Tue Feb 14 21:39:26 2006
@@ -1253,9 +1253,11 @@
                        (calcFunc-expand temp)
                      (setq v (list 'var 'PARTS math-cur-record)
                            temp (let (calc-next-why)
-                                  (math-solve-for (math-sub v temp) 0 v nil)))
-                     (and temp (not (integerp temp))
-                          (math-simplify-extended temp)))))
+                                   (math-simplify-extended
+                                    (math-solve-for (math-sub v temp) 0 v 
nil)))
+                            temp (if (and (eq (car-safe temp) '/) 
+                                          (math-zerop (nth 2 temp))) 
+                                     nil temp)))))
           (setcar (cdr math-cur-record) 'busy)))))
 
 ;;; This tries two different formulations, hoping the algebraic simplifier