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 @@
(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))))
......
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