From: Bruno Haible <bruno@clisp.org>
Date: Fri, 2 Jun 2023 23:27:16 +0000 (+0200)
Subject: Code perfectionism.
X-Git-Tag: v0.22~61
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15d2a82fc16c240575d0592e3a50e2a99b1094e2;p=thirdparty%2Fgettext.git

Code perfectionism.

* gettext-tools/src/format-lisp.c (VERIFY_LIST): Remove first, unused definition
of this macro.
* gettext-tools/src/format-scheme.c (VERIFY_LIST): Likewise.
---

diff --git a/gettext-tools/src/format-lisp.c b/gettext-tools/src/format-lisp.c
index 81e89f3a1..2491256db 100644
--- a/gettext-tools/src/format-lisp.c
+++ b/gettext-tools/src/format-lisp.c
@@ -34,9 +34,8 @@
 #define _(str) gettext (str)
 
 
-/* Assertion macros.  Could be defined to empty for speed.  */
+/* Assertion macro.  Could be defined to empty for speed.  */
 #define ASSERT(expr) if (!(expr)) abort ();
-#define VERIFY_LIST(list) verify_list (list)
 
 
 /* Lisp format strings are described in the Common Lisp HyperSpec,
@@ -181,6 +180,7 @@ verify_list (const struct format_arg_list *list)
   ASSERT (total_repcount == list->repeated.length);
 }
 
+/* Assertion macro.  Could be defined to empty for speed.  */
 #define VERIFY_LIST(list) verify_list (list)
 
 
diff --git a/gettext-tools/src/format-scheme.c b/gettext-tools/src/format-scheme.c
index e473a9856..0264cf892 100644
--- a/gettext-tools/src/format-scheme.c
+++ b/gettext-tools/src/format-scheme.c
@@ -36,9 +36,8 @@
 #define _(str) gettext (str)
 
 
-/* Assertion macros.  Could be defined to empty for speed.  */
+/* Assertion macro.  Could be defined to empty for speed.  */
 #define ASSERT(expr) if (!(expr)) abort ();
-#define VERIFY_LIST(list) verify_list (list)
 
 
 /* Scheme format strings are described in the GNU guile documentation,
@@ -184,6 +183,7 @@ verify_list (const struct format_arg_list *list)
   ASSERT (total_repcount == list->repeated.length);
 }
 
+/* Assertion macro.  Could be defined to empty for speed.  */
 #define VERIFY_LIST(list) verify_list (list)