You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
#include <config.h>
#include "moments.h"
#include "alloc.h"
#include "misc.h"
#include "val.h"
+
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
\f
/* Calculates variance, skewness, and kurtosis into *VARIANCE,
*SKEWNESS, and *KURTOSIS if they are non-null and not greater
*values = NULL;
*weights = NULL;
*cnt = 0;
- while (token == T_NUM)
+ while (lex_is_number ())
{
double value = tokval;
double weight = 1.;
lex_get ();
if (lex_match ('*'))
{
- if (token != T_NUM)
+ if (!lex_is_number ())
{
lex_error (_("expecting weight value"));
return 0;