Lisp, Scheme support: Fix format string checking.

* gettext-tools/src/format-lisp.c (format_check): Allow missing arguments if
!equality.
* gettext-tools/src/format-scheme.c (format_check): Likewise.

diff --git a/gettext-tools/src/format-lisp.c b/gettext-tools/src/format-lisp.c
index 06eabe00ed414237dde6aab5a0057738cf1f85f8..b12c7083f7b6ff634a83b0be58b39584166e3806 100644 (file)
--- a/gettext-tools/src/format-lisp.c
+++ b/gettext-tools/src/format-lisp.c
@@ -3503,7 +3503,7 @@ format_check (void *msgid_descr, void *msgstr_descr, bool equality,
 
       if (!(intersection != NULL
             && (normalize_list (intersection),
-                equal_list (intersection, spec2->list))))
+                equal_list (intersection, spec1->list))))
         {
           if (error_logger)
             error_logger (error_logger_data,

diff --git a/gettext-tools/src/format-scheme.c b/gettext-tools/src/format-scheme.c
index 8740132231106f2687587b68c01593b3323ebd91..0cef3a103172153f3471e3ca342d9a819a7e142d 100644 (file)
--- a/gettext-tools/src/format-scheme.c
+++ b/gettext-tools/src/format-scheme.c
@@ -3425,7 +3425,7 @@ format_check (void *msgid_descr, void *msgstr_descr, bool equality,
 
       if (!(intersection != NULL
             && (normalize_list (intersection),
-                equal_list (intersection, spec2->list))))
+                equal_list (intersection, spec1->list))))
         {
           if (error_logger)
             error_logger (error_logger_data,