From 49d958aaa26e65a1f529308ed452de7934a8833b Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:47:27 +0000
Subject: [PATCH] lilypond-1.3.39

---
 lily/dimension-cache.cc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lily/dimension-cache.cc b/lily/dimension-cache.cc
index f314dbc24e..eb6f7c24a9 100644
--- a/lily/dimension-cache.cc
+++ b/lily/dimension-cache.cc
@@ -5,6 +5,8 @@
   
   (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
  */
+#include <math.h>
+#include "warn.hh"
 
 #include "dimension-cache.hh"
 #include "parray.hh"
@@ -82,7 +84,13 @@ Dimension_cache::get_offset () const
     {
       Offset_cache_callback c = me->off_callbacks_[0];
       me->off_callbacks_.del (0);
-      me->basic_offset_ += (*c) (me);
+      Real r =  (*c) (me);
+      if (isinf (r) || isnan (r))
+	{
+	  r = 0.0;
+	  programming_error ("Infinity or NaN encountered");
+	}
+      me->basic_offset_ +=r;
     }
   return basic_offset_ + extra_offset_;
 }
-- 
2.39.5