X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fcompute.c;h=b08e76feddd9a62f2eb296312b147ab3961a06a9;hb=74a57f26f1458b28a0fddbb9f46004ac8f4d9c30;hp=9c20e0ee781f1999922790eaa421807d01115b72;hpb=2c9e93d6e9fbdf4eccb2d43050884f2f707ad126;p=pspp-builds.git

diff --git a/src/compute.c b/src/compute.c
index 9c20e0ee..b08e76fe 100644
--- a/src/compute.c
+++ b/src/compute.c
@@ -75,8 +75,6 @@ cmd_compute (void)
   struct lvalue *lvalue = NULL;
   struct compute_trns *compute = NULL;
 
-  lex_match_id ("COMPUTE");
-
   lvalue = lvalue_parse ();
   if (lvalue == NULL)
     goto fail;
@@ -232,7 +230,6 @@ cmd_if (void)
   struct compute_trns *compute = NULL;
   struct lvalue *lvalue = NULL;
 
-  lex_match_id ("IF");
   compute = compute_trns_create ();
 
   /* Test expression. */
@@ -442,25 +439,3 @@ lvalue_destroy (struct lvalue *lvalue)
   expr_free (lvalue->element);
   free (lvalue);
 }
-
-/* EVALUATE. */
-
-int
-cmd_evaluate (void)
-{
-  struct expression *expr;
-
-  lex_match_id ("EVALUATE");
-  expr = expr_parse (PXP_DUMP);
-  if (!expr)
-    return CMD_FAILURE;
-
-  expr_free (expr);
-  if (token != '.')
-    {
-      msg (SE, _("Extra characters after expression."));
-      return CMD_FAILURE;
-    }
-  
-  return CMD_SUCCESS;
-}