Commit 2f5e75e6 authored by Daniel Kochmański's avatar Daniel Kochmański

fix mistake with sign

parent 0674c0d2
......@@ -129,8 +129,8 @@
;;; ieee-fp tests
(deftest atan.ieee.1 :description "Verify if atan handles 0.0 correctly"
(flet ((+pi-p (elt) (< (abs (- pi elt)) 0.01))
(+pi/2-p (elt) (< (abs (+ (/ pi 2) elt)) 0.01))
(-pi/2-p (elt) (< (abs (- (/ pi 2) elt)) 0.01)))
(+pi/2-p (elt) (< (abs (- (/ pi 2) elt)) 0.01))
(-pi/2-p (elt) (< (abs (+ (/ pi 2) elt)) 0.01)))
;; (atan +-0 +(anything-but-nan)) -> +-0
;; (atan +-0 -(anything-but-nan)) -> +-pi
;; (atan +-(anything-but-0/nan) 0) -> +-pi/2
......
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