examples/foreachq3.m4

   1 divert(`-1')
   2 # foreachq(x, `item_1, item_2, ..., item_n', stmt)
   3 #   quoted list, alternate improved version
   4 define(`foreachq', `ifelse(`$2', `', `',
   5   `pushdef(`$1')_$0(`$1', `$3', `', $2)popdef(`$1')')')
   6 define(`_foreachq', `ifelse(`$#', `3', `',
   7   `define(`$1', `$4')$2`'$0(`$1', `$2',
   8     shift(shift(shift($@))))')')
   9 divert`'dnl