#ident "$URL: svn://elmer/devel/SVN/SDDAS/trunk/libant/untok.c $ %D% SwRI"
/*
  untok.c -- retract last token marker
*/
 


#include "ant.h"

#define NUL '\0'		/* marks end of string                       */

char *
untok(char  *line)
{
  /* remove token marker if text follows */
  if (*(strlast(line) + 2) != NUL)
    {
      *(strlast(line) + 1) = ' ';
#if 0
      *strlast(line) = NUL;
#endif
    }

  return line;
}