Fix thinko: corner case bbox handling should also be rounded to integers.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 5e26c1d4b7d916b261b11615d1cf3024ec9c4f77..c7214da3c597d25c5dcf49210a1f90efe829ab1c 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -545,11 +545,12 @@
                               (if (or (nan? x) (inf? x)) 0.0 x)))
           (directed-round (lambda (x rounder)
                             (inexact->exact
-                             (rounder (/ (* x scale) (ly:bp 1)))))))
+                             (rounder (/ (* (strip-non-number x) scale)
+                                         (ly:bp 1)))))))
       (list (directed-round (car box) floor)
            (directed-round (cadr box) floor)
-           (max (1+ (car box)) (directed-round (caddr box) ceiling))
-           (max (1+ (cadr box)) (directed-round (cadddr box) ceiling))
+           (directed-round (max (1+ (car box)) (caddr box)) ceiling)
+           (directed-round (max (1+ (cadr box)) (cadddr box)) ceiling)
          )))
 
   (let* ((outputter (ly:make-paper-outputter