diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2010-04-06 20:43:23 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2010-04-06 20:43:23 -0500 |
| commit | cfd4160dba90f61c9e2c311e0ac79b6ee988fb2e (patch) | |
| tree | f5f9baf6a8c4482f6f533969a18d64ed195f3473 /lisp/calc/calc-frac.el | |
| parent | 317a26be001283988504d544692930af75a92e53 (diff) | |
| download | emacs-cfd4160dba90f61c9e2c311e0ac79b6ee988fb2e.tar.gz emacs-cfd4160dba90f61c9e2c311e0ac79b6ee988fb2e.tar.bz2 emacs-cfd4160dba90f61c9e2c311e0ac79b6ee988fb2e.zip | |
(calcFunc-fdiv): Use `nth' to choose elements from list.
Diffstat (limited to 'lisp/calc/calc-frac.el')
| -rw-r--r-- | lisp/calc/calc-frac.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/calc/calc-frac.el b/lisp/calc/calc-frac.el index d1164bec3c5..265f0b325b9 100644 --- a/lisp/calc/calc-frac.el +++ b/lisp/calc/calc-frac.el @@ -214,20 +214,20 @@ (math-reject-arg a "*Division by zero") (math-make-frac (math-trunc a) (math-trunc b)))) ((eq (car-safe b) 'frac) - (if (Math-zerop (cadr b)) + (if (Math-zerop (nth 1 b)) (math-reject-arg a "*Division by zero") - (math-make-frac (math-mul (math-trunc a) (caddr b)) (cadr b)))) + (math-make-frac (math-mul (math-trunc a) (nth 2 b)) (nth 1 b)))) (t (math-reject-arg b 'integerp)))) ((eq (car-safe a) 'frac) (cond ((Math-num-integerp b) (if (Math-zerop b) (math-reject-arg a "*Division by zero") - (math-make-frac (cadr a) (math-mul (caddr a) (math-trunc b))))) + (math-make-frac (cadr a) (math-mul (nth 2 a) (math-trunc b))))) ((eq (car-safe b) 'frac) - (if (Math-zerop (cadr b)) + (if (Math-zerop (nth 1 b)) (math-reject-arg a "*Division by zero") - (math-make-frac (math-mul (cadr a) (caddr b)) (math-mul (caddr a) (cadr b))))) + (math-make-frac (math-mul (nth 1 a) (nth 2 b)) (math-mul (nth 2 a) (nth 1 b))))) (t (math-reject-arg b 'integerp)))) (t (math-reject-arg a 'integerp)))) |