X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flanguage%2Fstats%2Fexamine.c;h=19c42fcad5aff5bb63d3b61fcd89458f76c7d218;hb=86e9ee9536888f2d76f5ee2c3354c88d97233bc1;hp=ad8a4126ffa4bef1f9ac70c8ff393e1d41556cad;hpb=f4491cda2715c59495d963d0a3d8ae4518c1c13d;p=pspp

diff --git a/src/language/stats/examine.c b/src/language/stats/examine.c
index ad8a4126ff..19c42fcad5 100644
--- a/src/language/stats/examine.c
+++ b/src/language/stats/examine.c
@@ -1033,7 +1033,7 @@ create_n (const void *aux1, void *aux2 UNUSED)
       es[v].minimum =  DBL_MAX;
     }
 
-  subcase_destroy (&ordering);
+  subcase_uninit (&ordering);
   return es;
 }
 
@@ -1568,15 +1568,10 @@ cmd_examine (struct lexer *lexer, struct dataset *ds)
             {
               while (lex_is_number (lexer))
                 {
+                  if (!lex_force_num_range_open (lexer, "PERCENTILES", 0, 100))
+                    goto error;
                   double p = lex_number (lexer);
 
-                  if (p <= 0 || p >= 100.0)
-                    {
-                      lex_error (lexer,
-                                 _("Percentiles must lie in the range (0, 100)"));
-                      goto error;
-                    }
-
                   examine.n_percentiles++;
                   examine.ptiles =
                     xrealloc (examine.ptiles,