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

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 2d36c7b30392ddd3c74db0f9c095d1f6189f72a1..cc94b67acfbeb2aae9c3364d577e937b4d89d5c5 100644 (file)
--- 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))