Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing (atan -0.0 -1.0) case.

Browse source
This commit is contained in:
Alex Shinn 2013-07-13 09:26:25 +09:00
parent a49907b9b6
commit b713fb8c34
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -1175,7 +1175,7 @@
(if (and (inf? x) (inf? y))
(* (if (< y 0) -1 1) (if (= x -inf.0) 3 1) 0.7853981633974483)
(if (negative? x)
(if (negative? y)
(if (or (negative? y) (eqv? y -0.0))
(- (atan1 (/ y x)) 3.141592653589793)
(- 3.141592653589793 (atan1 (/ y (- x)))))
(if (and (zero? x) (zero? y))