X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fsample.c;h=67523b3d80ff62e65cd5185de4ce70ce26df7777;hb=97d6c6f6b1922621ca013668eba9a9a9f71d60fe;hp=ce5d18d8131de8a12e0fc5de27f5508356ec0e59;hpb=bc963dae9be291ea0a7cccf189d13e00d3797cfd;p=pspp

diff --git a/src/sample.c b/src/sample.c
index ce5d18d813..67523b3d80 100644
--- 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)