T1055: Avoid using deprecated %module-public-interface in guile initialisation.

scm/define-grob-properties.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2010  Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
 ;;;; LilyPond is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;; GNU General Public License for more details.
 ;;;;
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
+(use-modules (scm clip-region))

[Neil Puttock, 2010/08/09 19:08:58]

Why not leave this in lily.scm?

[Ian Hulin, 2010/08/09 20:01:10]

Because it doesn't work.  
It used to pick up the definition in init.ly as a beneficial side-effect of
using %module-public-interface in ly_make_module when defining scopes.  
This change makes things cleaner all round because only things needing this
module use it and reference it specifically.
The other alternative was to dump all the definitions from the module into
lily.scm, Han-Wen said this had been on his to-do list for a while. and favoured
this approach.

+
 (define (define-grob-property symbol type? description)
   (if (not (equal? (object-property symbol 'backend-doc) #f))
       (ly:error (_ "symbol ~S redefined") symbol))
 
   (set-object-property! symbol 'backend-type? type?)
   (set-object-property! symbol 'backend-doc description)
   symbol)
 
 ;; put this in an alist?
 (define-public
@@ skipping 1091 matching lines @@
      (virga ,boolean? "Is this neume a virga?")
 
      (x-offset ,ly:dimension? "Extra horizontal offset for ligature heads.")
 
      )))
 
 (define-public all-backend-properties
   (append
    all-internal-grob-properties
    all-user-grob-properties))