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

[Ben Pfaff]

Index: pspp/src/val-labs.c
diff -u pspp/src/val-labs.c:1.10 pspp/src/val-labs.c:1.11
--- pspp/src/val-labs.c:1.10    Wed Jan  5 00:32:16 2005
+++ pspp/src/val-labs.c Mon Mar  7 03:04:50 2005
@@ -158,12 +158,12 @@
        }
       else
        {
-         if (token != T_NUM)
+         if (!lex_is_number ())
            {
              lex_error (_("expecting integer"));
              return 0;
            }
-         if (!lex_integer_p ())
+         if (!lex_is_integer ())
            msg (SW, _("Value label `%g' is not integer."), tokval);
          value.f = tokval;
        }