@verb #9611:"parse_atom :parse_atom" this none this rxdo #7165
@program #9611:"parse_atom :parse_atom" this none this
{tokens} = args
if ($string_utils:is_numeric(tokens[1]))
  if (index(tokens[1], "."))
    a = tofloat(tokens[1])
  else
    a = toint(tokens[1])
  endif
else
  a = tokens[1]
endif
tokens[1..1] = {}
return {tokens, a}
"Last modified by manta (#7165) on Thu Nov 15 13:21:24 2001 MST."
.