# HG changeset patch
# User jwe
# Date 1014433465 0
# Node ID da64ef591f18155bb7b1cfddb093d6cd5b7211d2
# Parent  57d51184b6696f1e5f6ba9391ee2fc9a2eebcd6d
[project @ 2002-02-23 03:04:25 by jwe]

diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-22  Paul Kienzle <pkienzle@jazz.ncnr.nist.gov>
+
+	* lo-mappers.cc (arg): Simply call atan2 (0.0, x).
+
 2001-12-17  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* data-conv.cc (LS_DO_READ): Don't do anything unless len > 0.
diff --git a/liboctave/lo-mappers.cc b/liboctave/lo-mappers.cc
--- a/liboctave/lo-mappers.cc
+++ b/liboctave/lo-mappers.cc
@@ -62,14 +62,7 @@
 double
 arg (double x)
 {
-  if (x < 0.0)
-    return M_PI;
-  else
-#if defined (HAVE_ISNAN)
-    return xisnan (x) ? octave_NaN : 0.0;
-#else
-    return 0.0;
-#endif
+  return atan2 (0.0, x);
 }
 
 double