From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 16:31:47 +0000 (+0100)
Subject: inf/nan robustness: don't put NaN in output, but rather 0.0
X-Git-Tag: release/2.11.6-1~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=945f1d34964439d61d4eeffef4383efced1d7be7;p=lilypond.git

inf/nan robustness: don't put NaN in output, but rather 0.0
---

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index a50f82d639..09f1a42f25 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -65,7 +65,11 @@
   (/ (round (* 10000 num)) 10000))
 
 (define (str4 num)
-  (format #f "~f" (round4 num)))
+  (if (or (nan? num) (inf? num))
+      (begin
+	(ly:warning (_ "Found infinity or nan in output. Substituting 0.0"))
+	"0.0")
+      (format #f "~f" (round4 num))))
 
 (define (number-pair->string4 numpair)
   (format #f "~f ~f" (round4 (car numpair)) (round4 (cdr numpair))))