Improved error message for setq()/setr() with an odd number of arguments

diff --git a/src/funmisc.c b/src/funmisc.c
index e858d4f2d59d7b208b862dd0218d15569ddbdc59..8757a6018be4a76954834d12c23c9b216972ac23 100644 (file)
--- a/src/funmisc.c
+++ b/src/funmisc.c
@@ -162,7 +162,9 @@ FUNCTION(fun_setq)
   int n;
 
   if ((nargs % 2) != 0) {
-    safe_str(T("#-1 FUNCTION EXPECTS AN EVEN NUMBER OF ARGUMENTS"), buff, bp);
+    safe_format(buff, bp,
+               T("#-1 FUNCTION (%s) EXPECTS AN EVEN NUMBER OF ARGUMENTS"),
+               called_as);
     return;
   }