From 945f1d34964439d61d4eeffef4383efced1d7be7 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 30 Dec 2006 17:31:47 +0100 Subject: [PATCH] inf/nan robustness: don't put NaN in output, but rather 0.0 --- scm/output-ps.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))) -- 2.39.5