use usescons for using scons.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index a4c431b8febef9e250dbd9820b27d4b01a36e394..57d5c0b92ffc5ef7dc0ac460dfed8b8a3b164cca 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -828,15 +828,20 @@
 
     (Slur
      . (
-       (print-function . ,Slur::print)
+       (print-function . ; ,New_slur::print)
+                       ,Slur::print)
        (thickness . 1.2)               
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 1.5)
-       (after-line-breaking-callback . ,Slur::after_line_breaking)
+       (after-line-breaking-callback . ; ,New_slur::after_line_breaking)
+                                     ,Slur::after_line_breaking)
        (extremity-function . ,calc-slur-extremity)
        (extremity-offset-alist . ,default-slur-extremity-offset-alist)
        (de-uglify-parameters . (1.5  0.8  -2.0))
-       (Y-extent-callback . ,Slur::height)
+       (Y-extent-callback .
+                          ;; ,#f)
+                          ;; must be of type procedure
+                          ,Slur::height)
        (height-limit . 2.0)
        (ratio . 0.333)
        (beautiful . 0.5)