X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=0323be7a124c10329b1ed11a3473118424bf5f85;hb=adfbd60a67621d60d054d7e1ad5fa5d448d9e726;hp=b96bcbfe89573a8939034464e563ab0d058c7287;hpb=5d1ddaf889233f8e5c32a118f9e843e1becca2d2;p=lilypond.git

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index b96bcbfe89..0323be7a12 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2005 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 ;; (use-modules (ice-9 optargs)) 
@@ -190,7 +190,7 @@ i.e.  this is not an override"
 (define direction-polyphonic-grobs
   '(Stem Tie Rest Slur Script TextScript Dots DotColumn Fingering))
 
-(define-public (make-voice-props-set n)
+(define-safe-public (make-voice-props-set n)
   (make-sequential-music
    (append
     (map (lambda (x) (make-grob-property-set x 'direction
@@ -200,7 +200,7 @@ i.e.  this is not an override"
      (make-grob-property-set 'NoteColumn 'horizontal-shift (quotient n 2))
      (make-grob-property-set 'MultiMeasureRest 'staff-position (if (odd? n) -4 4)))))) 
 
-(define-public (make-voice-props-revert)
+(define-safe-public (make-voice-props-revert)
   (make-sequential-music
    (append
     (map (lambda (x) (make-grob-property-revert x 'direction))
@@ -209,7 +209,7 @@ i.e.  this is not an override"
     (list (make-grob-property-revert 'MultiMeasureRest 'staff-position)))))
 
 
-(define*-public (context-spec-music m context #:optional id)
+(define-safe-public (context-spec-music m context #:optional id)
   "Add \\context CONTEXT = ID to M. "
   (let ((cm (make-music 'ContextSpeccedMusic
 			'element m
@@ -240,7 +240,7 @@ i.e.  this is not an override"
   (make-music 'SimultaneousMusic
 	      'elements elts))
 
-(define-public (make-event-chord elts)
+(define-safe-public (make-event-chord elts)
   (make-music 'EventChord
 	      'elements elts))
 
@@ -355,12 +355,12 @@ of beat groupings "
 (define-public (set-time-signature num den . rest)
   (ly:export (apply make-time-signature-set `(,num ,den . ,rest))))
 
-(define-public (make-penalty-music pen page-pen)
+(define-safe-public (make-penalty-music pen page-pen)
   (make-music 'BreakEvent
 	      'penalty pen
 	      'page-penalty page-pen))
 
-(define-public (make-articulation name)
+(define-safe-public (make-articulation name)
   (make-music 'ArticulationEvent
 	      'articulation-type name))
 
@@ -369,7 +369,7 @@ of beat groupings "
 	      'duration duration
 	      'text string))
 
-(define-public (make-span-event type spandir)
+(define-safe-public (make-span-event type spandir)
   (make-music type
 	      'span-direction spandir))