Don't crash if eps-box-padding is not defined.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index e63cb262e8ee4def523bf8fce9207e2098d7c524..c5b506450453352683120fb466f699bbdef5175d 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -487,11 +487,10 @@
   (let*
       ((xext (ly:stencil-extent dump-me X))
        (yext (ly:stencil-extent dump-me Y))
-       (left-overshoot (*
-                       -1
-                       (ly:get-option 'eps-box-padding)
-                       (ly:output-def-lookup paper 'mm)
-                       ))
+       (padding (ly:get-option 'eps-box-padding)
+       (left-overshoot (if (number? padding)
+                          (* -1 padding (ly:output-def-lookup paper 'mm))
+                          #f))
        (bbox
        (map
         (lambda (x)