From: Eric Blake <ebb9@byu.net>
Date: Fri, 19 Dec 2008 00:15:13 +0000 (-0700)
Subject: Fix separator in m4_stack_foreach_sep.
X-Git-Tag: v2.63b~56
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44579b83165eae1c2300e559eae5b697c685c2f7;p=thirdparty%2Fautoconf.git

Fix separator in m4_stack_foreach_sep.

* lib/m4sugar/m4sugar.m4 (_m4_stack_reverse): Separate separator
from prefix.
* tests/m4sugar.at (m4@&t@_stack): Enhance test.

Signed-off-by: Eric Blake <ebb9@byu.net>
---

diff --git a/ChangeLog b/ChangeLog
index c1d367a6f..369433c0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-12-18  Eric Blake  <ebb9@byu.net>
+
+	Fix separator in m4_stack_foreach_sep.
+	* lib/m4sugar/m4sugar.m4 (_m4_stack_reverse): Separate separator
+	from prefix.
+	* tests/m4sugar.at (m4@&t@_stack): Enhance test.
+
 2008-12-18  Eric Blake  <ebb9@byu.net>
 
 	Mention limitation of M4 1.4.x on builtin tokens.
diff --git a/lib/m4sugar/m4sugar.m4 b/lib/m4sugar/m4sugar.m4
index fe6af4fb5..6ca825ff4 100644
--- a/lib/m4sugar/m4sugar.m4
+++ b/lib/m4sugar/m4sugar.m4
@@ -1293,7 +1293,7 @@ m4_define([m4_stack_foreach_sep_lifo],
 # swapped copy.
 m4_define([_m4_stack_reverse],
 [m4_ifdef([$1], [m4_pushdef([$2],
-  _m4_defn([$1]))$3[]_m4_popdef([$1])$0([$1], [$2], [$4$3])])])
+  _m4_defn([$1]))$3[]_m4_popdef([$1])$0([$1], [$2], [$4[]$3])])])
 
 
 
diff --git a/tests/m4sugar.at b/tests/m4sugar.at
index 8a538f0ad..a876588ae 100644
--- a/tests/m4sugar.at
+++ b/tests/m4sugar.at
@@ -60,7 +60,8 @@ m4_copy([abc], [foo])dnl
 m4_stack_foreach([foo], [m4_n])
 m4_stack_foreach_lifo([foo], [m4_n])
 m4_stack_foreach_sep([abc], [ m4_index([abcdefghijkl],], [)])
-m4_stack_foreach_sep_lifo([abc], [<], [>], [:])
+m4_define([colon], [:])dnl
+m4_stack_foreach_sep_lifo([abc], [<], [>], [colon])
 m4_pushdef([xyz], [123])dnl
 m4_pushdef([xyz], [456])dnl
 m4_define([doit], [[$1](m4_stack_foreach_sep([xyz], [m4_dquote(], [)], [,]))