From 92eed468031c17269dbce6e85638309f6d88a316 Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Thu, 3 Jul 2025 16:30:39 +0200 Subject: [PATCH] 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. --- gettext-tools/src/format-lisp.c | 2 +- gettext-tools/src/format-scheme.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gettext-tools/src/format-lisp.c b/gettext-tools/src/format-lisp.c index 06eabe00e..b12c7083f 100644 --- 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 874013223..0cef3a103 100644 --- 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, -- 2.47.3