From: David Kastrup <dak@gnu.org>
Date: Sun, 19 Feb 2012 20:04:27 +0000 (+0100)
Subject: Don't let make-engraver pass empty lists to evaluation.
X-Git-Tag: release/2.15.31-1~58
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=10af9324c6d94453857e10951c4f58043e9a9f11;p=lilypond.git

Don't let make-engraver pass empty lists to evaluation.
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 2d36c7b303..cc94b67acf 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -686,7 +686,7 @@ same manner are @code{listeners} with the subordinate symbols being
 event classes, and @code{acknowledgers} and @code{end-acknowledgers}
 with the subordinate symbols being interfaces."
   (let loop ((forms forms))
-    (if (pair? forms)
+    (if (cheap-list? forms)
 	`(list
 	  ,@(map (lambda (form)
 		   (if (pair? (car form))