* scm/framework-ps.scm (dump-stencil-as-EPS): thinko.

* scm/framework-ps.scm (dump-stencil-as-EPS): use eps-box-padding,
a number.

diff --git a/ChangeLog b/ChangeLog
index 62c4b1ae93bee23e4975715a01386a7ed54c99d8..8813f45d6c8f0565b14ea93caed8a0688bb37ee0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-10-20  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * scm/framework-ps.scm (dump-stencil-as-EPS): thinko.
+
        * lily/ttf.cc (print_trailer): if all else fails: use
        glyphIndexXXXX as glyph name.
 

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index aa0696bbc3ab1158815e3f1b690c18f87348c305..f06424d72ca3cb844198947baa762732008891ad 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -487,7 +487,7 @@
   (let*
       ((xext (ly:stencil-extent dump-me X))
        (yext (ly:stencil-extent dump-me Y))
-       (left-overshoot (number? (ly:get-option 'eps-box-padding)))
+       (left-overshoot (ly:get-option 'eps-box-padding))
        (bbox
        (map
         (lambda (x)
@@ -502,7 +502,7 @@
           ;;
           (list
            
-           (if left-overshoot
+           (if (number? left-overshoot)
                (min left-overshoot (car xext))
                (car xext))
            (car yext) (cdr xext) (cdr yext)))))