1 dnl @ ../doc/m4.texi:3643: Origin of test
2 dnl @ expected status: 0
4 dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
6 dnl @ This file is free software; the Free Software Foundation
7 dnl @ gives unlimited permission to copy and/or distribute it
8 dnl @ with or without modifications, as long as this notice
10 include(`curry.m4')include(`stack.m4')
12 define(`reverse', `ifelse(`$#', `0', , `$#', `1', ``$1'',
13 `reverse(shift($@)), `$1'')')
15 pushdef(`a', `1')pushdef(`a', `2')pushdef(`a', `3')
17 stack_foreach(`a', `:curry(`reverse', `4')')
18 dnl @result{}:1, 4:2, 4:3, 4
19 curry(`curry', `reverse', `1')(`2')(`3')