From b3441482bcd6dc5fbef25df7507ba15e1aa887c6 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Tue, 22 Jan 2013 19:49:10 +0100 Subject: [PATCH] Eliminates non-event-cause function --- scm/output-lib.scm | 8 -------- 1 file changed, 8 deletions(-) diff --git a/scm/output-lib.scm b/scm/output-lib.scm index c83fd27ed6..024788036e 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -51,14 +51,6 @@ ((ly:grob? cause) (event-cause cause)) (else #f)))) -(define-public (non-event-cause grob) - (let ((cause (ly:grob-property grob 'cause))) - - (cond - ((ly:stream-event? cause) (non-event-cause cause)) - ((ly:grob? cause) cause) - (else #f)))) - (define-public (grob-interpret-markup grob text) (let* ((layout (ly:grob-layout grob)) (defs (ly:output-def-lookup layout 'text-font-defaults)) -- 2.39.5