X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fc%2B%2B.scm;h=bccd15ed02b0be8e29fa01f3da2237f6f1720bc9;hb=68bcf843016f5ade4087a00f3fe09a333270d37e;hp=3381a9e898888fdff0433bd1385031e0d9a46fd7;hpb=92782fde87fb68e945b9eb60cacab6c01d0397df;p=lilypond.git

diff --git a/scm/c++.scm b/scm/c++.scm
index 3381a9e898..bccd15ed02 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -63,6 +63,4 @@
   (type-name (match-predicate obj type-p-name-alist)))
 
 (define-public (type-name predicate)
-  (let ((entry (assoc predicate type-p-name-alist)))
-    (if (pair? entry) (cdr entry)
-	"unknown")))
+  (assoc-get predicate type-p-name-alist "unknown"))