1 dnl @ ../doc/m4.texinfo:3639: 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 undivert(`curry.m4')dnl
11 dnl @result{}divert(`-1')
12 dnl @result{}# curry(macro, args)
13 dnl @result{}# Expand to a macro call that takes one argument, then invoke
14 dnl @result{}# macro(args, extra).
15 dnl @result{}define(`curry', `$1(shift($@,)_$0')
16 dnl @result{}define(`_curry', ``$1')')
17 dnl @result{}divert`'dnl