Make the expression code a little nicer and fix bugs found

[pspp] / src / sample.c

diff --git a/src/sample.c b/src/sample.c
index ce5d18d8131de8a12e0fc5de27f5508356ec0e59..67523b3d80ff62e65cd5185de4ce70ce26df7777 100644 (file)
--- a/src/sample.c
+++ b/src/sample.c
@@ -59,8 +59,6 @@ cmd_sample (void)
   int a, b;
   unsigned frac;
 
-  lex_match_id ("SAMPLE");
-
   if (!lex_force_num ())
     return CMD_FAILURE;
   if (!lex_integer_p ())
@@ -118,6 +116,7 @@ cmd_sample (void)
   return lex_end_of_command ();
 }
 
+/* Executes a SAMPLE transformation. */
 static int
 sample_trns_proc (struct trns_header * trns, struct ccase *c UNUSED,
                   int case_num UNUSED)