From b9cf2b8d12373c3c4dd59e3192bccba694d2ceb1 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 6 Oct 2006 11:40:39 +0000
Subject: [PATCH] (pure-conversion): move pure-callback further into body.

---
 ChangeLog            |  8 ++++++++
 scm/define-grobs.scm | 13 ++++++++-----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2e41649fd2..d10ac47ee3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2006-10-06  Han-Wen Nienhuys  <hanwen@lilypond.org>
+
+	* scm/define-grobs.scm (pure-conversion): move pure-callback
+	further into body.
+
+	* scm/script.scm (default-script-alist): set avoid-slur for turn,
+	marcato, stopped, thumb.
+
 2006-10-05  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
 	* lily/completion-note-heads-engraver.cc (process_music): don't
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 97de2fd69f..a82741dc69 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1986,7 +1986,6 @@
 
 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))
 
-
 (define pure-print-callbacks
   (list
    `(,ly:note-head::print . '())
@@ -2038,14 +2037,18 @@
 
 (define (pure-conversion pures conversions defsymbol defreturn rettype? grob start stop)
   (let* ((normal-callback (ly:grob-property-data grob defsymbol))
-	 (pure-callback (assq normal-callback conversions)))
+	 )
+
     (if (rettype? normal-callback)
 	normal-callback
 	(if (pair? (assq normal-callback pures))
 	    (normal-callback grob)
-	    (if (pair? pure-callback)
-		((cdr pure-callback) grob start stop)
-		defreturn)))))
+	    (let
+		((pure-callback (assq normal-callback conversions)))
+
+	      (if (pair? pure-callback)
+		  ((cdr pure-callback) grob start stop)
+		  defreturn))))))
 
 (define-public (pure-Y-extent grob start stop)
   (pure-conversion pure-Y-extents Y-extent-conversions
-- 
2.39.2