From 10af9324c6d94453857e10951c4f58043e9a9f11 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 19 Feb 2012 21:04:27 +0100 Subject: [PATCH] Don't let make-engraver pass empty lists to evaluation. --- scm/translation-functions.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5