From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 19 Sep 2020 04:22:09 +0000 (+0200)
Subject: Examine Spreadlevel: Allow power to be non-integer
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3d594a844cecb4f7759ebf9b8b2ea920e64ff379;p=pspp

Examine Spreadlevel: Allow power to be non-integer
---

diff --git a/src/language/stats/examine.c b/src/language/stats/examine.c
index c17b322dd5..50e5517828 100644
--- a/src/language/stats/examine.c
+++ b/src/language/stats/examine.c
@@ -135,7 +135,7 @@ struct examine
   size_t n_percentiles;
 
   unsigned int plot;
-  int sl_power;
+  float sl_power;
 
   enum bp_mode boxplot_mode;
 
@@ -1725,9 +1725,9 @@ cmd_examine (struct lexer *lexer, struct dataset *ds)
                 {
                   examine.plot |= PLOT_SPREADLEVEL;
 		  examine.sl_power = 0;
-		  if (lex_match (lexer, T_LPAREN) && lex_force_int (lexer))
+		  if (lex_match (lexer, T_LPAREN) && lex_force_num (lexer))
 		    {
-                      examine.sl_power = lex_integer (lexer);
+                      examine.sl_power = lex_number (lexer);
 
                       lex_get (lexer);
                       if (! lex_force_match (lexer, T_RPAREN))