X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-texstr.scm;h=841e71a0470a4def11c386f109080fb237d3b458;hb=979eee9511eb1cb5fb2c074bf641d81934020257;hp=7b285cf2baef1b1f9d56092d4de4194f086c2d9b;hpb=60a74756b1d3753b75ce535d08893846af145ec5;p=lilypond.git diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm index 7b285cf2ba..841e71a047 100644 --- a/scm/output-texstr.scm +++ b/scm/output-texstr.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004 Han-Wen Nienhuys +;;;; (c) 2004--2007 Han-Wen Nienhuys (define-module (scm output-texstr)) (define this-module (current-module)) @@ -26,6 +26,8 @@ (if (string? what) what "")) + + (define-public (text font str) (call-with-output-string (lambda (port)