From a008cd1e9678343ff76d34af4c2455c56391b814 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:49:20 +0000
Subject: [PATCH] lilypond-1.1.41

---
 flower/offset.cc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/flower/offset.cc b/flower/offset.cc
index 258cc1782c..4e4e1e3bb0 100644
--- a/flower/offset.cc
+++ b/flower/offset.cc
@@ -25,6 +25,12 @@ Offset::str () const
 #endif
 
 
+bool
+isinf_b (Real r)
+{
+  return (fabs (r) > 1e20);
+}
+
 /*
   free bsd fix by John Galbraith
  */
@@ -33,7 +39,7 @@ Offset
 complex_multiply (Offset z1, Offset z2)
 {
   Offset z;
-  if(!isinf(z2[Y_AXIS]))
+  if(!isinf_b(z2[Y_AXIS]))
   {
       z[X_AXIS] = z1[X_AXIS] * z2[X_AXIS] - z1[Y_AXIS]*z2[Y_AXIS];
       z[Y_AXIS] = z1[X_AXIS] * z2[Y_AXIS] + z1[Y_AXIS] * z2[X_AXIS];
-- 
2.39.5