mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

PHASE of 0 is zero by definition.

Browse source
This commit is contained in:
jjgarcia 2003-12-19 11:15:40 +00:00
parent d0eeede5e0
commit 0ec3ff5cc6
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/numlib.lsp
View file

@ -53,7 +53,9 @@ Returns the absolute value of NUMBER."
"Args: (number)
Returns the angle part (in radians) of the polar representation of NUMBER.
Returns zero for non-complex numbers."
(atan (imagpart x) (realpart x)))
(if (zerop x)
(float 0 (realpart x))
(atan (imagpart x) (realpart x))))
(defun signum (x)
"Args: (number)