X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftitling.scm;h=41a32dd4672b19c0658119de1b4c3b7ee42b1637;hb=1d3beed53413315ec6c0553b003b8c5776f8c38f;hp=8e6ae7b7bb703b98533df4b6796eee23c56a9ce4;hpb=1b554886980bc48aed1ef4025f28292c694b4c55;p=lilypond.git

diff --git a/scm/titling.scm b/scm/titling.scm
index 8e6ae7b7bb..41a32dd467 100644
--- a/scm/titling.scm
+++ b/scm/titling.scm
@@ -23,7 +23,7 @@
 
 ;;;;;;;;;;;;;;;;;;
 
-(define-public ((marked-up-headfoot what-odd what-even)
+(define ((marked-up-headfoot what-odd what-even)
                 layout scopes page-number is-last-bookpart is-bookpart-last-page)
   "Read variables @var{what-odd}, @var{what-even} from @var{layout},
 and interpret them as markup.  The @var{props} argument will include
@@ -71,8 +71,9 @@ variables set in @var{scopes} and @code{page:is-bookpart-last-page},
             (markup? (get what-even)))
        (get what-even)
        (get what-odd))))
+(export marked-up-headfoot)
 
-(define-public ((marked-up-title what) layout scopes)
+(define ((marked-up-title what) layout scopes)
   "Read variables @var{what} from @var{scopes}, and interpret it as markup.
 The @var{props} argument will include variables set in @var{scopes} (prefixed
 with `header:'."
@@ -101,3 +102,4 @@ with `header:'."
     (if (markup? markup)
         (interpret-markup layout props markup)
         empty-stencil)))
+(export marked-up-title)