DOC -- more work on programming in the CG

[lilypond.git] / scm / c++.scm

diff --git a/scm/c++.scm b/scm/c++.scm
index 3381a9e898888fdff0433bd1385031e0d9a46fd7..bccd15ed02b0be8e29fa01f3da2237f6f1720bc9 100644 (file)
--- 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"))