diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2013-09-22 07:04:10 +0000 |
|---|---|---|
| committer | <> | 2015-02-02 12:02:31 +0000 |
| commit | 23c11479b3ad787adc7a651ee0c4347839e47723 (patch) | |
| tree | 3aa9e1125da84f7e3bd764bbff577c42a766508b /checks/091.compositio | |
| download | m4-tarball-master.tar.gz | |
Diffstat (limited to 'checks/091.compositio')
| -rw-r--r-- | checks/091.compositio | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/checks/091.compositio b/checks/091.compositio new file mode 100644 index 0000000..37a7121 --- /dev/null +++ b/checks/091.compositio @@ -0,0 +1,20 @@ +dnl @ ../doc/m4.texi:3643: Origin of test +dnl @ expected status: 0 +dnl @ extra options: +dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software +dnl @ Foundation, Inc. +dnl @ This file is free software; the Free Software Foundation +dnl @ gives unlimited permission to copy and/or distribute it +dnl @ with or without modifications, as long as this notice +dnl @ is preserved. +include(`curry.m4')include(`stack.m4') +dnl @result{} +define(`reverse', `ifelse(`$#', `0', , `$#', `1', ``$1'', + `reverse(shift($@)), `$1'')') +dnl @result{} +pushdef(`a', `1')pushdef(`a', `2')pushdef(`a', `3') +dnl @result{} +stack_foreach(`a', `:curry(`reverse', `4')') +dnl @result{}:1, 4:2, 4:3, 4 +curry(`curry', `reverse', `1')(`2')(`3') +dnl @result{}3, 2, 1 |