examples/curry.m4

   1 divert(`-1')
   2 # curry(macro, args)
   3 # Expand to a macro call that takes one argument, then invoke
   4 # macro(args, extra).
   5 define(`curry', `$1(shift($@,)_$0')
   6 define(`_curry', ``$1')')
   7 divert`'dnl