First phase of making SORT CASES stable (PR 12035).

[pspp] / src / count.c

diff --git a/src/count.c b/src/count.c
index 35021f09e3589d8055c240d528711dcb0ef73d5f..af9642b8a233d2cb65bb914737cd391a417089da 100644 (file)
--- a/src/count.c
+++ b/src/count.c
@@ -244,13 +244,13 @@ parse_numeric_criteria (struct counting * c)
        }
 
       cur = &c->crit.n[n++];
-      if (token == T_NUM)
+      if (lex_is_number ())
        {
          cur->a = tokval;
          lex_get ();
          if (lex_match_id ("THRU"))
            {
-             if (token == T_NUM)
+             if (lex_is_number ())
                {
                  if (!lex_force_num ())
                    return 0;
@@ -282,7 +282,7 @@ parse_numeric_criteria (struct counting * c)
        {
          if (!lex_force_match_id ("THRU"))
            return 0;
-         if (token == T_NUM)
+         if (lex_is_number ())
            {
              cur->type = CNT_LOW;
              cur->a = tokval;