X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-eps.scm;h=7383f3181cbef2111efabe0e0bc39c168b964369;hb=88bcceedeb566ced9edcef51c7049a79f4fde10e;hp=097e7c414ef06491d68d6cf76487843a3b4bbdae;hpb=4b3882304ff44852e6cf2c4bbd50f5d308001f6b;p=lilypond.git

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 097e7c414e..7383f3181c 100644
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  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