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

[Jay Belanger]

Index: emacs/lisp/calc/calc-alg.el
diff -c emacs/lisp/calc/calc-alg.el:1.9 emacs/lisp/calc/calc-alg.el:1.10
*** emacs/lisp/calc/calc-alg.el:1.9     Wed Nov 17 19:21:57 2004
--- emacs/lisp/calc/calc-alg.el Thu Nov 18 16:30:27 2004
***************
*** 501,509 ****
                            (eq signs 5))
                       math-living-dangerously)))
             (math-numberp (car np)))
!        (let ((n (car np))
!              d dd
!              (safe t) (scalar (math-known-scalarp n)))
           (while (and (eq (car-safe (setq d (car dp))) '*)
                       safe)
             (math-simplify-one-divisor np (cdr d))
--- 501,509 ----
                            (eq signs 5))
                       math-living-dangerously)))
             (math-numberp (car np)))
!        (let (d
!                (safe t) 
!                (scalar (math-known-scalarp (car np))))
           (while (and (eq (car-safe (setq d (car dp))) '*)
                       safe)
             (math-simplify-one-divisor np (cdr d))