* ly/engraver-init.ly (HaraKiriStaffContext): use

[lilypond.git] / scm / beam.scm

diff --git a/scm/beam.scm b/scm/beam.scm
index 0b615e9fa8a738947a26f58cdabb25b95a87d581..11b3b21eb9415431fbcb3f496cb3c4ff1e5e1af2 100644 (file)
--- a/scm/beam.scm
+++ b/scm/beam.scm
@@ -3,7 +3,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 
 ;;
@@ -38,10 +38,10 @@
   (sign (- up down)))
 
 ;; arguments are in the form (up . down)
-(define (beam-dir-majority count total)
+(define-public (beam-dir-majority count total)
   (dir-compare (car count) (cdr count)))
 
-(define (beam-dir-majority-median count total)
+(define-public (beam-dir-majority-median count total)
   "First try majority. If that doesn't work, try median."
   (let ((maj (dir-compare (car count) (cdr count))))
     (if (not (= maj 0))
@@ -50,10 +50,10 @@
     ))
 
 
-(define (beam-dir-mean count total)
+(define-public (beam-dir-mean count total)
   (dir-compare (car total) (cdr total)))
 
-(define (beam-dir-median count total)
+(define-public (beam-dir-median count total)
   (if (and (> (car count) 0)
           (> (cdr count) 0))
       (dir-compare (/ (car total) (car count)) (/ (cdr total) (cdr count)))