mirror/gettext
1
0
Fork 0
mirror of https://https.git.savannah.gnu.org/git/gettext.git synced 2026-01-26 15:39:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Lisp, Scheme support: Fix format string checking.

Browse Source 
* gettext-tools/src/format-lisp.c (format_check): Allow missing arguments if
!equality.
* gettext-tools/src/format-scheme.c (format_check): Likewise.
This commit is contained in:
Bruno Haible 2025-07-03 16:30:39 +02:00
parent 1b64c53623
commit 92eed46803
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gettext-tools/src/format-lisp.c
View File

@ -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,

2
gettext-tools/src/format-scheme.c
View File

@ -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,