Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / framework-eps.scm

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 097e7c414ef06491d68d6cf76487843a3b4bbdae..bd1d9bb1aa497d614470438a7dc7000722aa3034 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -1,8 +1,8 @@
-;;;; framework-ps.scm --
+;;;; framework-eps.scm --
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-eps))
 
@@ -100,17 +100,17 @@ alignment."
                              "\\ifx\\betweenLilyPondSystem \\undefined
   \\linebreak
 \\else
-  \\betweenLilyPondSystem{~a}
+  \\expandafter\\betweenLilyPondSystem{~a}%
 \\fi
 " c)
                             tex-system-port))
-               (display (format "\\includegraphics{~a-~a}\n"
+               (display (format "\\includegraphics{~a-~a}%\n"
                                 basename (1+ c)) tex-system-port)
                (display (format "@image{~a-~a}\n"
                                 basename (1+ c)) texi-system-port))
              (iota (length stencils)))
-    (display "@c eof." texi-system-port)
-    (display "% eof. " tex-system-port)
+    (display "@c eof\n" texi-system-port)
+    (display "% eof\n" tex-system-port)
     (display (format "~a" (length stencils)) count-system-port)
     (dump-infinite-stack-EPS stencils)
     (postprocess-output book framework-eps-module