X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-display-methods.scm;h=a620150338b94c55db2305dee06561ea5859508c;hb=66a729cbb7d3bb1739c7cc843ad2e398ad6ad4e2;hp=72f94b0acfbd6adee562d6911d6aa9d81b58ebfb;hpb=b3f0c2f6c352a850f03dc44a947776199eb3fa0b;p=lilypond.git

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 72f94b0acf..a620150338 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -961,11 +961,11 @@ Otherwise, return #f."
 								 symbol 'clefOctavation)
 							  (music 'ApplyContext
 								 procedure ly:set-middle-C!)))))
-    (let ((clef-prop+name (assoc (list ?clef-glyph ?clef-position 0)
+    (let ((clef-name (assoc-get (list ?clef-glyph ?clef-position 0)
 				 clef-name-alist)))
-      (if clef-prop+name
+      (if clef-name
 	  (format #f "\\clef \"~a~{~a~a~}\"~a"
-		  (cdr clef-prop+name)
+		  clef-name
 		  (cond ((= 0 ?clef-octavation)
 			 (list "" ""))
 			((> ?clef-octavation 0)
@@ -1033,6 +1033,7 @@ Otherwise, return #f."
 	     ((= i dots) m)
 	   (set! m (+ m delta)))
 	 factor))))
+
 (define moment-duration-alist (map (lambda (duration)
 				     (cons (duration->moment duration)
 					   duration))
@@ -1043,9 +1044,7 @@ Otherwise, return #f."
 					       (list 0 1 2 3 4))))
 
 (define (moment->duration moment)
-  (let ((result (assoc (- moment) moment-duration-alist =)))
-    (and result
-	 (cdr result))))
+  (assoc-get (- moment) moment-duration-alist))
 
 (define-extra-display-method ContextSpeccedMusic (expr parser)
   "If `expr' is a partial measure, return \"\\partial ...\".