Commit cfd4160d authored by Jay Belanger's avatar Jay Belanger
Browse files

(calcFunc-fdiv): Use `nth' to choose elements from list.

parent 317a26be
...@@ -214,20 +214,20 @@ ...@@ -214,20 +214,20 @@
(math-reject-arg a "*Division by zero") (math-reject-arg a "*Division by zero")
(math-make-frac (math-trunc a) (math-trunc b)))) (math-make-frac (math-trunc a) (math-trunc b))))
((eq (car-safe b) 'frac) ((eq (car-safe b) 'frac)
(if (Math-zerop (cadr b)) (if (Math-zerop (nth 1 b))
(math-reject-arg a "*Division by zero") (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)))) (t (math-reject-arg b 'integerp))))
((eq (car-safe a) 'frac) ((eq (car-safe a) 'frac)
(cond (cond
((Math-num-integerp b) ((Math-num-integerp b)
(if (Math-zerop b) (if (Math-zerop b)
(math-reject-arg a "*Division by zero") (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) ((eq (car-safe b) 'frac)
(if (Math-zerop (cadr b)) (if (Math-zerop (nth 1 b))
(math-reject-arg a "*Division by zero") (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 b 'integerp))))
(t (t
(math-reject-arg a 'integerp)))) (math-reject-arg a 'integerp))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment