/* 1 1 exponential minus 1, expm1(x) == exp(x) - 1
*/
double nf_expm1(const Node *n, const Cell *c)
{
  return expm1( eval_tree( Right(n), c) );
}