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 a50f82d639da8dfd80e8e15be14d738e9d6a4643..09f1a42f259a57f0dc8f5957fb5e9601b8c4dbdb 100644 (file)
--- 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))))