# HG changeset patch
# User jwe
# Date 1177691806 0
# Node ID 64a7b0bec3317dd3b705bb762ad595397721e33c
# Parent  55586d763de1e8673a3bcf2b379ff2040dd1c967
[project @ 2007-04-27 16:36:46 by jwe]

diff -r 55586d763de1 -r 64a7b0bec331 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Fri Apr 27 15:31:10 2007 +0000
+++ b/liboctave/ChangeLog	Fri Apr 27 16:36:46 2007 +0000
@@ -1,3 +1,7 @@
+2007-04-27  John W. Eaton  <jwe@octave.org>
+
+	* lo-mappers.cc (signum (const Complex&)): Special case for (0, 0).
+
 2007-04-25  John W. Eaton  <jwe@octave.org>
 
 	* oct-fftw.h (octave_fftw): Tag with OCTAVE_API.
diff -r 55586d763de1 -r 64a7b0bec331 liboctave/lo-mappers.cc
--- a/liboctave/lo-mappers.cc	Fri Apr 27 15:31:10 2007 +0000
+++ b/liboctave/lo-mappers.cc	Fri Apr 27 16:36:46 2007 +0000
@@ -273,7 +273,9 @@
 Complex
 signum (const Complex& x)
 {
-  return x / abs (x);
+  double tmp = abs (x);
+
+  return tmp == 0 ? 0.0 : x / tmp;
 }
 
 // complex -> bool mappers.