patch::: 1.3.150.jcn3

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 899b0f0061a9504fb3e69b52a13296ae008fc88b..49c77c451d08bc4ff6e547f556743e8e19c5be14 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -73,7 +73,10 @@
 {
        dup base-line-skip gt {
                /line-height exch def
-       } if
+       }
+       {
+               pop /line-height base-line-skip def
+       } ifelse
        line-y top-margin sub base-line-skip lt {
                showpage
                /line-y vsize top-margin sub def