[Pspp-cvs] Changes to pspp/src/moments.c

[Ben Pfaff]

Index: pspp/src/moments.c
diff -u pspp/src/moments.c:1.3 pspp/src/moments.c:1.4
--- pspp/src/moments.c:1.3      Wed Apr 14 02:26:38 2004
+++ pspp/src/moments.c  Mon Mar  7 03:04:50 2005
@@ -501,14 +501,14 @@
   *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;