 }
 
 x_any read_sexpr(FILE*);
-x_any ratom(FILE*);
+x_any read_atom(FILE*);
 
 x_any read_cdr(FILE *infile)
 {

}

/* This is the lisp tokenizer; it returns a symbol, or one of `(', `)', `.', or EOF */
x_any ratom(FILE *infile)
{
  int c;
  static char buf[MAX_NAME_LEN];

  x_any token;
  x_any temp;

  token = read_atom(infile);
  if (is_symbol(token) || is_builtin(token))
    return x_cons(token, read_tail(infile));
  if (token == x_left) {
