From 04faa1ba634c75c05716b7f49928ebe187862f20 Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@villenave.net>
Date: Sun, 13 Jan 2008 18:59:20 +0100
Subject: [PATCH] second patch from Joe: fix a silly mistake with infinite
 stiff springs

---
 lily/simple-spacer.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc
index f16e607061..9129361cbd 100644
--- a/lily/simple-spacer.cc
+++ b/lily/simple-spacer.cc
@@ -84,7 +84,7 @@ Simple_spacer::rod_force (int l, int r, Real dist)
   Real c = range_stiffness (l, r, dist > d);
   Real block_stretch = dist - d;
 
-  if (isinf (c)) /* take care of the 0*infinity_f case */
+  if (isinf (c) && block_stretch == 0) /* take care of the 0*infinity_f case */
     return 0;
   return c * block_stretch;
 }
-- 
2.39.5