X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-texstr.scm;h=841e71a0470a4def11c386f109080fb237d3b458;hb=a9da2e9dec019aafb6da888df08aca0451a013fd;hp=767623f96041fee672388db36235ebb0a7e99065;hpb=57e9d4bb7dc057ffddb1b5b82aaddb8a996af89b;p=lilypond.git diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm index 767623f960..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--2005 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)