1 files changed, 3 insertions, 0 deletions
diff --git a/numeric.c b/numeric.c
index 4adaa6e1d4..513b43b48c 100644
--- a/numeric.c
+++ b/numeric.c
@@ -842,6 +842,9 @@ flo_eq(x, y)
 	return num_equal(x, y);
     }
     a = RFLOAT(x)->value;
+#if defined __BORLANDC__
+    if (isnan(a) || isnan(b)) return Qfalse;
+#endif
     return (a == b)?Qtrue:Qfalse;
 }