release: 1.2.6

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index ecfda6b42d247461940e9ec7660e95c187571cb8..f1431284bce8d48ddcfe92bf91701169f89bf231 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -233,9 +233,14 @@
     (string-append
      "\\font" (font-switch i) "=" s "\n"))
 
-  ;; UGH
-   
-  (define (header-end) "\\input lilyponddefs \\turnOnPostScript")
+  (define (header-end)
+    (string-append
+     "\\special{! "
+     (ly-gulp-file "lily.ps")
+     ;; breaks on ppc
+;;     (regexp-substitute/global #f "\n" (ly-gulp-file "lily.ps") 'pre " %\n" 'post)
+     "}"
+     "\\input lilyponddefs \\turnOnPostScript"))
 
   (define (header creator generate) 
     (string-append