Remove Font_metric::get_ascii_char() and descendents.

[lilypond.git] / scm / output-socket.scm

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 5534c2816c96c29a205dcb1367ab563a8b25ccdc..c86047815ade2ecc0a9ea9aec2074a91a58f77ef 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -68,7 +68,7 @@
      (tag (if (and cause (integer? (ly:event-property cause 'input-tag)))
              (ly:event-property cause 'input-tag)
              -1))
-     (name (cdr (assoc 'name (ly:grob-property grob 'meta)))))
+     (name (assoc-get 'name (ly:grob-property grob 'meta))))
 
     (apply format
           (append (list "cause ~a \"~a\" ~a ~a ~a ~a\n" tag name)