exit if we encounter inf in ps output and strict-infinity-checking is set.

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 9a65b0c5e56729714378bf9cefba074b1367abc4..42aecc1dbcb0364720adcb10a5bf687846a7bc3a 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -68,6 +68,8 @@
   (if (or (nan? num) (inf? num))
       (begin
        (ly:warning (_ "Found infinity or nan in output. Substituting 0.0"))
+       (if (ly:get-option 'strict-infinity-checking)
+           (exit 1))
        "0.0")
       (format #f "~f" (round4 num))))