** POL - Problem Oriented Language
**
** This is part of the CTSim program
-** Copyright (c) 1983-2001 Kevin Rosenberg
-**
-** $Id$
+** Copyright (c) 1983-2009 Kevin Rosenberg
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License (version 2) as
{
if (token->ready == false)
getpol_tok(token);
- else
+ else {
if (token->type == TT_EOF && lookchar() != EOF)
getpol_tok(token);
- return (token->type);
+ }
+ return (token->type);
}
void